Home » Tipps & Tricks » Dateien/Verzeichnisse » Dialoge » Öffnen-mit-Dialog anzeigen

Öffnen-mit-Dialog anzeigen

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;