Delphi 创建快捷方式

最新推荐文章于 2025-11-13 16:21:37 发布

原创最新推荐文章于 2025-11-13 16:21:37 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用Delphi创建软件桌面快捷方式和开始菜单项的方法。通过创建ComObject并利用IShellLink和IPersistFile接口，可以实现指定路径下执行文件的快捷方式创建。此过程涉及注册表读取和文件保存操作。

最近在写一个软件的安装程序，快捷方式如下。亲测有效~~

procedure TOne.createLnk(Sender: TObject);
var
  AnObj: IUnknown;
  ShLink: IShellLink;
  PFile: IPersistFile;
  FileName: string;
  WFileName: WideString;
  Reg: TRegIniFile;
begin
    AnObj := CreateComObject (CLSID_ShellLink);
    ShLink := AnObj as IShellLink;
    PFile := AnObj as IPersistFile;
    
    // 得到执行程序的完整路径及文件名
    filename:='*****';
    
    ShLink.SetPath (PChar (FileName));
    ShLink.SetWorkingDirectory (PChar (
    ExtractFilePath (FileName)));
    
    //创建桌面快捷方式
    Reg := TRegIniFile.Create(
      'Software\MicroSoft\Windows\CurrentVersion\Explorer');
    WFileName := Reg.ReadString ('Shell Folders', 'Desktop', '') +
      '\' + extractFilename(filename)+ '.lnk';
    Reg.Free;
    PFile.Save (PWChar (WFileName), False);

    //创建“开始”菜单
    Reg := TRegIniFile.Create(
      'Software\MicroSoft\Windows\CurrentVersion\Explorer');
    WFileName := Reg.ReadString ('Shell Folders', 'Start Menu', '') +
      '\' + extractFilename(filename) + '.lnk';
    Reg.Free;
    PFile.Save (PWChar (WFileName), False);
end;

*************************************

uses ComObj, ActiveX, ShlObj, Registry;