[TSHFileOpStruct] AV beim löschen eines Ordners

[hoika]

Hallo,

wie sieht es damit aus ?

Delphi-Quellcode:

function DeleteDirectory(const AFile: string): boolean;
var
  Operation: TSHFileOpStruct;
  szFile: array[0..255] of Char;  // jaja MAXPATH oder so
begin
  StrPCopy(szFile, AFile);
  StrCat(szFile, #0);
  with Operation do
  begin
    wFunc := FO_DELETE;
    pFrom := szFile;
    fFlags := FOF_NOCONFIRMATION or FOF_NOERRORUI;
  end;
  Result := SHFileOperation(Operation) = 0;
end;

Heiko