Wie prüft eigentlich Windows, ob ein Programm nicht reagiert?

Wird eventuell eine Message geschickt und wenn ja welche.



Der Grund ist Folgender:

Wir haben im Programm an massig vielen Stellen ein Application.ProcessMessages, welches oftmals nur für einen grafischen Refresh zustäständig ist und damit das Programm nicht völlig einfriert.
Aber leider ist es dabei ja möglich auf irgendwelchen Buttons rumzucklicken, welches an ein paar Stellen zu Problemen führt.
Und alles irgendwie anders zu machen, ist auf die Schelle auch nicht so schnell möglich. (ist alles über Jahrzehnte historisch gewachsen)

Nun hab ich also erstmal ein eigenes ProcessDrawMessages erstellt, welches sich nur um PM_QS_PAINT und PM_QS_SENDMESSAGE kümmert. (PeekMessage)

Nja, und jetzt müßte ich noch irgendwie Windows sagen, daß das Programm nicht "wirklich" hängt und mal sehn, welche Messages auch noch unbedingt verarbeitet werden müssen.

laut diesem Blog Eintrag: http://blogs.msdn.com/b/meason/archi...for-hangs.aspx
Musst du wohl zwangsläufig Eingaben verarbeiten. Und wenn du sie einfach ignorierst

Ich finde auch, du solltest alle Messages verarbeiten. Es könnte sonst ziemlich überraschend wirken, wenn plötzlich alle gemachten Mausklicks und Tastatureingaben quasi auf einmal verarbeitet werden, nur weil sie noch in der Message-Queue stecken.

Ich weiß, ich erzähle nichts Neues, aber du solltest das Konzept schnellstmöglich ändern, sonst wächst es noch weitere Jahrzehnte so weiter.

Es werden ja Messages verarbeitet.
Allerdings erstmal nur die Nicht-Benutzereingaben.
Die Maus- und TastatusMessages werden entweder später verarbeitet (sobald die Prozeduren fertig sind, mit ihrer Arbeit) oder die werden einfach gelöscht (abgerufen und nicht verarbeitet).

Zitat:

nur weil sie noch in der Message-Queue stecken.

Joar, ist uns auch eingefallen.
Eventuell die Usermessages verwerfen
Aber so ist es schonmal besser, da hier alles nacheinander und wenigstens nicht durcheinander verarbeitet wird.

Nja, ist halt alles nicht so einfach.
Ja, natürlich wäre es besser, alles abzusuchen und überall z.B. die Buttons zu deaktivieren, während der Arbeit, aber das dauert auch eine Weile.

Aber jetzt ist erstmal Wochenende und die Arbeit geht dann am Montag weiter.

Zitat von himitsu:

... es besser, alles abzusuchen und überall z.B. die Buttons zu deaktivieren...

Vielleicht ist das gar nicht so schwer wie es im ersten Moment aussieht.
Man bräuchte eine Klasse (abgeleitet von TComponent) mit 2 Methoden: FreezeUI() und UnfreezeUI().

markieren

Delphi-Quellcode:

Freezer1.IgnoreControl := ButtonStop;
Freezer1.FreezeUI;
try
  MachWasDasSehrLangeDauertUndDerBenutzerNichtUnterbrechenDarf;
finally
  Freezer1.UnfreezeUI;
end;

Beim Einfrieren werden in einer Schleife alle Komponenten des Owners (=das Formular) durchgegangen.
Dabei wird geprüft:
TButton? TSpeedButton? TToolbar? TCoolbar? TMainMenu?
Visible? Enabled?
Alle gefundenen Komponenten, die Visible und Enabled sind werden in eine ObjectList eingetragen
und anschliesend wird das Property Enabled auf False gesetzt.
Dabei macht man sich zunutze, dass Enabled und Visible ab der Klasse TControl vorhanden sind.
Sollte die Komponente gleich dem IgnoreControl sein, dann findet das aber nicht statt.

Beim Auftauen braucht man nur noch die Objectliste durchgehen und für jede Komponente das Property Enabled wieder auf True zu setzen.

Ich denke, man könnte diese Freeze-Komponente in 0,5 bis 1 Stunde programmieren und es braucht vielleicht noch 2-3 Tage mehr bis man alles entdeckt hat was ich hier vergessen habe.

Vielleicht auch so was

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if MyFlag4Ignore then
    begin
    if (Msg.message = WM_Char)
       or (Msg.message = WM_LButtonDown)
       or .....
       or ...
       then

        Handled := true;
    end;
end;

Vielleicht hilft auch TApplicationEvents.OnMessage

Zitat von Uwe Raabe:

Vielleicht hilft auch TApplicationEvents.OnMessage

siehe

Zitat von Bummi:

Vielleicht auch so was

markieren

Delphi-Quellcode:

procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);

Aber wozu das global (immer und überall) einbinden, wo ich schon eine lokale Variante hab (nur dort wo nötig).



@Freezer: Das müßte ich auch überall manuell einbauen und wenn, dann kann ich es auch gleich richtig machen.

Mir fällt da grade was ein.
Wir haben sowieso von fast allen Komponenten eigene Ableitungen verbaut.
Da könnte ich das "Click" unserer Buttons verändern, so daß sich der Button selber enablen/disablen kann, wärend die Klickprozedur läuft.
Ich glaub das währe wohl die ideale Lösung, für die meisten Problemstellen.