Как создать ярлык на рабочем столе?

void __fastcall TPreferF::AddIconBtnClick(TObject *Sender)
{
   int Folder[2]={ CSIDL_DESKTOPDIRECTORY, CSIDL_PROGRAMS };
 
   LPITEMIDLIST id;
   if(SHGetSpecialFolderLocation(Handle, Folder[((TComponent*)Sender)->Tag], 
&id)!=NOERROR)
       return;
   char DesktopDir[MAX_PATH];
   if(SHGetPathFromIDList(id, DesktopDir)!=TRUE)
       return;
 
   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(Application->ExeName.c_str());
       psl->SetDescription('BoomCD');
       psl->SetArguments(NULL);
       psl->SetWorkingDirectory(ExtractFileDir(Application->ExeName).c_str());
       psl->SetIconLocation(Application->ExeName.c_str(), IconSlider->Value-1);
 
// Query IShellLink for the IPersistFile interface for saving the  shortcut in 
persistent storage.
       hres=psl->QueryInterface(IID_IPersistFile, &(LPVOID)ppf);
 
       if(SUCCEEDED(hres))
       {
           wchar_t wsz[MAX_PATH];
 
// Ensure that the string is ANSI.
           MultiByteToWideChar(CP_ACP, 0, 
AnsiString(AnsiString(DesktopDir)+'\BoomCD.lnk').c_str(), -1, wsz, MAX_PATH);
 
// Save the link by calling IPersistFile::Save.
            ppf->Save(wsz, TRUE);
            ppf->Release();
        }
        psl->Release();
    }
    CoUninitialize();
}