{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hwndWinamp := FindWindow(''''Winamp v1.x'''',0); //得到Winamp的句柄
If hwndWinamp = 0 Then                     //判断Winamp是否运行
begin
   ShowMessage(''''请启动Winamp先！'''');
   Application.Terminate ;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//让Winamp跳到下一首音乐
SendMessage(hwndWinamp, WM_COMMAND, IPC_WINAMP_NextTrackButton,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//让Winamp播放当前Mp3
SendMessage(hwndWinamp, WM_COMMAND, IPC_WINAMP_PlayButton,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//让Winamp暂停当前Mp3
SendMessage(hwndWinamp, WM_COMMAND, IPC_WINAMP_PauseUnpauseButton,0);
end;

end.

2.WM_USER 消息：

例程：得到Winamp的版本

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;//使用StrUtils才能用LeftStr,RightStr,MidStr等函数

Const WA_GETVERSION:integer = 0;//Winamp的版本

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hwndWinamp:HWND;//Winamp窗口的句柄
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hwndWinamp := FindWindow(''''Winamp v1.x'''',0); //得到Winamp的句柄
If hwndWinamp = 0 Then                     //判断Winamp是否运行
begin
   ShowMessage(''''请启动Winamp先！'''');
   Application.Terminate ;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   VersionNum : integer;
   ReturnVersion : String;
begin
VersionNum := SendMessage(hwndWinamp, WM_USER, 0, WA_GETVERSION);
If Length(IntToHex(VersionNum,4)) > 3 Then
begin
   ReturnVersion := LeftStr(IntToHex(VersionNum,4), 1) + ''''.'''' ;
   ReturnVersion := ReturnVersion + MidStr(IntToHex(VersionNum,4), 2, 1);
   ReturnVersion := ReturnVersion + RightStr(IntToHex(VersionNum,4),

Length(IntToHex(VersionNum,4)) - 3);
end
Else
   ReturnVersion := ''''UNKNOWN'''';

ShowMessage(ReturnVersion);
end;

end.

3.WM_COPYDATA 消息：

例程：Winamp的运行时刻在播放列表中加入一首Mp3的歌曲

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Const IPC_PLAYFILE:integer = 100 ;//Winamp中加入文件

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hwndWinamp:HWND;//Winamp窗口的句柄
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hwndWinamp := FindWindow(''''Winamp v1.x'''',0); //得到Winamp的句柄
If hwndWinamp = 0 Then                     //判断Winamp是否运行
begin
   ShowMessage(''''请启动Winamp先！'''');
   Application.Terminate ;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   CDS:COPYDATASTRUCT;
   SongName:String;
begin
SongName:=''''I:\Mp3\周杰伦-简单爱.mp3'''';
CDS.dwData := IPC_PLAYFILE;
CDS.cbData :=Length(SongName)+1;
CDS.lpData := PChar(SongName);
SendMessage(hwndWinamp, WM_COPYDATA, 0, integer(@CDS));
end;

end.

所有例程在 Win2000 + Delphi6 中调试通过

上一页  [1] [2]