Ordner Überwachung als Dienst mit NSSM

[oakley]

Hallo zusammen,

ich habe zum rumtesten mal eine Ordnerüberwachung geschrieben und wollte einfach eine kleine Textdatei erzeugen, in die ich hineinschreiben lasse was da gerade passiert.
Ich nutze dazu diese Klasse https://www.developpez.net/forums/at...directorywatch

Das Ganze funktioniert auch, wenn ich die exe direkt per Doppelklick starte.
Wenn ich die exe mit nssm als Dienst installiere und starte, steht in der Textdatei nur noch der Eintrag "Reading ini file..." .
Wenn ich eine Datei in das zu überwachende Verzeichnis kopiere passiert nichts.

Code:

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DirectoryWatch, IniFiles;

type
  TMFORM = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure OnNotify(const Sender: TObject; const Action: TWatchAction; const FileName: string);

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  MFORM: TMFORM;
  scanfolder : TStrings;
  INI : TIniFile;
  datei : TextFile;
  Watch : TDirectoryWatch;


implementation

{$R *.dfm}

procedure TMFORM.FormCreate(Sender: TObject);
begin
  assignfile(datei, ExtractFilePath(Application.ExeName) + 'fw.log');
  append(datei);
  writeln(datei, DateTimetoStr(now()) + ' Starting App, Path: ' + ExtractFilePath(Application.ExeName) + ', Filename: ' + ExtractFilename(Application.ExeName));
  
  INI := TINIfile.Create(ExtractFilePath(Application.ExeName) + 'dir.ini');

  scanfolder := TStringList.Create;
  INI.ReadSection('ScanDirectory', scanfolder);
  writeln(datei, DateTimetoStr(now()) + ' Reading ini file -> scanfolder: ' + scanfolder[0]);  
  closeFile(datei);

  Watch := TDirectoryWatch.Create;
  Watch.WatchOptions := [woFileName];
  Watch.WatchActions := [waAdded, waRemoved, waModified, waRenamedOld, waRenamedNew];
  Watch.Directory := scanfolder[0];
  Watch.OnNotify := OnNotify;
  Watch.Start;
end;

procedure TMFORM.OnNotify(const Sender: TObject; const Action: TWatchAction; const FileName: string);
begin
 case Action of
  waAdded:
   begin
    assignfile(datei, ExtractFilePath(Application.ExeName) + 'fw.log');
    append(datei);
    writeln(datei, DateTimetoStr(now()) + ' ' + FileName);
    closeFile(datei);    
   end;
 end;
end;

Weiß jemand evtl. woran das liegen könnte?

LG

Mirko