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?