正文描述:《如何用delphi创建快捷方式》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、如何用Delphi创建快捷方式?主题:如何用Delphi创建快捷方式?发信人: teleme(PassWord)整理人: teleme(2001-02-11 11:07:34) 站内信件如何用Delphi创建快捷方式? 发信人: tiyiwolf()在Delphi中创建快捷方式 刘栋 如果我们编写的程序能自动创建快捷方式,将大大方便用户的使用。但是如何在程序中建立快捷方式呢,下面我们给出一个实例。 由于我们是通过OLE Interface实现此功能的,因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。 在
2、单元的声明部分加入以下代码: procedure CreateLink(ProgramPath ProgramArg LinkPath Descr: String); 其中,ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述。 在单元的实现部分加入以下代码: procedure CreateLink(ProgramPath ProgramArg LinkPath Descr: String); var
3、 AnObj: IUnknown; ShellLink: IShellLink; AFile: IPersistFile; FileName: WideString; begin if UpperCase(ExtractFileExt(LinkPath)) 〈〉 '.LNK' then //检查扩展名是否正确 begin raise Exception.Create('快捷方式的扩展名必须是 ''LNK''!');//若不是则产生异常 end; try OleInitialize(nil);//
4、初始化OLE库,在使用OLE函数前必须调用初始化 AnObj := CreateComObject(CLSID—ShellLink);//根据给定的ClassID生成一个COM对象,此处是快捷方式 ShellLink := AnObj as IShellLink;//强制转换为快捷方式接口 AFile := AnObj as IPersistFile;//强制转换为文件接口 //设置快捷方式属性,此处只设置了几个常用的属性 ShellLink.SetPath(PChar(ProgramPath)); // 快捷方式的目标文件,一般为可执
5、行文件 ShellLink.SetArguments(PChar(ProgramArg));// 目标文件参数 ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(ProgramPath)));//目标文件的工作目录 ShellLink.SetDescription(PChar(Descr));// 对目标文件的描述 FileName := LinkPath;//把文件名转换为WideString类型 AFile.Save(PWChar(FileName) False);//保存快捷
6、方式 finally OleUninitialize;//关闭OLE库,此函数必须与OleInitialize成对调用 end; end; 以上编写了一个通用函数,下面我们用它来创建快捷方式。在窗体中放置一个按钮,双击按钮写入如下代码即可: procedure TForm1.Button1Click(Sender: TObject); var tmp: array [0..MAX—PATH] of Char; WinDir: string; begin GetWindowsDirectory(tmp M
7、AX—PATH); WinDir:=String(tmp); if Length(WinDir) 〉 3 then WinDir:=WinDir+'';//得到Windows的目录 //在桌面上放置本程序的快捷方式 CreateLink(ParamStr(0) '' WinDir+'desktop'+Application.Title+'.lnk' 'Application.Title'); end; [原文转载北京社区精华区],
显示全部收起
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。