mal schnell was konstruiert
so in die richtung hat ich das gemacht
Delphi-Quellcode:
procedure keine_ahnung(x:file of ...);
begin
assignfile(x,pchar(ExtractFilePath(Application.ExeName)+'???'));
if fileexists(ExtractFilePath(Application.ExeName)+'???')
then reset(x)
else application.MessageBox('Es ist ein Fehler beim öffnen der Datei'+#10#13+'"???"'+#10#13+'aufgetreten','Fehler',mb_ok+mb_iconerror);
end;