Ein freundliches Hallo an alle,
ich möchte in einem Programm (
Delphi 4) feststellen, ob mein Mailer "Pegasus" gestartet ist. Die Funktion liefert mit konstanter Bosheit 0, egal ob Pegasus läuft oder nicht. Wenn ich die Funktion in "Auswerten/Ändern" teste erhalte ich irgend einen Wert. Der scheint jedoch eher zufällig zu sein, denn er ändert sich, aber nicht immer wenn ich Pegasus starte oder beende. Auch nil als Klassenname ändert nichts.
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| var H : HWND;
begin H := FindWindow(PChar('FRAME'),PChar('Pegasus Mail')); if H = 0 then messagebox(0,'Pegasus Mail is not running','Alert !',mb_ok); |
Ich hoffe jemand kann mir das erklären, denn "FindWindow" scheint ja zu funktionieren.
Grüße von der sehr windigen Nordsee (Wer raus geht sollte einen Anker dabei haben!)
Peter