D2007, SHFileOperation, fo_delete, Fehler 1026

[hoika]

Hallo,

folgender Code gibt mir bei einem leeren Verzeichnis 1026 zurück, warum ?

Delphi-Quellcode:

function DelTree(const theDirName: String): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf         : array [0..255] of char;
  sDirName       : String;
  iResult        : Integer;
begin
  Result:= False;

  sDirName:= theDirName;
  if Copy(sDirName,1,1)<>'"' then
  begin
    sDirName:= '"'+sDirName+'"';
  end;

  try
    Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
    FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
    StrPCopy(DirBuf, sDirName+#0) ;
    with SHFileOpStruct do
    begin
      Wnd := 0;
//      pFrom := @DirBuf;
      pFrom := PChar(sDirName+#0);
      wFunc := FO_DELETE;
//    fFlags := FOF_ALLOWUNDO;
      fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
    end;
    iResult:= SHFileOperation(SHFileOpStruct);
    Result := iResult=0 ;
  except
  end;
end { DelTree } ;

Danke


Heiko