Service-Anwendung und assignfile

[Sir Rufo]

Warum fängst du an der Stelle nicht mal die Exception ab?
(dann würde sich dein Service auch nicht ins Nirwana verabschieden)
Hängt allerdings auch von dem Compilerschalter {$I+} ab
http://docwiki.embarcadero.com/VCL/XE/de/System.Reset

Delphi-Quellcode:

assignfile(f,'test.txt');
  try
    reset(f);
    // sonstiger code
  except
    on E: Exception do
      SchreibInMeinLog( E.Message );
  end;
closefile(f);

Ansonsten würde ich immer folgendes Konstrukt vorschlagen:

Delphi-Quellcode:

assignfile( f, 'test.txt' );  // Zu sehen wie ein Object := TObject.Create
try
  {$I-}
  reset( f );
  {$I+}
  if IOResult = 0 then
    begin
      // sonstiger code
    end;
finally
  closefile( f );  // Zu sehen wie ein Object.Free
end;