Ordner verwendet - "gelockt"

[Delphi-Freak]

Nachdem ich es mit Hilfe von dem mit Dateien geschafft habe bräuchte ich es auch für Ordner. Ich möchte wissen, ob ich sie umbenennen bzw. löschen kann. Geht das nur mit dem wirklichen Umbenennen - und wenns funktioniert hat dann wieder zurückbenennen - oder gibts da eine bessere Methode?

LG, ich

[sakura]

Ich denke mal, dass Du für jede darin enthaltene Datei überprüfen musst, ob diese evtl. in Benutzung ist ;) Oder versuche einfach mal FileExists mit DirectoryExists zu ersetzen. Der Rest geht auch mit Foldern ;)

...:cat:...

[Delphi-Freak]

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 :thumb:

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