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.