opendialog automatisch schließen

[DeddyH]

Und wenn zwischendurch eine andere Anwendung den Fokus erhält?

[edit] Was aber funktionieren könnte:
PostMessage(OpenDialog.Handle, WM_SYSCOMMAND, SC_CLOSE, 0); Das ist allerdings auch noch verbesserungswürdig, da der Dialog ja eine gewisse Zeit zum Öffnen braucht. [/edit]

[Natcree]

procedure TForm1.Timer1Timer(Sender: TObject);
const
IDS_WNDTITLE = 'Öffnen';
var
hWnd: DWORD;
begin
hWnd := FindWindow(nil, IDS_WNDTITLE);
if hWnd <> 0 then
SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)
end;
versuch mal den

[DeddyH]

FindWindow braucht man nicht, siehe mein Edit oben.