Fehler nur bei Autostart aus Registry

[Cyberbob]

Hallo,

versuch mal

Delphi-Quellcode:

If FileExists(ExtractFilePath(Application.ExeName) + 'Data\msn.mjd') then
  begin
   AssignFile(MSNFile, ExtractFilePath(Application.ExeName) + 'Data\msn.mjd');
   Reset(MSNFile);
   for i := 0 to FileSize(MSNFile) - 1 do
    begin
     .
     .
     .
    end;
   CloseFile(MSNFile);
  end
Else ShowMessage('Fehler');