procedure TForm1.Button1Click(Sender: TObject);
var
info:LINK_FILE_INFO;
begin
if opendialog1.Execute then
if LinkFileInfo(opendialog1.FileName,info) then
begin showmessage(''''FileName:'''' info.filename #13 ''''Description:'''' info.Description #13 ''''IconFilename:'''' info.IconLocation '''','''' inttostr(info.IconIndex) #13 ''''WorkDir:'''' info.WorkDirectory #13 ''''Arguments:'''' info.Arguments #13 ''''ShorCuts:'''' shortcuttostring(info.HotKey) #13 ''''WindowState:'''' inttostr(info.ShowState) #13 ''''ItemIDList:('''' inttostr(info.itemidlist.mkid.cb) '''',('''' inttostr(info.itemidlist.mkid.abid[0]) ''''))'''');
info.WorkDirectory:=edit1.text;
linkfileinfo(opendialog1.filename,info,true);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
shellexecute(handle,''''open'''',''''start.exe'''',''''c:\windows\desktop\aaa.lnk'''','''''''',sw_hide);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
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; //第一个图标
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
