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
