COM

HRESULT CShellLink::CreateLink(LPCSTR lpszPathObj, LPCSTR lpszPathLink, LPCSTR lpszDesc, LPCSTR lpszArgs) 
{ 
	HRESULT hres; 
	IShellLink* psl; 
	::CoInitialize(NULL);
		// Get a pointer to the IShellLink interface. 
	hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, 
		IID_IShellLink, (LPVOID*)&psl); 
	if (SUCCEEDED(hres)) 
	{ 
		
		IPersistFile* ppf; 

		// Set the path to the shortcut target and add the description. 
		psl->SetPath(lpszPathObj); 
		psl->SetDescription(lpszDesc); 
		psl->SetArguments(lpszArgs);

		// Query IShellLink for the IPersistFile interface for saving the 
		// shortcut in persistent storage. 
		hres = psl->QueryInterface(IID_IPersistFile, (LPVOID*)&ppf); 

		if (SUCCEEDED(hres)) 
		{ 
			WCHAR wsz[MAX_PATH]; 

			// Ensure that the string is Unicode. 
			if ( ! MultiByteToWideChar(CP_ACP, 0, lpszPathLink, -1, wsz, MAX_PATH)) {
				DisplayLastError();
			} else {

				// Save the link by calling IPersistFile::Save.
				hres = ppf->Save(wsz, TRUE); 
				if ( ! SUCCEEDED(hres)) {
					DisplayLastError();
				}
			}		
			ppf->Release(); 
		} 
		psl->Release(); 
	} 
	return hres; 
}