Nur die einzelnen Dateien zu überprüfen funktioniert nicht, weil manchmal ist es ja so, dass man zwar alle Dateien in einem Ordner löschen kann, den Ordner selbst aber nicht; sogesehen muss es sowas wie locked auch für einen Ordner direkt geben...
An den anderen Code habe ich irgendwie nicht gedacht, weil in der Hilfe gestanden ist:
Zitat:
An application cannot create a directory with CreateFile
Aber klar! Erstellen nicht, aber öffnen schon - danke, werd ich gleich probieren...
...und es funktioniert!!! DANKE
Delphi-Quellcode:
function DirInUse(const FileName: String): Boolean;
var
HFileRes: HFILE;
begin
Result := False;
if not DirectoryExists(FileName) then Exit;
HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_BACKUP_SEMANTICS, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then CloseHandle(HFileRes);
end;
LG, ich