Пример процедуры убивающей таймеры по заголовку окна в чужих приложениях написанных на Delphi

Previous  Top  Next

    
 

 

 

Code:

var

Hinst : THandle;

WndArr : array of THandle;

Wnd : THandle;

 

......

 

Procedure KillDelphiWndTimers(const AppCaption:string);

var i : integer;

function GetTimerWindows(Handle: HWND; Info: Pointer): BOOL; stdcall;

const

sClName ='TPUtilWindow';

var

s : String;

begin

Result := True;

SetLength(s,Length(sClName)+1);

GetClassName(Handle, PChar(s),Length(s));

SetLength(s,Length(sClName)); // E?aeo caieoeaaou neaie #0 :)

if (GetWindowLong(Handle, GWL_HINSTANCE) =  Hinst )  and (s=sClName)

then

begin

   SetLength(WndArr,High(WndArr)+2);

   WndArr[High(WndArr)]:=Handle;

end;

end;

 

begin

Wnd:=FindWindow(nil,Pchar(AppCaption));

if Wnd=0 then Exit;

hinst:=GetWindowLong(Wnd, GWL_HINSTANCE);

EnumWindows(@GetTimerWindows,0);

for i:=0 to High(WndArr) do KillTimer(WndArr[i],1);

end;

 

 

©Drkb::02120

Автор: Radmin

Взято с Vingrad.ru http://forum.vingrad.ru