umbenennen Internetlink mit shFileOperation ?

[ManfredG]

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

[mirage228]

Hi,

Fehlt in beiden Dateinamen evtl. die Endung .URL bzw. .LNK (weiss nicht welches das genau war...) ? :gruebel:

mfG
mirage228

[ManfredG]

Der Link steht ohne Dateityp im Ordner; habe schon versucht etwas in der Art anzuhängen, hat aber keinen Effekt.
Irgendwie muß es damit zusammenhängen, daß es keine "richtige" Datei ist, obwohl man sich den Inhalt ansehen kann.
Habe schon weitergesucht, es könnte etwas mit einem Shortcut zu tun haben...

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Windows API / MS.NET Framework API" verschoben.
Delphi-Frage

[ManfredG]

Hallo mirage228,
dein Tip war ok. Habe in der Registrierung nachgesehen, die Ext lautet URL, hat aber einen Eintrag NeverShowExt und wird deshalb nicht angezeigt.
Hängt man die Ext an, geht das umbenennen...