uses ... ComObj, ShlObj,registry;
procedure MakeLink(proName,lnkName,Description : String);
var
WorkDir, DestName: String;
aReg : TRegistry;
aObj : IUnknown;
MyLink : IShellLink;
MyPFile: IPersistFile;
WFileName: WideString;
begin
aReg := TRegistry.create;
aReg.RootKey:=HKey_Current_User;
aReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
// DestName := aReg.ReadString('Programs') + '\'+lnkName;
DestName := 'C:\WINDOWS\Start Menu\Programs\启动\'+ lnkName;
aReg.Closekey; aObj := CreateComObject(CLSID_ShellLink);
MyLink := aObj as IShellLink;
MyPFile := aObj as IPersistFile; WorkDir:= ExtractFilePath(proName);
with MyLink do //操作IShellLink类
begin
//设置显示窗口的类型
SetShowCmd(SW_NORMAL);
{ 对DOS程序,一般建议使用SetShowCmd(SW_SHOWMAXIMIZED); }
// 设置命令行参数
SetArguments('');
// 设置描述
SetDescription(pChar(Description));
// 设置程序名称[全路径,如果在系统Path中,可直接为程文件名]
SetPath(pChar(proName));
// 设置工作目录
SetWorkingDirectory(pChar(WorkDir));
end; //取.LNK文件的位置
CreateDir(ExtractFilePath(DestName));
//建立快捷方式: .LNK文件
WFileName := DestName; //将一个String赋给WideString,转换过程由Delphi自动完成
MyPFile.Save(PWChar(WFileName), False);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MakeLink('c:\windows\notepad.exe','相关测试.lnk','c:\windows\notepad.exe');
//变成你的执行程序路径
end;
procedure MakeLink(proName,lnkName,Description : String);
var
WorkDir, DestName: String;
aReg : TRegistry;
aObj : IUnknown;
MyLink : IShellLink;
MyPFile: IPersistFile;
WFileName: WideString;
begin
aReg := TRegistry.create;
aReg.RootKey:=HKey_Current_User;
aReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False);
// DestName := aReg.ReadString('Programs') + '\'+lnkName;
DestName := 'C:\WINDOWS\Start Menu\Programs\启动\'+ lnkName;
aReg.Closekey; aObj := CreateComObject(CLSID_ShellLink);
MyLink := aObj as IShellLink;
MyPFile := aObj as IPersistFile; WorkDir:= ExtractFilePath(proName);
with MyLink do //操作IShellLink类
begin
//设置显示窗口的类型
SetShowCmd(SW_NORMAL);
{ 对DOS程序,一般建议使用SetShowCmd(SW_SHOWMAXIMIZED); }
// 设置命令行参数
SetArguments('');
// 设置描述
SetDescription(pChar(Description));
// 设置程序名称[全路径,如果在系统Path中,可直接为程文件名]
SetPath(pChar(proName));
// 设置工作目录
SetWorkingDirectory(pChar(WorkDir));
end; //取.LNK文件的位置
CreateDir(ExtractFilePath(DestName));
//建立快捷方式: .LNK文件
WFileName := DestName; //将一个String赋给WideString,转换过程由Delphi自动完成
MyPFile.Save(PWChar(WFileName), False);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MakeLink('c:\windows\notepad.exe','相关测试.lnk','c:\windows\notepad.exe');
//变成你的执行程序路径
end;
解决方案 »
- 关于ListView点击了某行第一次触发OnSelectItem,第二次再次点击该行则无触发OnSelectItem事件问题。。
- 关于DBGridEH的编辑状态(想要可以直接 ctrl + V )
- 如何获取屏幕上当前最前面的一幅图像从左上角到右下角的每一个像素 RGB 的值?
- 我在Delphi中怎么复制不到图像
- 我是新手,遇到一个和教材上不同的问题,高手请指教!!!(50分)
- 关于对象生命期
- Tactionlist的问题。为什么不识别SENDER啊
- 急死我了,我怎麼也進不去Enterprise Manager ,誰指導指導????
- 新手求教。。。
- 关闭窗口
- 日期型变量如何相加,比如我想在1990-1-1上加上一个月或一天?
- 對我是大問題對你可能是小問題!!!送100分
应该为
DestName := 'C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch'+ lnkName; ///win98