strange perversion removed

git-svn-id: http://svn.miranda-ng.org/main/trunk@14285 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 1 insertions, 31 deletions

diff --git a/plugins/Watrack/srv_getinfo.pas b/plugins/Watrack/srv_getinfo.pas
index 66c26845a4..fc39645439 100644
--- a/plugins/Watrack/srv_getinfo.pas
+++ b/plugins/Watrack/srv_getinfo.pas
@@ -2,7 +2,7 @@ unit srv_getinfo;
 

 interface

 

-uses wat_api;

+uses m_api, wat_api;

 

 function GetPlayerInfo(var dst:tSongInfo;flags:cardinal):integer;

 {

@@ -43,31 +43,6 @@ uses
   common, msninfo, syswin, wrapper, io, winampapi,

   srv_player, srv_format;

 

-//----- Miranda cheat -----

-const

-  CoreDLL = 'mir_core.dll';

-type

-  tmir_free=procedure(para1:pointer); cdecl;

-var

-  mir_free:tmir_free;

-  MMCore:THANDLE;

-

-procedure InitMirandaMM;

-begin

-  MMCore:=LoadLibraryW(CoreDLL);

-  if MMCore<>0 then

-    @mir_free:=GetProcAddress(MMCore,PAnsiChar('mir_free'));

-end;

-

-procedure FreeMirandaMM;

-begin

-  if MMCore<>0 then

-  begin

-    FreeLibrary(MMCore);

-    MMCore:=0;

-  end;

-end;

-

 //----- get player info -----

 

 function DefGetVersionText(ver:integer):pWideChar;

@@ -453,9 +428,4 @@ begin
   mFreeMem(oldtitle);

 end;

 

-initialization

-  InitMirandaMM;

-

-finalization

-  FreeMirandaMM;

 end.