RegisterWaitForSingleObject - wie richtig benutzen?

**SnuffMaster23**

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...

RegisterWaitForSingleObject - wie richtig benutzen?

RegisterWaitForSingleObject - wie richtig benutzen?

Forumregeln