[TSHFileOpStruct] AV beim löschen eines Ordners

[xZise]

Zitat von CCRDude:

Ohne es jetzt ausprobiert zu haben, aber Operation.pTo ist undefiniert, wer weiß was dort gerade drinsteht...?

Also bisher habe ich es nirgends mit pTo gefunden.

Zitat von DeddyH:

Die AV bekomme ich auch. Wenn ich aber das #0 weglasse, geht es.pFrom := PChar(AFile);

Hmm... Jetzt löscht er, wenn er gerade Lust hat einen Ordner :/

Zitat von 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

Ich werds mal probieren.