Verzeichnisse löschen

[luckystar85]

Ich lege in meinen Programm ein temp.-Verzeichnis an. Das sollte sobald ich es nicht mehr brauche auch gelöscht werden. Das mache ich mit

Delphi-Quellcode:

function loesche_Verzeichnis(Verzeichnis : string): boolean;
var 
  fos : TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.Wnd     := Application.Handle;
  fos.wFunc   := FO_DELETE;
  fos.fFlags  := FOF_NOERRORUI or FOF_SILENT or FOF_NOCONFIRMATION;
  fos.pFrom   := PChar(Verzeichnis+#0);
  Result      := SHFileOperation(fos) = 0;
end;

Aufruf:
if (not loesche_Verzeichnis(Verzeichnis_zippen.ExtrBaseDir)) then
    ShowMessage('Das Verzeichnis konnte nicht gelöscht werden');

Das Verzeichnis wird nicht gelöscht. Wenn ich mir mit GetLastError den Fehler hole kommt "Das Handle ist ungültig". Woran könnte das liegen?