Delphi-Quellcode:
type
TfnWaitOrTimerObject = procedure(lpParameter: pointer; TimerOrWaitFired: ByteBool); stdcall;
function RegisterWaitForSingleObject(
var hNewWaitObject: THandle;
hObject: THandle;
callback: TfnWaitOrTimerObject;
context: Pointer;
dwMilliseconds: DWORD;
dwFlags: DWORD): BOOL; stdcall; external 'kernel32.dll';
.
.
.
TheHandle := FindFirstChangeNotification(PChar(pathEdit.Text), subdirCheckBox.Checked, FILE_NOTIFY_CHANGE_LAST_WRITE);
RegisterWaitForSingleObject(TheHandle, TheHandle, UploadFile, nil, INFINITE, 0)
Es funktioniert schonmal dass ich Änderungen im überwachten Verzeichnis mitkrieg, nur der Haken an der Sache ist, die Callback-Funktion wird immer und immer wieder aufgerufen sobald einmal was passiert is...