of
0 : SLinkType := _DESKTOP;
1 : SLinkType := _STARTMENU;
2 : SLinkType := _PROGRAMS;
3 : SLinkType := _STARTUP;
4 : SLinkType := _QUICKLAUNCH;
end;
if CreateShortcut(Edit1.Text ,Edit3.Text ,SLinkType, Edit2.Text ) then
Application.MessageBox(pchar(''''快捷方式创建成功!''''),pchar(''''系统消息''''),MB_OK)
else
Application.MessageBox(pchar(''''快捷方式创建失败!''''),pchar(''''系统消息''''),MB_OK);
end;
现在按下F9编译运行这个程序，你就可以试试创建快捷方式的效果了。程序的运行效果如图2：
<P><IMG BORDER="0" SRC="http://www.jyzx.com/bbs/uploadImages/20023134353019903.jpg" WIDTH="408" HEIGHT="290"></P>
当然，你还可以把程序修改后用于你的安装系统，实现个性化的安装程序，那种感觉一定酷毕了！
程序在Windows2000、Delphi6.0下编译通过。
作者：耿百强
地址：中共河南省济源市委党校
邮政编码：454650
联系电话：0391-6666267
E-Mail:dxgbq@sohu.com
OICQ:10562208
写稿日期：2002-3-12
上一页 [1] [2] |
