"OnIdle" per WinAPI

[3_of_8]

Morgen.

Ich habe mir ein Fenster mit einer WndProc erstellt und will jetzt, dass eine Funktion aufgerufen wird, wenn die Anwendung gerade "idlet", also so wie bei TApplication.OnIdle. In der Fensterprozedur funktioniert das ganze nicht wirklich und bei meiner Messageschleife geht das komischerweise nur dann, wenn das Fenster gerade Messages empfängt. (Verstehe ich ehrlich gesagt nicht, denn die Schleife wird ja ständig abgearbeitet, nicht nur wenn grad Messages da sind.)

[jbg]

Zitat von 3_of_8:

Verstehe ich ehrlich gesagt nicht, denn die Schleife wird ja ständig abgearbeitet, nicht nur wenn grad Messages da sind.

Das denkst du. Es besteht aber ein Unterschied zwischen GetMessage() und PeekMessage(..., PM_REMOVE). GetMessage() ruft intern WaitMessage() auf, womit GetMessage() nur zurückkehrt, wenn eine Botschaft vorhanden ist. Ist keine da, wird der aktuelle Thread schlafen gelegt bis eine Message kommt. Da z.B Application.ProcessMessages PeekMessage() benutzt schnallt die CPU belastung dabei auf 100% hoch, wenn es in einer Schleife ausgeführt wird; wohingegen GetMessage() nahezu 0% CPU Last verschlinkt.

[3_of_8]

*kratz*

Und wie ist das dann mit dem OnIdle?

[jbg]

Schau dir den Code doch einfach mal an.

Die VCL nutzt PeekMessage(..., PM_REMOVE), ruft aber im TApplication.DoIdle die WaitMessage API Funktion auf (sofern Done auf True gesetzt wurde).

[3_of_8]

Nicht alle sind glückliche Besitzer einer Professional-Version.

[jbg]

Wofür brauchst du eine Professional Version. Turbo Delphi Explorer kommt mit vollem VCL und RTL Quellcode daher.

[3_of_8]

Ja, aber das Ding läuft nicht auf meinem Notebook. Jedenfalls habe ich keine Quellcodedateien. Sonst hätte ich schon längst nachgeschaut. Mit PeekMessage() klappt das ganze jetzt jedenfalls, danke.

[jbg]

Zitat von 3_of_8:

Jedenfalls habe ich keine Quellcodedateien. Sonst hätte ich schon längst nachgeschaut.

Du musst nur den vorgeschalteten Selfextractor ausführen. Danach sollte in dessen "temporären" Verzeichnis der "Source" Ordner zu finden sein. Die volle Installation musst du dabei nicht durchlaufen.