Mega Code Archive
Bir uygulamanın kitlenip kitlenmediğinin öğrenilmesi
<![CDATA[
function isHung(theWindow: HWnd; atimeOut: Longint): Boolean;
var
dwResult, time: DWORD;
retval: Longint;
begin
Result:=False;
time:=GetTickCount;
retval:=SendMessageTimeOut(theWindow, WM_NULL, 0, 0, SMTO_ABORTIFHUNG, ATimeOut, dwResult);
time:=GetTickCount-time;
if (retval=0) then
if (time<ATimeOut) then
Result:=True;
end;
// Kullanımı:
procedure TForm1.Button1Click(Sender: TObject);
var WHandle: HWND;
begin
WHandle := FindWindow(nil, 'Delphi Türk KodBank 2.1');
if WHandle = 0 then Exit;
// 10 saniye içinde yanıt alınamazsa
if isHung(WHandle, 10000) then
ShowMessage('Kitlenmiş')
else
ShowMessage('Çalışıyor')
end;
]]>