Super!!!!
Ich bedanke mich.
Nach langem suchen hab ich den passenden eintrag gefunden:
Delphi-Quellcode:
procedure TForm1.Open(FileName, Directory: String);
begin
ShellExecute(0,'open',PChar(FileName), nil, PChar(Directory), SW_NORMAL);
if getlasterror = ERROR_NO_ASSOCIATION then
ShellExecute(0,'open','rundll32.exe', PChar('shell32.dll,OpenAs_RunDLL '+FileName), PChar(Directory), SW_SHOW)
end;
muss man getlasterror verwenden oder gibt es eine alternative?
