1 files changed, 181 insertions, 0 deletions
diff --git a/plugins/Watrack/players/pl_mmonkey.pas b/plugins/Watrack/players/pl_mmonkey.pas
new file mode 100644
index 0000000000..bb826b9851
--- /dev/null
+++ b/plugins/Watrack/players/pl_mmonkey.pas
@@ -0,0 +1,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:PAnsiChar = '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.