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:

zusammenfalten · markieren

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.

Hat vielleicht jemand eine bessere Idee?

Grüße
Frank

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!

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

Chris

Hallo,

danke für Eure Antworten.

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

Gruß

Frank

Sagt mal...

was braucht

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


Beste Grüsse,

Ricane

Hallo Ricane,

bei mir steht nur

markieren

Code:

uses Windows

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


Gruß
Frank

Moin Zusammen,

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

markieren

Delphi-Quellcode:

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

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