DruckenMister WongFacebook

Öffnen-mit-Dialog anzeigen
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Diese Proceudre zeigt den Öffnen-Mit-Dialog an. Als Parameter muss die Datei übergeben werden, auf die der Dialog reagieren soll.

procedure OpenWithDialog(const AFileName: string);
begin
  ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'),
               PChar('shell32.dll,OpenAs_RunDLL ' + AFileName), nil, SW_SHOWNORMAL);
end;

So kann die Procedure aufgerufen werden:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenWith('C:\Datei.dat');
end;
Ähnliche Seiten: