MessageDialog nach 5 Minuten schließen lassen

[Bernhard Geyer]

Zitat von ak1:

So ein kleines Beispiel wäre super.

Ist zwar kein 100%-Beispiel (Abgeleitet von einer anderen Lösung):

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  Sleep(5*60*1000);  // 5 min

  wnd := FindWindowEx(Application.MainForm.Handle, 0, nil, 'GesuchterFensterTitel');

  if wnd <> 0 then
  begin  
    BringWindowToTop(wndOption);                    // Ab und zu nötig
    SendMessage(wndOption, WM_COMMAND, ID_OK, 0);   // OK-Taste drücken
  end;
end;