创建桌面快捷方式
2013-04-14 17:57
274 查看
uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl;
procedure TForm1.N2Click(Sender: TObject);
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
StartupFilename : String;
LinkFilename : WideString;
begin
//创建快捷方式到桌面
StartupFilename :=Application.ExeName;
tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink;//取得接口
tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(StartupFilename));//设定所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));//设定工作目录
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//获得桌面的Itemidlist
tmpSLink.SetDescription(’我的程序的描述);
tmpSLink.SetIconLocation(Pchar(StartupFilename),0);
SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
LinkFilename := StartupDirectory + ’\我的程序.lnk’;
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件
end;
由于我们是通过OLE Interface实现此功能的,因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。
在单元的声明部分加入以下代码:
其中,ProgramPath是快捷方式的目标文件的全路径(包括文件名和路径);
ProgramArg是目标文件的参数;LinkPath是快捷方式的全路径;Descr是对此快捷方式的描述。
在单元的实现部分加入以下代码:
procedure TForm1.N2Click(Sender: TObject);
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
StartupFilename : String;
LinkFilename : WideString;
begin
//创建快捷方式到桌面
StartupFilename :=Application.ExeName;
tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink;//取得接口
tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(StartupFilename));//设定所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));//设定工作目录
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//获得桌面的Itemidlist
tmpSLink.SetDescription(’我的程序的描述);
tmpSLink.SetIconLocation(Pchar(StartupFilename),0);
SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
LinkFilename := StartupDirectory + ’\我的程序.lnk’;
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件
end;
如何用Delphi创建快捷方式
由于我们是通过OLE Interface实现此功能的,因此在程序单元的uses语句中要加入ComObj、ActiveX和ShlObj这三个单元。
在单元的声明部分加入以下代码:
procedure CreateLink(ProgramPath, ProgramArg, LinkPath, Descr: String); |
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生成 一个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; 以上编写了一个通用函数,下面我们用它来创建快捷方式。在窗体中放置一 个按钮,双击按钮写入如下代码即可: procedure 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; |
相关文章推荐
- Android_如何为一个app创建桌面快捷方式
- 创建应用快捷方式到桌面
- 用php或asp创建网页桌面快捷方式的代码
- Mac Lion 10.7.2创建桌面快捷方式
- ubuntu创建桌面快捷方式
- Android创建和删除桌面快捷方式
- [安装部署]如何让用户自己选择是否在桌面创建快捷方式
- 【ANDROID】创建/删除桌面快捷方式
- wince创建桌面快捷方式
- Ubuntu安装火狐浏览器并创建桌面快捷方式
- Android创建和删除桌面快捷方式
- Android:桌面创建快捷方式
- Android 应用桌面快捷方式 创建 删除
- Linux系统:Ubuntu下如何在桌面创建一个应用程序的“快捷方式”?
- win7系统怎么在桌面上快速创建网页快捷方式
- Android应用添加(创建)和删除及判断是否存在桌面快捷方式
- delphi编程创建桌面快捷方式
- ubuntu创建桌面快捷方式步骤和注意事项
- 创建桌面快捷方式
- ubuntu系统下创建软件桌面快捷方式