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]