ShowMessage als Hyperlink

[WIng2005]

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.....