[TSHFileOpStruct] AV beim löschen eines Ordners

[xZise]

Mit folgenden Code möchte ich einen Ordner + Inhalt löschen:

Delphi-Quellcode:

function DeleteDirectory(const AFile: string): boolean;
var
  Operation: TSHFileOpStruct;
begin
  with Operation do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar(AFile + #0);
    fFlags := FOF_NOCONFIRMATION or FOF_NOERRORUI;
  end;
  Result := SHFileOperation(Operation) = 0;
end;

Aber es gibt in der vorletzten (+end)/ letzten (-end) Zeile eine AV... Nur warum ?

PS: Es ist egal ob AFile ein schließendes "\" hat oder net...

[CCRDude]

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

[DeddyH]

Die AV bekomme ich auch. Wenn ich aber das #0 weglasse, geht es.

Delphi-Quellcode:

pFrom := PChar(AFile);

[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

[xZise]

Zitat:

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:

Zitat von DeddyH

Die AV bekomme ich auch. Wenn ich aber das #0 weglasse, geht es.

Delphi-Quellcode:

pFrom := PChar(AFile);

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

Zitat:

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.

[Hawkeye219]

Hallo Fabian,

Zitat:

Also bisher habe ich es nirgends mit pTo gefunden.

Die Aussage von Microsoft bezüglich pTo ist eindeutig:

Zitat:

This parameter must be set to NULL if it is not used.

Gruß Hawkeye