Thema: Delphi Dateizugriff mit Dienst

Einzelnen Beitrag anzeigen

Benutzerbild von Manzoni
Manzoni

Registriert seit: 15. Feb 2004
Ort: Berlin
120 Beiträge
 
Delphi 7 Enterprise
 
#1

Dateizugriff mit Dienst

  Alt 8. Sep 2006, 17:37
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
Bob
  Mit Zitat antworten Zitat