获取快捷方式的目标和参数

    我看了Michael Taupitz关于建立快捷方式的方法，我认为有很多时候当我
们在命令行模式中偶然发现一个快捷方式的时候，我们不知道这个.lnk文件指
向什么地方。

我写了一个函数，它以CString的形式返回了.lnk文件的目标和参数。

CString GetShortcutTarget(const CString LinkFileName)
{
HRESULT hres;

CString Link, Temp = LinkFileName;
Temp.MakeLower();
if (Temp.Find(".lnk")==-1)           //Check if the name ends with .lnk
Link = LinkFileName + ".lnk";   //if not, append it
else
Link = LinkFileName;

CString Info;
Info.Empty();

IShellLink* psl;

//Create the ShellLink object
hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
IID_IShellLink, (LPVOID*) &psl);

if (SUCCEEDED(hres))
{
IPersistFile* ppf;
//Bind the ShellLink object to the Persistent File
hres = psl->QueryInterface( IID_IPersistFile, (LPVOID *) &ppf);
if (SUCCEEDED(hres))
{
WORD wsz[MAX_PATH];
//Get a UNICODE wide string wsz from the Link path
MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, Link, -1, wsz,      MAX_PATH);

//Read the link into the persistent file
hres = ppf->Load(wsz, 0);

if (SUCCEEDED(hres))
{
//Read the target information from the link object
//UNC paths are supported (SLGP_UNCPRIORITY)
psl->GetPath(Temp.GetBuffer(1024), 1024, NULL,               SLGP_UNCPRIORITY);
Temp.ReleaseBuffer();
Info = Temp;

//Read the arguments from the link object
psl->GetArguments(Temp.GetBuffer(1024), 1024);
Temp.ReleaseBuffer();
Info += " " + Temp;
}
}
}
psl->Release();
//Return the Target and the Argument as a CString
return Info;
}

原文转自：http://www.ltesting.net