Hi Leutz...
Vielleicht, habt Ihr ne Idee.. wie gesagt ich habe einen Ordner z.B.: c:\Test\123456.. wenn ich versuche den Ordner 123455 zu löschen passiert einfach gar nichts..
Source:
Code:
function DelDir(Dir : String) : Boolean;
var
FileOption : TSHFileOpStruct;
begin
ZeroMemory(@FileOption,SizeOf(FileOption));
with FileOption do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(Dir + #0);
end;
Result := (ShFileOperation(FileOption) = 0);
end;