使用Windows消息控制Winamp(Delphi)

原创 2002年06月26日 09:26:00

使用Windows消息控制Winamp(Delphi)
--------------------------------------------------------------------------------
第一部分:得到Winamp的窗口

Winamp是一个32位的Windows应用程序。也就是说,我们可以使用32位的Windows编程的一些基础技术来实现控

制Winamp,即使用Windows的消息系统。在你给Winamp发送消息之前,你必须得到Winamp窗口的句柄。这里有

个方法,使用外部应用程序(例如你自己编写的Delphi应用)就可以达到要求。

var
  hwndWinamp:HWND;
hwndWinamp := FindWindow('Winamp v1.x',0); //得到Winamp的句柄

大家可能会注意到一点,为什么要使用类名"Winamp v1.x"来FindWindow呢?因为Winamp 1.x 和 2.x 的所有

版本都是用"Winamp v1.x"这个class name的。


第二部分:使用消息

Winamp相应的三个消息:WM_USER,WM_COMMAND,和 WM_COPYDATA。WM_USER 和 WM_COPYDATA 允许你可以对

Winamp进行一些高级的控制。而WM_COMMAND则可以做一些简单的操作,如暂停,播放,和跳到下一首音乐。

1.WM_COMMAND 消息:

  Previous track button                   40044
  Next track button                       40048
  Play button                             40045
  Pause/Unpause button                    40046
  Stop button                             40047
  Fadeout and stop                        40147
  Stop after current track                40157
  Fast-forward 5 seconds                  40148
  Fast-rewind 5 seconds                   40144
  Start of playlist                       40154
  Go to end of playlist                   40158
  Open file dialog                        40029
  Open URL dialog                         40155
  Open file info box                      40188
  Set time display mode to elapsed        40037
  Set time display mode to remaining      40038
  Toggle preferences screen               40012
  Open visualization options              40190
  Open visualization plug-in options      40191
  Execute current visualization plug-in   40192
  Toggle about box                        40041
  Toggle title Autoscrolling              40189
  Toggle always on top                    40019
  Toggle Windowshade                      40064
  Toggle Playlist Windowshade             40266
  Toggle doublesize mode                  40165
  Toggle EQ                               40036
  Toggle playlist editor                  40040
  Toggle main window visible              40258
  Toggle minibrowser                      40298
  Toggle easymove                         40186
  Raise volume by 1%                      40058
  Lower volume by 1%                      40059
  Toggle repeat                           40022
  Toggle shuffle                          40023
  Open jump to time dialog                40193
  Open jump to file dialog                40194
  Open skin selector                      40219
  Configure current visualization plug-in 40221
  Reload the current skin                 40291
  Close Winamp                            40001
  Moves back 10 tracks in playlist        40197
  Show the edit bookmarks                 40320
  Adds current track as a bookmark        40321
  Play audio CD                           40323
  Load a preset from EQ                   40253
  Save a preset to EQF                    40254
  Opens load presets dialog               40172
  Opens auto-load presets dialog          40173
  Load default preset                     40174
  Opens save preset dialog                40175
  Opens auto-load save preset             40176
  Opens delete preset dialog              40178
  Opens delete an auto load preset dialog 40180

例程:控制Winamp暂停,播放,和跳到下一首音乐
     
unit Unit1;

interface

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

Const IPC_WINAMP_NextTrackButton:integer    = 40048; //跳到下一首音乐
Const IPC_WINAMP_PlayButton:integer         = 40045; //播放
Const IPC_WINAMP_PauseUnpauseButton:integer = 40046; //暂停

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(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);
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 中调试通过

使用Windows消息控制Winamp(VB)

第一部分:得到Winamp的窗口Winamp是一个32位的Windows应用程序。也就是说,我们可以使用32位的Windows编程的一些基础技术来实现控制Winamp,即使用Windows的消息系统。...
  • 40Star
  • 40Star
  • 2002年06月24日 09:25
  • 1099

winamp整合贴(保持最新?)

之前在某某论坛的贴已经过时了 winamp 官方讨论地址:Winamp & SHOUTcast Forums 1. 建议的下载地址:http://forums.winamp.com/showthr...
  • Neal78
  • Neal78
  • 2017年04月27日 02:25
  • 336

Delphi中的Windows消息处理

这里采用自定义消息的方法。注意:delphi中自定义消息值范围为:WM_USER到$7FFF之间。 1.应用程序中的消息(在同一个应用程序的不同Form间进行消息处理)示例:Form1:unit Un...
  • kunshan_shenbin
  • kunshan_shenbin
  • 2010年05月24日 15:45
  • 445

让你的Delphi非窗口自定义控件接收Windows消息

Windows messages are a key ingredient in communication between Windows and (your) applications and a...
  • MaxWoods
  • MaxWoods
  • 2014年05月19日 22:18
  • 3665

Delphi Windows消息 2

delphi中Windows消息大全使用详解 消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给...
  • lailai186
  • lailai186
  • 2013年04月02日 09:28
  • 776

几个获取Windows系统信息的Delphi程序

1、获取windows版本信息 可以通过Windows API函数GetVersionEx来获得。 具体程序如下: Procedure Tform1.Button1Cl...
  • fyl_077
  • fyl_077
  • 2013年12月29日 19:47
  • 548

[delphi] windows消息

windows消息的结构   TMsg = packed record     hwnd: HWND;//窗口句柄     message: UINT;//消息标识     wParam: W...
  • shandongmachao
  • shandongmachao
  • 2016年12月18日 18:11
  • 101

在delphi中用函数将空值转换成空字符

今天遇到一个报错:“could not convert variant of type(NULL) into type(OleStr) ,根据提示肯定是ADOQuery的结果集取到的字段值有NULL...
  • wozengcong
  • wozengcong
  • 2013年09月24日 20:28
  • 1869

DELPHI中的消息处理机制(三种消息处理方法的比较,如何截断消息)

DELPHI中的消息处理机制 Delphi是Borland公司提供的一种全新的WINDOWS编程开发工具。由于它采用了具有弹性的和可重用的面向对象Pascal(object-orientedpa...
  • chinajobs
  • chinajobs
  • 2016年05月31日 10:55
  • 608

Winamp 支持.cue文件的插件CUE Navigator

安装此插件后使用Winamp播放带.cue文件的无损音乐,可实现整轨压缩文件的单曲上一曲,下一曲点播。 下载:http://www.ctdisk.com/file/8339556...
  • MaxWoods
  • MaxWoods
  • 2013年02月17日 22:17
  • 1753
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用Windows消息控制Winamp(Delphi)
举报原因:
原因补充:

(最多只允许输入30个字)