获取快捷方式里面的参数（BCB）_查看快捷方式参数的命令-优快云博客

本文介绍了一种使用Delphi从快捷方式(lnk)文件中提取应用程序路径及参数的方法。通过示例代码展示了如何利用Windows API函数实现这一过程。

写之前搜出了n多结果，不是delphi代码就是只有创建和删除的，没有获取参数的，而且不是很好，只好自己研究了……

例子是用WCHAR传入的，未做文件名检查，默认为传入的一定是lnk文件，比如”d:/rungame.lnk”

头文件需要包含#include <shlobj.h>，并在cpp文件的顶部加上#define NO_WIN32_LEAN_AND_MEAN

void __fastcall GetLnkInfo(const WCHAR* FileName)
{
   CoInitialize( 0 );

   IShellLinkW* psl;
   IPersistFile* ppf;

   WCHAR Arg[INFOTIPSIZE];
   WCHAR AppPath[1024];

   CoCreateInstance( CLSID_ShellLink, 0, CLSCTX_INPROC_SERVER, IID_IShellLinkW, (void **)&psl );
   psl->QueryInterface( IID_IPersistFile, (void**)&ppf );
   ppf->Load( FileName, STGM_READ );
   psl->GetPath( AppPath, 1024, 0, SLGP_UNCPRIORITY );//得到参数
   psl->GetArguments( Arg, INFOTIPSIZE );//得到全路径
   //把下面改成自己的就可以了
   AppNameEdit->Text = AppPath;
   ArgEdit->Text = Arg;

   ppf->Release();
   psl->Release();

   CoUninitialize();
}