So sieht übrigens die Funktion aus, die ich in meinen Programmen zum Kopieren und Löschen verwende:
Code:
function ShellCmd(const hwndParent: HWND; dwFunction: dword;
dwFlags: dword; szFrom, szTo: string): integer;
var
SHFileOp : TSHFileOpStruct;
begin
ZeroMemory(@SHFileOp,sizeof(SHFileOp));
SHFileOp.Wnd := hwndParent;
SHFileOp.wFunc := dwFunction;
SHFileOp.pFrom := pchar(szFrom + #0);
SHFileOp.pTo := pchar(szTo + #0);
SHFileOp.fFlags := dwFlags;
Result := SHFileOperation(SHFileOp);
end;
Entweder hat Borland das als bool eingebunden, oder ich habe die Prüfung vergessen. Aber wie auch immer, ich habe keine Schwierigkeiten beim Löschen von Ordnern.