Feststellen, ob ein Programm eingefrohren ist.

[Stony2k]

Es kann ja gut sein, dass eine Anwendung noch aktiv ist, diese aber nicht mehr reagiert, also eingefrohren ist.

Wie kann ich dies feststellen?

[Luckie]

Schicke mit SendMessageTimeOut WM_NULL ab das Fenster. Und wenn die Funktion mit dem Wert 0 zurückkehrt ist sie entweder fehlgeschlagen oder der TimeOut wurde überschritten. Jetzt musst du dir nur noch überlegen, ab wie viel Millisekunden du das Programm für abgestürzt erklärst. Windows verfährt übrigens ähnlich, wenn es im Taskmanager anzeigt: "Reagiert nicht mehr". Das heißt, dieser Zustand kann auch eintreten, wenn das Programm in einer längeren Schleife steckt und deshalb keine Nachrichten aus der Nachrichtenschlange abholen kann.

[Christian Seehase]

Moin Stony,

oder schau Dir mal die API-Funktion IsHungAppWindow an.

[Luckie]

Klingt nett, ich würde aber meine Finger davon lassen:

Zitat:

However, this function is not intended for general use. It is recommended that you do not use it in new programs because it might be altered or unavailable in subsequent versions of Windows.

Und im Endeffekt macht es ja nichts anderes, als was ich vorgeschlagen habe.

[Stony2k]

Ich habe nun folgendes gemacht:

Delphi-Quellcode:

procedure Tfrm_main.StartButtonClick(Sender: TObject);
Var
  DWResult: DWORD;
  hWindowHandle: HWND;
  Result: integer;
begin
  hWindowHandle := FindWindow('SphereSvr', 'SphereServer V0.56b-Nightly - MyShard (Running) ');
  Result := SendMessageTimeout(hWindowHandle, WM_NULL, 0, 0,SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
end;

Die 5000 müssten ja 5 Milisekunden sein.. und Result lieft als Rückgabewert dann 0, sobald das Fenster nicht geöffnet ist, oder das Programm nicht reagier, richtig?
Und wie kille ich dann den Prozess?

//Edit: Die Funktion KillProzess funzt einwandrei: http://www.delphipraxis.net/internal...messagetimeout

[Luckie]

5000 sind 5 Sekunden.

[himitsu]

Zitat von Luckie:

5000 sind 5 Sekunden.

Jupp ... Wert wird in Millisekunden angegeben,

also Milli = Tausenstel

5000 = 5 * 1000
x Milli = x / 1000

demnach 5 * 1000 / 1000 = 5 in der Standardeinheit, was hier Sekunden sein sollten

[Luckie]

Ich habe gerade was gesehen: WM_NULL

Zitat:

As another example, an application can check if a window is responding to messages by sending the WM_NULL message with the SendMessageTimeout function.

Hehe, habe ich doch intuitiv die richtige Lösung gepostet.

[Stony2k]

Habe auch Sekunden gemein, habe mich da nur verschrieben gehabt

Gut, soweit funktioniert alles und wenn ich noch Hilfe brauche, melde ich mich.

Danke