创建快捷方式到[启动]

本文介绍了一种在Windows系统中创建程序启动项快捷方式的方法。通过Delphi代码实现,可以根据需求选择放置在当前用户或所有用户的启动文件夹,并提供详细的步骤和函数说明。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

uses ActiveX, ComObj, ShlObj;

function CreateLinkToStartUp(AppName, WorkingDirectory,
LinkFileName, Description: string; CurrentUser: Boolean = True): Boolean;
//******************************************************************************
// Function: 在开始启动里建立程序快捷方式
// Param:     AppName              string          目标
//            WorkingDirectory     string          起始位置
//            LinkFileName         string          快捷方式名
//            Description          string          备注
//            CurrentUser
//            创建到当前用户的启动里,CurrentUser设置为True
//            创建到所有用户的启动里,CurrentUser设置为False
// Return:    Boolean      True :成功    False :失败
//******************************************************************************
function GetSpecialFolderDir(const folderid: integer): string;
var
    pidl: pItemIDList;
    buffer: array[0..255] of char;
begin
    //取指定的目录项目表
    //CSIDL_STARTUP:启动
    SHGetSpecialFolderLocation(application.Handle, folderid, pidl);
    SHGetPathFromIDList(pidl, buffer); //转换成文件系统的路径
    Result := strpas(buffer);
end;
function CreateShellLink(mPath: string; mWorkingDirectory: string;
    mFileName: WideString; mDescription: string): Boolean; { 返回创建快捷方式是否成功 }
var
    vShellLink: IShellLink;
    vPersistFile: IPersistFile;
    vUnKnown: IUnKnown;
begin
    Result := True;
    try
      vUnKnown := CreateComObject(CLSID_ShellLink);
      vShellLink := vUnKnown as IShellLink;
      vPersistFile := vUnKnown as IPersistFile;
      vShellLink.SetPath(PChar(mPath));
      vShellLink.SetWorkingDirectory(PChar(mWorkingDirectory));
      vShellLink.SetDescription(PChar(mDescription));
      if ExtractFileExt(mFileName) <> '.lnk' then
        mFileName := mFileName + '.lnk';
      vPersistFile.Save(PWChar(mFileName), False);
    except
      Result := False;
    end;
end;
begin
if CurrentUser then //CurrentUser
    Result := CreateShellLink(AppName, WorkingDirectory,
      GetSpecialFolderDir(CSIDL_STARTUP) + '\' + LinkFileName, Description)
else //All User
    Result := CreateShellLink(AppName, WorkingDirectory,
      GetSpecialFolderDir(CSIDL_COMMON_STARTUP) + '\' + LinkFileName, Description);
end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值