SHFileOperation, Ordner löschen

[Chester]

Hi @ all!


Ich hab ein Problem beim löschen eines Ordners.

Wenn ich mit SHFileOperation einen Ordner löschen will, dann kommt der Fehler

Der Ordner 'NAME' kann nicht entfernt werden: Eine Zugriffsverletzung ist aufgetreten!
Die Quell- oder Zieldatei ist möglicherweise geöffnet!


Da ich diesen Ordner nicht geöffnet habe weiss ich nicht was ich falsch mache??!!


Der Quelltext schaut so aus:

Delphi-Quellcode:

for X := 0 to Liste.Count -1 do begin
  if FileExists(Liste.Strings[x]) then begin
    with shellinfo do begin
      wnd := Application.Handle;
      wfunc := FO_DELETE;
      pFrom := PChar(Liste.Strings[x] + #0);
      pTo := nil;
    end; // End With
    SHFileOperation(shellinfo);
  end; // End If
end; // End For