Öffnen mit...

[Daniel B]

Hallo,

damit wird der "Öffnen mit..." Dialog aufgerufen. Im Anhang ein Bild davon.

Delphi-Quellcode:

procedure OpenWith(FileName: TFileName);
begin
  ShellExecute(Application.Handle,
               'open',
               PChar('rundll32.exe'),
               PChar('shell32.dll, OpenAs_RunDLL '),
               nil,
               SW_SHOWNORMAL);
end;

Grüsse, Daniel