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));
:) 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;
Автор:
Radmin
Статья Удалить таймер в Delphi (kill timer) по заголовку окна раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.
