1 files changed, 0 insertions, 128 deletions
diff --git a/plugins/Watrack/players/pl_wmp.pas b/plugins/Watrack/players/pl_wmp.pas
deleted file mode 100644
index 971cb28ac6..0000000000
--- a/plugins/Watrack/players/pl_wmp.pas
+++ /dev/null
@@ -1,128 +0,0 @@
-{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.