|
info:LINK_FILE_INFO;
begin
strpcopy(info.filename,paramstr(0)); //快捷方式的目标文件名
info.Arguments:=''''/paramstr''''; //设置程序运行的参数
info.Description:=''''Test For Link File''''; //描述
info.HotKey:=0; //没有热键
info.IconIndex:=0; //第一个图标
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下通过。如果有什么意见和建议，欢迎来信讨论：
E_Mail:Kingron@163.net
上一页 [1] [2] [3]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
