Einen Ordner komplett löschen

[Glühwürmchen]

Weiß nicht, was in den ersten Versuchen schief ging, aber die letzten 20 Versuche waren alle erfolgreich.

Vielen Dank erstmal!

[Luckie]

Einen Fehlercode auszuwerten ist nie verkehrt. Auch wenn es anscheinend immer funktioniert. Wenn es mal nicht funktioniert, weiß man wemfalls warum.

[Glühwürmchen]

Jetzt hätte ich noch ein paar Fragen zum besseren Verständnis:

function DelDir(dir: string): Boolean; {$IFDEF INLINE}INLINE;{$ENDIF} 1. Was passiert bei --> {$IFDEF INLINE}INLINE;{$ENDIF} ?

Delphi-Quellcode:

var
  fos: TSHFileOpStruct;

begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

2. Ich finde "ShFileOperation" nicht in der Hilfe. Was tut das?
3. Ich finde "ZeroMemory" nicht in der Hilfe. Was tut das?
4. Was bedeuten jeweils die Parameter?

[Luckie]

Das ist eine Windows-API Funktion, die nicht zum Delphi Sprachumfang gehört, also findet man sie auch nicht in der Delphi-Hilfe. Du musst im PSDK oder online im MSDN gucken: SHFileOperation. (Eine Suche mit Google hätte aber auch schon geholfen.) Das gleiche gilt für ZeroMemory.

[Glühwürmchen]

Habe den Code jetzt in meine Anwendung eingebaut und ausprobiert und erhalte den ReturnCode 32.
'DelDir fehlgeschlagen'.

[Luckie]

Zitat:

C:\Dokumente und Einstellungen\mp>net helpmsg 32

Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.