Thema: Delphi Ordner überwachen

Einzelnen Beitrag anzeigen

mmw

Registriert seit: 10. Sep 2019
Ort: OWL
324 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Ordner überwachen

  Alt 6. Jan 2023, 19:13
Hallo,

zu #10

das müsste die Komponente von JUAN CARLOS MOLINOS MESA sein.

Zum installieren das Package

'DirMonitor_dpk.dpk' öffnen/kompilieren und installieren.

In der Procedure 'procedure TProcessMonitor.Execute;' musste ich die Variable 'state' wie gezeigt anpassen -

Delphi-Quellcode:
procedure TProcessMonitor.Execute;
var
  state:NativeUInt;
  quit:boolean;
  parent:TDirMonitor;
  numBytes: DWORD;
begin
  { Place thread code here }
  quit:=false;
  parent:=TDirMonitor(self.FProRef);
  while (not quit) do
  begin
    GetQueuedCompletionStatus( parent.FCompletionPort, numBytes, state, parent.FPOverlapped, INFINITE);
runtergeladen habe ich die Komponente hier.

https://www.delphipraxis.net/165565-...rychanges.html

gibt's aber auch noch bei Torry


Gruß
  Mit Zitat antworten Zitat