|
Registriert seit: 5. Mär 2013
502 Beiträge
Delphi 7 Enterprise
|
AW: opendialog automatisch schließen
6. Mär 2013, 13:10
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
|