[DELPHI] Controllare se un'applicazione non risponde

[funnylux]

Ciao a tutti

praticamente devo controllare se un'applicazione non risponde..

sto usando questa procedura..

function TfrmMain.ifprocessExist(app: string; index : integer):string;
var
 H : THandle;
 lngReturnValue : longint;
 DWResult : DWORD;
 processname : string;
begin
 H := JclSysInfo.GetPidFromProcessName(ExtractFileName(app));//FindWindow('ScanWeb', nil);
 processname := JclSysInfo.GetProcessNameFromPid(H);
 if (H <> 0) and (processname <> '') then
  begin
    lngReturnValue := SendMessageTimeout(H, WM_NULL, 0,
      0, SMTO_ABORTIFHUNG Or SMTO_BLOCK, 1000, DWResult);

    if lngReturnValue >= 0 then
     lvFile.Items[index].SubItems[0] := 'Responding'
      else
      begin
       lvFile.Items[index].SubItems[0] := 'Not responding';
       lvFile.Items[index].SubItems[1] := DateTimeToStr(Now);
      end;
  end
   else
   begin
     lvFile.Items[index].SubItems[0] := 'Application not found';
     lvFile.Items[index].SubItems[1] := DateTimeToStr(Now);
   end;
end;

Riesco a capire se l'applicazione è chiusa.. ma no se NON RISPONDE..
mi ritorna sempre come funzionante..!!!

qualcuno sa come posso fare?
ciao

[oregon]

La funzione

SendMessageTimeout

vuole l'handle della finestra principale e non il pid del processo.

[funnylux]

ahhhh.... mmmmmm

e come lo prendo? di un altra applicazione?
ho bisogno di ricavarlo dal nome del processo e non dal nome della finestra

[mondobimbi]

Originariamente inviato da oregon
La funzione

SendMessageTimeout

vuole l'handle della finestra principale e non il pid del processo.

:master: ... e da quanto ti intendi di Delphi ?

[oregon]

Originariamente inviato da mondobimbi
:master: ... e da quanto ti intendi di Delphi ?

Infatti, non c'e' nulla di Delphi nella mia risposta ... basta conoscere le API e saper leggere

GetPidFromProcessName

[funnylux]

penso che si veda....

da qualche mese..
2 mesi

se mi potete dare una dritta....