Entwickler-Ecke

Windows API - »Öffnen mit« Dialog


lemming - Mi 14.07.04 08:25
Titel: »Öffnen mit« Dialog
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 - Mi 14.07.04 08:42
Hat sich schon wieder von selbst beantwortet


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 user profile iconPeter Lustig: Code- durch Delphi-Tags ersetzt.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!