.lnk是什么文件 ?

.lnk是什么文件 ?

windows的很多lnk文件(也就是快捷方式)都是带有参数的,但是自己并不真正了解,不知道有谁知道?自己通过实践摸索出一些,希望能给大家带来帮助:/play—在打开连接后自动运行媒体文件"%1"—打开连接后自动出现文件选取框选择文件/Play"%L"—打开winamp后自动出现List选择框选择文件播放列表______________________________________如何通过lnk文件获取该文件的执行路径和程序functionLinkFileInfo(constln):boolean; :=false;getmem(buf,MAX_PATH);tryifSU...全部

  windows的很多lnk文件(也就是快捷方式)都是带有参数的,但是自己并不真正了解,不知道有谁知道?自己通过实践摸索出一些,希望能给大家带来帮助:/play—在打开连接后自动运行媒体文件"%1"—打开连接后自动出现文件选取框选择文件/Play"%L"—打开winamp后自动出现List选择框选择文件播放列表______________________________________如何通过lnk文件获取该文件的执行路径和程序functionLinkFileInfo(constln):boolean; :=false;getmem(buf,MAX_PATH);tryifSUCCEEDED(CoInitialize(nil))thenif(succeeded(cocreateinstance(clsid_shelllink,nil,clsctx_inproc_server,IID_IShellLinkA,psl)))thenbeginhr:=psl。
  QueryInterface(iPersistFile,ppf);ifsucceeded(hr)thenbeginlpw:=stringtowidechar(lnkfilename,buf,MAX_PATH);hr:=ppf。
  Load(lpw,STGM_READ);ifsucceeded(hr)thenbeginhr:=psl。Resolve(0,SLR_NO_UI);ifsucceeded(hr)thenbeginifbSetthenbeginpsl。
  SetArguments(info。Arguments);psl。SetDescription(info。Description);psl。SetHotkey(info。HotKey);psl。
  SetIconLocation(info。IconLocation,info。IconIndex);psl。SetIDList(info。ItemIDList);psl。SetPath(info。
  FileName);psl。SetShowCmd(info。ShowState);psl。SetRelativePath(info。RelativePath,0);psl。SetWorkingDirectory(info。
  WorkDirectory);ifsucceeded(psl。Resolve(0,SLR_UPDATE))thenresult:=true;endelsebeginpsl。GetPath(info。
  FileName,MAX_PATH,wfd,SLGP_SHORTPATH);psl。GetIconLocation(info。IconLocation,MAX_PATH,info。IconIndex);psl。
  GetWorkingDirectory(info。WorkDirectory,MAX_PATH);psl。GetDescription(info。Description,CCH_MAXNAME);psl。
  GetArguments(info。Arguments,MAX_PATH);psl。GetHotkey(info。HotKey);psl。GetIDList(info。ItemIDList);psl。
  GetShowCmd(info。ShowState);result:=true;end;end;end;end;end;finallyfreemem(buf);end;end;//*******************调用*****************showmessage(\'FileName:\'+info。
  filename+#13+\'Description:\'+info。Description+#13+\'IconFilename:\'+info。IconLocation+\',\'+inttostr(info。
  IconIndex)+#13+\'WordDir:\'+info。WorkDirectory+#13+\'Arguments:\'+info。Arguments+#13+\'ShorCuts:\'+shortcuttotext(s));info。
  WorkDirectory:=\'D:\\Borland\\Delphi5\\projects\';linkfileinfo(opendialog1。filename,info,true);end;end;==============================================functionGetLinkFileName(sLin :string):boolean; :IPersistFile;hres, :TWin32FindData;pT :PWideChar;beginResult:=false;ifSUCCEEDED(CoInitialize(nil))thenbeginCoCreateInstance(CLSID_ShellLink,nil,CLSCTX_INPROC_SERVER,IID_IShellLinkA,psl);if(SUCCEEDED(hres))thenbeginhres:=psl。
  QueryInterface(IID_IPersistFile,ppf);if(SUCCEEDED(hres))thenbeginnLen:=MultiByteToWideChar(CP_ACP,0,PChar(sLinkFileName),-1,pwLinkFileName,0);GetMem(pwLinkFileName,nLen);ZeroMemory(pwLinkFileName,nLen);MultiByteToWideChar(CP_ACP,0,PChar(sLinkFileName),-1,pwLinkFileName,nLen);ppf。
  Load(pwLinkFileName,STGM_READ);GetMem(pTargetFile,MAX_PATH);ZeroMemory(pTargetFile,MAX_PATH);hres:=psl。
  GetPath(pTargetFile,MAX_PATH,pfd,SLGP_UNCPRIORITY);if(SUCCEEDED(hres))thenbeginsTargetFileName:=StrPas(pTargetFile);Result:=true;end;FreeMem(pTargetFile);FreeMem(pwLinkFileName);end;end;end;end;。
  收起