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

void CreateLink(String PathObj,String WorkDir,WideString PathLink,
                     String Description,String Arguments,
                     int ShowCmd)
{
 HRESULT hres;
 IShellLink *NewLink;
 CoInitialize(NULL);
 hres = CoCreateInstance(CLSID_ShellLink, NULL,
           CLSCTX_INPROC_SERVER, IID_IShellLink, (void **)&NewLink);
 if(SUCCEEDED(hres))
   {
     NewLink->SetPath(PathObj.c_str());
     NewLink->SetWorkingDirectory(WorkDir.c_str());
     NewLink->SetDescription(Description.c_str());
     NewLink->SetArguments(Arguments.c_str());
     NewLink->SetShowCmd(ShowCmd);
     IPersistFile *ppf;
     NewLink->QueryInterface(IID_IPersistFile, (void**)&ppf);
     char StartPath[MAX_PATH];
  LPITEMIDLIST pidl;
  SHGetSpecialFolderLocation(NULL, CSIDL_DESKTOP, &pidl);
  SHGetPathFromIDList(pidl, StartPath);
     PathLink =StartPath;
     ppf->Save(PathLink, true);
     ShowMessage(PathLink);
   }
 CoUninitialize();
}
void __fastcall TMain::Button17Click(TObject *Sender)
{
CreateLink(Application->ExeName,ExtractFileDir(Application->ExeName),"ßðëûê.lnk",L"Îïèñàíèå","",SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------