delphi 中如何创建快捷方式

来源：互联网发布：买卖权平价公式知乎编辑：程序博客网时间：2024/05/26 16:00

procedure TForm1.CreateUlr;
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
AnObj: IUnknown;
begin//快捷方式的初始化
AnObj := CreateComObject(CLSID_ShellLink);
ShLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
FileName := ParamStr(0);
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
ShLink.SetDescription('软件作者：nciwp'+#13#10+' 公司：常州拨云通讯'+#13#10+' 版本：V1.0');
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Desktop', '') + '/' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
Reg := TRegIniFile.Create('Software/MicroSoft/Windows/CurrentVersion/Explorer');
WFileName := Reg.ReadString('Shell Folders', 'Start Menu', '') + '/' + '常州拨云通讯人事管理系统 V1.0' + '.lnk';
Reg.Free;
PFile.Save(PWChar(WFileName), False);
end;