Hallo Gemeinde,
irgendwo klemmt es bei folgenden Problem:
In einem Ordner liegt ein Internetlink. Mein Programm soll (unter anderem) Dateien umbenennen können.
Immer wenn dies mit dem Internetlink passieren soll, dann gibt
shFileOperation einen Fehler zurück (1026).
Das sollte bedueten:
$402: Result:='Ein unbekannter Fehler ist aufgetreten. Dies tritt typischerweise bei einem defekten Quell- oder Zielpfad auf.';
Im Explorer kann man den Link umbenennen.
Hat jemand einen Hinweis, warum es nicht geht?
Folgender Code wird verwendet:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Path : string;
OldFileName: string;
NewFileName: String;
fos : TSHFILEOPSTRUCT;
err : integer;
begin
Path:='C:\Daten';
OldFileName:='http--www.delphipraxis.net-download.phpid=29412';
NewFileName:='Link zu Delphi-Praxis';
ZeroMemory(@fos, SizeOf(fos));
fos.Wnd :=0;
fos.pFrom :=pAnsiChar(Path+'\'+OldFileName+#0#0);
fos.pTo :=pAnsiChar(Path+'\'+NewFileName+#0#0);
fos.fFlags:=FOF_NOERRORUI;
fos.wFunc :=FO_RENAME;
err:=shFileOperation(FOS);
if err>0 then showmessage(IntToStr(err));
end;
Es sieht so aus, als wäre der Link nicht als Datei vorhanden??