D2010, SHFileOperation, FO_DELETE -> Fehler 1026

[hoika]

Hallo,

die folgende Funktion liefert mir Fehler 1026.
Das muss irgendwas mit #0 zu tun haben.

Aber das ist doch alles richtig, oder ?

Delphi-Quellcode:

Function DelTree(DirName : string; var theErrorNo: Integer): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := PChar(DirName+#0);  // PChar liefert eine #0, wir brauchen 2
    wFunc := FO_DELETE;
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
   end;
    theErrorNo := SHFileOperation(SHFileOpStruct);
    Result:= theErrorNo=0;
   except
    Result := False;
  end;
end;

Heiko