Ordner überwachen

[mmw]

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ß

[himitsu]

https://torry.net/authorsmore.php?id=4053 * https://www.delphipraxis.net/165565-...rychanges.html
aber sowas gibt/gab es auch von jemand Anderem
https://github.com/ghquant/Delphi-Em...DirMonitor.pas

Ansonsten gibt es überall massig Infos zu
ReadDirectoryChangesW
und inzwischen auch
ReadDirectoryChangesExW
oder zu
FindFirstChangeNotification

ebenso zum Auslesen des
NTFS change journal

Andere arbeiten mit einem FilterTreiber, welcher sich vor das Dateisystem hängt
SysInternals - Process Monitor / DiskMon

Und ganz nett ist auch das Windows-EventLog, welches ähnliche Ergebnisse zum Process Monitor liefert.
-> Kann teilweise im Windows Ressoucenmonitor bestaunt werden.




Wayback liefert noch mehr, aber man muß sich ganz schön durch die Zeitachse hangeln, um es zu finden.

Luckie hatte auch eine Unit zum ReadDirectoryChangesW, aber wie geagt, benötigt sie ein/zwei Anpassung bezüglich ANSI->Unicode.

Ansonsten hab ich ein komplettes (externes) Backup seiner Webseiten und die nichtmal 90MB zu hosten wäre kein Problem,
nur bräuchte ich erstmal ein paar ruhige Minuten, da sich dort auch einige externe Inhalte/Webseiten eingeschmuggelt hatten, welche erstmal entfernt werden sollten.
Ohh, www.xpusermanager.de ist komplett tot und kein Domaingrabber hat sich die Domain gekrallt ,
aber wie schon erwähnt, hatte Michael dessen Quellcode schon vorher veröffentlichen lassen. https://github.com/jaenicke/usermanager

[joehd]

Also in Puff Backup Zip ist im Wesentlichen nur die Indexdatei, sonst nichts, wenn ich das richtig sehe ...

[joehd]

Zitat von mmw:

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);

Gruß

zu #13
DANKE !!!!

[himitsu]

ja, nur die Übersicht was drin wäre ... wie gesagt, muß erst noch bissl was löschen
(die Datei ist auch ein "bissl" kleiner, also die 90MB, bzw. 65MB gepackt )