在Delphi中操作快捷方式

info.IconLocation:=''''''''; //设置图标文件为本身

info.RelativePath:=''''windows''''; //相对路径

info.ShowState:=LNK_RUN_MAX; //显示最大化窗口

info.ItemIDList:=nil; //保留未用，可以不设置

strpcopy(info.WorkDirectory,extractfilepath(paramstr(0))); //设置工作目录

createLinkFile(info,''''c:\windows\desktop\project.lnk''''); //建立快捷方式

end;

5. 快捷方式的运行

有两种方法：

第一种比较简单，直接调用即可，但是受到一些制约—系统中必须存在start.exe文件：

ShellExecute(handle,''''open'''',''''start.exe'''',''''c:\windows\desktop\aaa.lnk'''','''''''',sw_hide);

第二种就是取得LNK的信息之后用ShellExecute进行调用！为简单起见，不给出详细的例子了。

以上程序在Delphi 5.0 Windows 98下通过。如果有什么意见和建议，欢迎来信讨论：

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