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