Service debuggen

[EagleData]

also ich hab eben mal probiert einen neuen Dienst zu erstellen mit dem folgenden Quelltext:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService2 = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
  txt_logfile: textFile;
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;

var
  Service2: TService2;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service2.Controller(CtrlCode);
end;

function TService2.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
try
   AssignFile(txt_logfile, 'sensor.log');
   Append(txt_logfile);
   DateSeparator:='/';
   Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now));
   Flush(txt_logfile);
   CloseFile(txt_logfile);
except
end;
end;

end.

Und es tritt das gleiche Problem auf. Kann man mit Diensten überhaupt auf Dateien zugreifen?

Ich schein irgendwie ein allgemeines problem zu haben, selbst wenn ich in den Dienst keinen eigenen Quelltext schreibe kommt der Fehler.