Dateizugriff mit Dienst

[Manzoni]

Hallo!

Ich versuche mit meinem Dients auf das Dateisystem zuzugreifen, doch Windows beendet den Dients gleich wieder mit der Anweisung, der Dients befinde sich im Leerlauf. Ich habe schon ähnliche Themen hier gefunden, meistens wird geraten den Dients nicht mit dem Systemkonto anmelden zu lassen, doch wie kann ich das ändern?
Folgender Code soll etwas aus einer Ini-File lesen:

Delphi-Quellcode:

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  [b]inifile.Create(ExtractFilePath(Application.ExeName)+'settings.ini');[/b]
  datei.ordner:=inifile.ReadString('Datei','Ordner','C:\');
  datei.name:=inifile.ReadString('Datei','Name','');
  programm.pfad:=inifile.ReadString('Programm','Pfad','');
  programm.parameter:=inifile.ReadString('Programm','Parameter','');
  inifile.Free;
  DirMonitor.Directory:=datei.ordner;
  DirMonitor.Active:=true;
  showMessage('OnStart');
  Started := True;
end;

Der Dients ist vom Typ stWin32. Wo liegt mein Denkfehler?

Edit: Der Fehler lag meinerseits wo anders!! Sorry

[Olli]

Soso, und du meinst, daß ein Dienst, der in einer nicht-interaktiven WindowStation läuft, eine Messagebox anzeigen sollte? Denk nochmal drüber nach ...