Wenn sich keine Datei in dem Ordner befindet, wird gesagt das eine drin ist
Hier ist mein Versuch:
Delphi-Quellcode:
mHandle := FindFirstChangeNotification(PChar('
E:\temp'),
False,(FILE_ACTION_ADDED)
and (
not FILE_ACTION_REMOVED));
if (mHandle = INVALID_HANDLE_VALUE)
then begin
exit;
end;
If WaitForSingleObject(
Handle, 500) = WAIT_OBJECT_0
Then begin
if (FindNextChangeNotification(mHandle))
then begin
ShowMessage('
Objekt ist vorhanden');
end else begin
ShowMessage('
Objekt ist nicht vorhanden');
end;
end;
FindCloseChangeNotification(mHandle);
Wie gesagt wenn keine Datei drin ist, dann kommt die Meldung Objekt ist vorhanden.
Aber ich muss auch ehrlich sagen, dass ich das ganze noch nicht recht verstehe.
Denn es ist auch die Frage wie ich den Dateiname bekomme.