一个文件改了名字，快捷指引路径怎么用Delphi实现？

[qq_27156679]

例子：d:\ aaa.txt, 桌面有个快捷方式 A, 我把aaa.txt改名称 ccc.TXT ,
我这快捷键如何重新指引到改名后的文件中。

想用Delphi实现，谢谢！

[qq_27156679]

OK 了 首选删除（DeleteFile （FILENAME））旧的快捷方式，然后调用下面的方法生成一个新的快捷方式。 ---------

procedure TForm1.CreateLinkFile(SourceFile, ShortCutName, Description: string);
var
  IUnk: IUnknown;
  ShellLink: IShellLink;
  IPFile: IPersistFile;
  tmpShortCutName: string;
  WideStr: WideString;
  i: integer;
begin
  if SUCCEEDED(CoInitialize(nil)) then
  begin
    IUnk := CreateComObject(CLSID_ShellLink);
    ShellLink := IUnk as IShellLink;
    IPFile := IUnk as IPersistFile;

    with ShellLink do
    begin
      SetPath(PChar(SourceFile)); //执行程序的文件名
      SetDescription(PChar(Description)); //提示说明文本
      SetWorkingDirectory(PChar(ExtractFilePath(SourceFile))); //启动目录
    end;
    ShortCutName := ChangeFileExt(ShortCutName, '.lnk');

    if FileExists(ShortCutName) then //如果文件名存在，就以数据序号来重新命名一个新的文件名
    begin
      ShortCutName := Copy(ShortCutName, 1, Length(ShortCutName) - 4);
      i := 1;
      repeat
        tmpShortCutName := ShortCutName + '(' + IntToStr(i) + ').lnk';
        Inc(i);
      until not FileExists(tmpShortCutName);
      WideStr := tmpShortCutName;
    end
    else WideStr := ShortCutName;

    IPFile.Save(PWChar(WideStr), False);

    CoUninitialize;
  end;
end;

[leeky]

[qq_27156679]

我想结贴 散粉了，无奈没人回复！