Wie erkennen, wann Fenster auftaucht und verschwindet

[FBrust]

Hallo,

mein Programm soll erkennen, wann das Fenster vom Palm-Hotsyncmanager auftaucht und wieder verschwindet.
Erst dann soll der Anwender weiterarbeiten dürfen.

Das Problem ist, dass das Fenster "Hotsync-Status" erst nach ein paar Sekunden auftaucht. Ich dachte mir, ich könnte es mit zwei Endlosschleifen lösen, die kontrolliert abgebrochen werden, etwa so:

Delphi-Quellcode:

var  hSync   :HWND;
begin

    hSync := 0;
    while true do begin
      hSync := FindWindowByTitle('Hotsync-Status');
      if hSync <> 0 then
        break;
    end;
    beep;
    while true do begin
      hSync := FindWindowByTitle('Hotsync-Status');
      if hSync = 0 then
        break;
    end;
    beep;

Leider ist beim Ablauf das ganze Programm blockiert (ist auch logisch) aber ich erhalte auch keine Rückmeldung über das Ende der Schleifen.:gruebel:

Hat vielleicht jemand eine bessere Idee?

Grüße
Frank

[Skiron]

du könntest (wenns ums "keine Rückmeldung" geht)
Application.ProcessMessages;
in die Schleife einbauen

ansonsten gibst vielleicht einen Hook, der ausgelöst wird, wenn ein Fenster geöffnet wird, bin da aber nicht sicher

Ansonsten könntest du das Ganze in einen Timer Packen, mit kleinem Intervall!

[CalganX]

Hi,
ich würde das ganze in einen Thread auslagern. ;)

Chris

[FBrust]

Hallo,

danke für Eure Antworten.

@Chris: Ja, das werd ich wohl machen müssen, also auf zu den Tutorials...

Gruß

Frank

[Ricane]

Sagt mal...

was braucht

Delphi-Quellcode:

FindWindowByTitle

eigentlich in dem Uses Bereich damit das funzt?!?! Bekomme immer die Meldung das deiser Bezeichner unbekannt ist.....


Beste Grüsse,

Ricane

[FBrust]

Hallo Ricane,

bei mir steht nur

Code:

uses Windows

vor den Funktionsdeklarationen, also wird es die wohl sein...


Gruß
Frank

[Christian Seehase]

Moin Zusammen,

ich möchte mal behaupten, dass FindWindowByTitle selbstgemacht ist.

Delphi-Quellcode:

function FindWindowByTitle(const AsTitle : string) : DWORD;
begin
  Result := FindWindow(nil,PChar(AsTitle));
end;

[wicht]

Ein Sleep(50) oder irgendwas in der Richtung wäre vielleicht auch noch nützlich.