Exception ignorieren

[Ikarus7]

die sache ist für mich bereinigt, da es nur auftritt wenn ich die delphi-umgebung anhabe.

dennoch der code :

Delphi-Quellcode:

procedure openfile(s: string);
begin
  if fileexists(s)
    then
    try
    begin

  ShellExecute(1, 'open', Pchar(s), pchar(''), nil, SW_NORMAL);
  end;
    except
    end;
end;

Der Fehler tritt nur auf, wenn ich .lnk - Dateien damit öffne.