藉由最新Windows Media player的c:\windows\system32\wmp.dll檔，    來完成TWindowsMediaPlayer視覺元件的操作    1.元件安裝：
Component-->Import ActiveX Control-->Windows Media player(Version 1.0)    2.產生TWindowsMediaPlayer元件。    3.程式碼示範：    unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;    type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;    
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
 WindowsMediaPlayer1.URL:='mms://live.sys.hinet.net/ufo'; //開啟網路電台
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
 WindowsMediaPlayer1.controls.stop; //停止播放
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
 WindowsMediaPlayer1.controls.play; //播放
end;    procedure TForm1.Button4Click(Sender: TObject);
begin
 WindowsMediaPlayer1.controls.pause; //暫停播放
end;    end.