Creating and Resolving shell links

// This is the main DLL file.

#include "stdafx.h"
#using <mscorlib.dll>
#include <Shlobj.h>
#include <crtdbg.h>
#include <atldef.h>
#include <atlconv.h>

#include "ShortCut.h"


HRESULT ShortCutLib::ShortCut::_CreateLink(LPCWSTR FilePath, 
    LPCWSTR LnkPath, LPCWSTR LnkDesc,LPCWSTR WorkDir) 
{ 
	USES_CONVERSION;
	CoInitialize(NULL);
    IShellLink* psl; 		    
    HRESULT  hres = CoCreateInstance(CLSID_ShellLink, NULL, 
        CLSCTX_INPROC_SERVER, IID_IShellLink, (LPVOID *) &psl); 
    if (SUCCEEDED(hres)) 
	{ 
        IPersistFile* ppf; 
         
        psl->SetPath(W2A(FilePath)); 
		psl->SetWorkingDirectory(W2A(WorkDir));
        psl->SetDescription(W2A(LnkDesc)); 
	        
        hres = psl->QueryInterface(IID_IPersistFile,(LPVOID*)&ppf); 
 
        if (SUCCEEDED(hres)) 
		{    
            hres = ppf->Save(LnkPath, TRUE); 
            ppf->Release(); 
        } 
        psl->Release(); 
    }	
	CoUninitialize();
    return hres; 
} 

HRESULT ShortCutLib::ShortCut::_ResolveLink(LPCWSTR LnkFile, LPWSTR FilePath,LPWSTR LnkDesc,LPWSTR WorkDir) 
{ 
	CoInitialize(NULL);
    HRESULT hres; 
    IShellLink* psl; 
	WIN32_FIND_DATA wfd; 
    char strfilepath[MAX_PATH];     
	char strlnkdesc[INFOTIPSIZE];
	char strworkdir[MAX_PATH];

	USES_CONVERSION;
 
    hres = CoCreateInstance(CLSID_ShellLink, NULL, 
        CLSCTX_INPROC_SERVER, IID_IShellLink, (LPVOID *) &psl); 
    if (SUCCEEDED(hres)) 
	{ 
        IPersistFile* ppf;         
        hres = psl->QueryInterface(IID_IPersistFile, (LPVOID *)&ppf); 
        if (SUCCEEDED(hres)) 
		{ 
            hres = ppf->Load(LnkFile, STGM_READ); 
            if (SUCCEEDED(hres)) 
			{               
                hres = psl->Resolve(GetDesktopWindow(), 0); 
                if (SUCCEEDED(hres)) 
				{ 
                    hres = psl->GetPath(strfilepath,MAX_PATH, &wfd, 
                        SLGP_UNCPRIORITY );                                       
					
					if (SUCCEEDED(hres)) 
					{			
						wcscpy(FilePath, A2W(strfilepath)); 
						hres = psl->GetDescription(strlnkdesc,INFOTIPSIZE);						
					}

					if (SUCCEEDED(hres)) 
					{
						wcscpy(LnkDesc,A2W(strlnkdesc));
						hres = psl->GetWorkingDirectory(strworkdir,MAX_PATH);							
					}

					if (SUCCEEDED(hres)) 
					{
						wcscpy(WorkDir,A2W(strworkdir));
					}
                } 
            }         
        ppf->Release(); 
        }     
    psl->Release(); 
    } 
	CoUninitialize();
    return hres; 
}