»Öffnen mit« Dialog

lemming · Beiträge: 470 Mac OS 10.3.1 Delphi 6 Pro, Kylix 3

Hallo,

ich öffne Dateien mit unterschiedlichen Endungen aus meinem Programm mit ShellExecute. Leider tut sich bei Dateien, die keine Verknüpfung in der Registry haben nichts. Wie kann ich optional den »Öfnnen mit«-Dialog verwenden? Wie rufe ich den auf?

lemming

lemming · Beiträge: 470 Mac OS 10.3.1 Delphi 6 Pro, Kylix 3

Hat sich schon wieder von selbst beantwortet

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

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

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme