如何在域用户的桌面上创建一个快捷方式
发布网友
发布时间：2022-05-10 22:11
共2个回答
热心网友
时间：2023-11-06 22:02
和普通用户的快捷方式创建方法相同。
创建方法有很多，具体操作步骤如下：
一、复制粘贴快捷方式；
右击需要用来创建快捷方式的文件选择复制；
在桌面上粘贴快捷方式。
快捷方式即可在桌面上生成。
二、发送桌面快捷方式；
右击需要用来创建快捷方式的文件选择发送；
继续选择桌面快捷方式；
快捷方式即可在桌面上生成。
三、创建快捷方式
右击桌面选择新建；
点击快捷方式；
输入源文件的路径地址；
按确定后快捷方式即可在桌面上生成。
热心网友
时间：2023-11-06 22:03
由于我们是通过OLE Interface实现此功能的，因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。
在单元的声明部分加入以下代码：
以下是引用片段：
procere CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);
其中，ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);
ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述。
在单元的实现部分加入以下代码：
以下是引用片段：
procere CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String);
var
AnObj: IUnknown;
ShellLink: IShellLink;
AFile: IPersistFile;
FileName: WideString;
begin
if UpperCase(ExtractFileExt(LinkPath)) 〈〉 ′.LNK′ then //检查扩展名是否正确
begin
raise Exception.Create(′快捷方式的扩展名必须是 ′′LNK′′!′);/
/若不是则产生异常
end;
try
OleInitialize(nil);//初始化OLE库，在使用OLE函数前必须调用初始化
AnObj := CreateComObject(CLSID—ShellLink);//根据给定的ClassID生成
一个COM对象，此处是快捷方式
ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口
AFile := AnObj as IPersistFile;//强制转换为文件接口
//设置快捷方式属性，此处只设置了几个常用的属性
ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件，一般
为可执行文件
ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数
ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)))
;//目标文件的工作目录
ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述
FileName := LinkPath;//把文件名转换为WideString类型
AFile.Save(PWChar(FileName), False);//保存快捷方式
finally
OleUninitialize;//关闭OLE库，此函数必须与OleInitialize成对调用
end;
end;
以上编写了一个通用函数，下面我们用它来创建快捷方式。在窗体中放置一
个按钮，双击按钮写入如下代码即可：
procere TForm1.Button1Click(Sender: TObject);
var
tmp: array [0..MAX—PATH] of Char;
WinDir: string;
begin
GetWindowsDirectory(tmp,MAX—PATH);
WinDir:=String(tmp);
if Length(WinDir) 〉 3 then
WinDir:=WinDir+′\′;//得到Windows的目录
//在桌面上放置本程序的快捷方式
CreateLink(ParamStr(0),′′,WinDir+′desktop\′+Application.Tit
le+′.lnk′,′Application.Title′);
end;
