1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
const
 R: array [false..true] of BOOL = (BOOL (0), BOOL (1));
var
 Notify: THandle;
 bool : boolean;
 dwWaitStatus : DWORD;
begin
 bool := True;

while bool do
  begin
    Notify:= FindFirstChangeNotification(PChar('c:\test\'), R[true], FILE_NOTIFY_CHANGE_FILE_NAME);
    if (Notify = INVALID_HANDLE_VALUE) and
       (getlasterror = ERROR_INVALID_PARAMETER) then
       begin
         button1.caption := 'ooops!';
         bool := False;
       end;
  dwWaitStatus := WaitForSingleObject( Notify, INFINITE);
  if dwWaitStatus = WAIT_FAILED then
     bool:=false;
  if dwWaitStatus = WAIT_OBJECT_0 then
    showmessage('Da war was');
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

var
  bCancel: Boolean;

procedure TForm1.Button1Click(Sender: TObject);
var
 hNotify: THandle;
 dwWaitStatus : DWORD;
begin
  bCancel := FALSE;
  hNotify:= FindFirstChangeNotification(PChar('c:\'), TRUE, FILE_NOTIFY_CHANGE_FILE_NAME);
  if hNotify = INVALID_HANDLE_VALUE then
  begin
    RaiseLastOsError();
    exit;
  end;
  while (FindNextChangeNotification(hNotify)) and (bCancel = FALSE) do
  begin
    Application.ProcessMessages;
    dwWaitStatus := WaitForSingleObject(hNotify, 1000);
    if dwWaitStatus = WAIT_FAILED then
    begin
      RaiseLastOSError();
      break;
    end;
    if dwWaitStatus = WAIT_OBJECT_0 then
      showmessage('Da war was');
  end;
  FindCloseChangeNotification(hNotify);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  bCancel := TRUE;
end;