1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
{MediaMonkey player}
unit pl_mmonkey;
{$include compilers.inc}
interface
implementation
uses windows,messages,winampapi,common,srv_player,wat_api
{$IFDEF DELPHI_7_UP}
,variants
{$ENDIF}
{$IFDEF KOL_MCK}
,kolcomobj
{$ELSE}
,ComObj
{$ENDIF}
;
const
COMName:PWideChar = 'SongsDB.SDBApplication';
const
WM_WA_IPC = WM_USER;
IPC_GETVERSION = 0;
{
const
MMonkeyName = 'MediaMonkey';
}
function Check(wnd:HWND;flags:integer):HWND;cdecl;
//var
// i:integer;
{
EXEName:pWideChar;
tmp:pWideChar;
}
// v:Variant;
begin
if wnd<>0 then
begin
result:=0;
exit;
end;
result:=FindWindow('TFMainWindow','MediaMonkey');
if result=0 then
result:=FindWindow('TFMainWindow.UnicodeClass','MediaMonkey');
{
wnd:=FindWindow(WinAmpClass,NIL);
if wnd<>0 then
begin
if (SendMessage(wnd,WM_WA_IPC,0,IPC_GETVERSION) and $FF0F)<>$990B then
wnd:=result;
end;
}
{
wnd:=FindWindow(WinAmpClass,NIL);
if wnd<>0 then
begin
i:=SendMessage(wnd,WM_WA_IPC,0,IPC_GETVERSION) and $FF0F;
if i=$990B then
begin
try
// v:=GetActiveOleObject(COMName);
v:=CreateOleObject(COMName);
if not v.IsRunning then
wnd:=0;
except
end;
v:=Null;
end
else
wnd:=0;
end;
result:=wnd;
{
begin
EXEName:=GetEXEByWnd(wnd);
tmp:=Extract(EXEName,true);
mFreeMem(EXEName);
result:=StrCmpW(tmp,MMonkeyName,length(MMonkeyName))=0;
mFreeMem(tmp);
end;
}
end;
function GetVersion(const v:variant):integer;
begin
try
result:=(v.VersionHi shl 8)+(v.VersionLo shl 4)+v.VersionRelease;
except
result:=0;
end;
end;
function GetVersionText(const v:variant):PWideChar;
begin
try
StrDupW(result,PWideChar(WideString(v.VersionString)));
except
result:=nil;
end;
end;
function GetFileName(wnd:HWND;flags:integer):pWideChar;cdecl;
var
v:Variant;
begin
try
// SDB:=GetActiveOleObject(COMName);
v:=CreateOleObject(COMName);
StrDupW(result,PWideChar(WideString(v.Player.CurrentSong.Path)));
except
result:=nil;
end;
v:=Null;
end;
function GetStatus(wnd:HWND):integer; cdecl;
begin
result:=WinampGetStatus(wnd)
end;
function GetInfo(var SongInfo:tSongInfo;flags:integer):integer;cdecl;
var
v:variant;
begin
if (flags and WAT_OPT_PLAYERDATA)<>0 then
begin
if SongInfo.plyver=0 then
begin
try
v:=CreateOleObject(COMName);
with SongInfo do
begin
plyver:=GetVersion(v);
txtver:=GetVersionText(v);
end;
except
end;
v:=Null;
end;
end;
result:=WinampGetInfo(int_ptr(@SongInfo),flags);
end;
function Command(wnd:HWND;cmd:integer;value:integer):integer;cdecl;
begin
result:=WinampCommand(wnd,cmd+(value shl 16));
end;
const
plRec:tPlayerCell=(
Desc :'MediaMonkey';
flags :WAT_OPT_SINGLEINST or WAT_OPT_HASURL;
Icon :0;
Init :nil;
DeInit :nil;
Check :@Check;
GetStatus:@GetStatus;
GetName :@GetFileName;
GetInfo :@GetInfo;
Command :@Command;
URL :'http://www.mediamonkey.com/';
Notes :nil);
var
LocalPlayerLink:twPlayer;
procedure InitLink;
begin
LocalPlayerLink.Next:=PlayerLink;
LocalPlayerLink.This:=@plRec;
PlayerLink :=@LocalPlayerLink;
end;
initialization
// ServicePlayer(WAT_ACT_REGISTER,dword(@plRec));
InitLink;
end.
|
