在Delphi中操作快捷方式

end;

end;

2)建立快捷方式函数CreateLinkFile

说明：第一个参数为一个LINK_FILE_INFO结构，你必须进行初始化，第二个参数为要保存快捷方式的文件名，默认为相同目录下的同名的LNK文件。

原型：

function CreateLinkFile(const info:LINK_FILE_INFO;const DestFileName:string=''''''''):boolean;

var

anobj:IUnknown;

shlink:IShellLink;

pFile:IPersistFile;

wFileName:widestring;

begin

wFileName:=destfilename;

anobj:=CreateComObject(CLSID_SHELLLINK);

shlink:=anobj as IShellLink;

pFile:=anobj as IPersistFile;

shlink.SetPath(info.FileName);

shlink.SetWorkingDirectory(info.WorkDirectory);

shlink.SetDescription(info.Description);

shlink.SetArguments(info.Arguments);

shlink.SetIconLocation(info.IconLocation,info.IconIndex);

shlink.SetHotkey(info.HotKey);

shlink.SetShowCmd(info.ShowState);

shlink.SetRelativePath(info.RelativePath,0);

if DestFileName='''''''' then

wFileName:=ChangeFileExt(info.FileName,''''lnk'''');

result:=succeeded(pFile.Save(pwchar(wFileName),false));

end;

3)函数

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!