1 files changed, 128 insertions, 0 deletions
diff --git a/plugins/Watrack/players/pl_wmp.pas b/plugins/Watrack/players/pl_wmp.pas
new file mode 100644
index 0000000000..971cb28ac6
--- /dev/null
+++ b/plugins/Watrack/players/pl_wmp.pas
@@ -0,0 +1,128 @@
+{Windows Media Player}
+unit pl_WMP;
+{$include compilers.inc}
+
+interface
+
+implementation
+uses windows,common,messages,srv_player,wat_api
+  {$IFDEF DELPHI_7_UP}
+  ,variants
+  {$ENDIF}
+  {$IFDEF KOL_MCK}
+  ,kolcomobj
+  {$ELSE}
+  ,ComObj
+  {$ENDIF}
+;
+
+const
+  WMPOld:boolean=false;
+
+const
+//  CLASS_MP :TGUID = '{22D6F312-B0F6-11D0-94AB-0080C74C7E95}';
+//  CLASS_WMP:TGUID = '{6BF52A52-394A-11D3-B153-00C04F79FAA6}'; CLASS_WindowsMediaPlayer
+  MPCOMName  = 'MediaPlayer.MediaPlayer.1';
+  WMPCOMName = 'WMPlayer.OCX.7';
+const
+  MPClass  = 'Media Player 2';
+  WMPClass = 'WMPlayerApp';
+
+function Check(wnd:HWND;flags:integer):HWND;cdecl;
+begin
+  result:=FindWindowEx(0,wnd,MPClass,NIL);
+  if result=0 then
+  begin
+    result:=FindWindowEx(0,wnd,WMPClass,NIL); //?
+    WMPOld:=false;
+  end
+  else
+    WMPOld:=true;
+end;
+
+{ Version detect
+  fHasWMP64 = (WMP64.FileName="")  ' WMP64 was create above via OBJECT tag else this returns False.
+  fHasWMP7 = (WMP7.URL = "")       ' WMP7 or later was create above via OBJECT tag else this returns False.
+}
+
+const
+  MPVersion:PWideChar = '6.4';
+
+function GetVersionText(flags:integer):PWideChar;
+var
+  v:variant;
+begin
+  if WMPOld then
+    StrDupW(result,MPVersion)
+  else
+  begin
+    try
+      v:=CreateOleObject(WMPCOMName);
+      StrDupW(result,pWideChar(Widestring(v.versionInfo)));
+    except
+      result:=nil;
+    end;
+//    VarClear(v);
+    v:=Null;
+  end;
+end;
+
+function GetInfo(var SongInfo:tSongInfo;flags:integer):integer;cdecl;
+begin
+  result:=0;
+  if (flags and WAT_OPT_PLAYERDATA)<>0 then
+  begin
+    if SongInfo.txtver=nil then
+      SongInfo.txtver:=GetVersionText(flags);
+  end;
+end;
+
+{
+function Command(wnd:HWND;cmd:integer;value:integer):integer;cdecl;
+var
+  c:integer;
+begin
+  result:=0;
+  case cmd of
+//    WAT_CTRL_PREV : c:=VK_B;
+//    WAT_CTRL_PLAY : c:=VK_C;
+//    WAT_CTRL_PAUSE: c:=VK_X;
+//    WAT_CTRL_STOP : c:=VK_Z;
+//    WAT_CTRL_NEXT : c:=VK_V;
+    WAT_CTRL_VOLDN: c:=VK_F9;
+    WAT_CTRL_VOLUP: c:=VK_F10;
+    else
+      exit;
+  end;
+  PostMessageW(wnd,WM_KEYDOWN,c,1);
+end;
+}
+const
+  plRec:tPlayerCell=(
+    Desc     :'WMP';
+    flags    :WAT_OPT_APPCOMMAND or WAT_OPT_SINGLEINST;
+    Icon     :0;
+    Init     :nil;
+    DeInit   :nil;
+    Check    :@Check;
+    GetStatus:nil;
+    GetName  :nil;
+    GetInfo  :@GetInfo;
+    Command  :nil;
+    URL      :'http://www.microsoft.com/windows/windowsmedia/players.aspx';
+    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.