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

zusammenfalten · markieren

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...

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

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

Hallo,

wie sieht es damit aus ?

zusammenfalten · markieren

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

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 ?

zusammenfalten · markieren

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.

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