⤷ Detect changings of a directory

Use FindFirstChangeNotification function for detecting of changing (creating/removing) directory.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Dir: string;
begin
  Dir:=Edit1.Text;
  if FindFirstChangeNotification(
       PChar(Dir),
       False,
       FILE_NOTIFY_CHANGE_DIR_NAME)<>INVALID_HANDLE_VALUE then
    Label1.Caption:=Dir+' directory presents'
  else
    Label1.Caption:=Dir+' directory absents';
end;
More for developers