Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Удалить таймер в Delphi (kill timer) по заголовку окна

Delphi , Программа и Интерфейс , Приложения чужие

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)); :)
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

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

Статья Удалить таймер в Delphi (kill timer) по заголовку окна раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Приложения чужие ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
26.09.2017 15:37:59/0.011345148086548/0