知识大全如何用Delphi创建快捷方式

Posted 2022-07-21 文件

篇首语：多练多乖，不练就呆。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全如何用Delphi创建快捷方式相关的知识，希望对你有一定的参考价值。

如何用Delphi创建快捷方式 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　由于我们是通过OLE Interface实现此功能的因此在程序单元的uses语句中要加入ComObj ActiveX和ShlObj这三个单元

　　在单元的声明部分加入以下代码

procedure CreateLink(ProgramPath  ProgramArg  LinkPath  Descr: String);

　　其中 ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);

　　ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述

　　在单元的实现部分加入以下代码

procedure 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生成 一个对象 此处是快捷方式 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; 以上编写了一个通用函数 下面我们用它来创建快捷方式 在窗体中放置一 个按钮 双击按钮写入如下代码即可  procedure TForm  Button Click(Sender: TObject); var tmp: array [   MAX—PATH] of Char; WinDir: string; begin GetWindowsDirectory(tmp MAX—PATH); WinDir:=String(tmp); if Length(WinDir) 〉   then WinDir:=WinDir+′\\′;//得到Windows的目录 //在桌面上放置本程序的快捷方式 CreateLink(ParamStr( ) ′′ WinDir+′desktop\\′+Application Tit le+′ lnk′ ′Application Title′); end;

cha138/Article/program/Delphi/201311/24825

知识大全 如何用Delphi创建快捷方式

知识大全如何用Delphi创建快捷方式