Vorschlag, ein Thread; Pseudocode:
Delphi-Quellcode:
TmeinThread =
class(TThread)
...
procedure Execute;
override;
...
end;
implementation
Procedure TmeinThread.Execute;
var Handle: cardinal;
b: boolean;
begin
b := false;
repeat
Handle := FindeDeinFenster;
if Handle <> 0
then begin
if not b
then begin
DialogSchließenMessageSenden;
b := true;
end;
end else if (
Handle = 0)
and b
then
b := false;
end;
until self.Terminated
end;
Das wäre mein Vorschlag, kombiniert mit der Ein-Thread-Idee
Gruß
alias5000