Hallo
Delphi-Quellcode:
uses shellapi
datei:=//Pfad zur Datei
if application.MessageBox ('Datei ausführen?','Frage', 52)=6 then
try
shellexecute(form.handle,open,PChar(datei),nil,nil,SW_SHOW);
except
application.MessageBox ('Datei nicht gefunden','Problem', 16)
end;
shellexecute ist eine Funktion mit Rückgabewert, den man auch anstelle des Try Except-Blocks auswerten könnte... ich mache es immer so.....