Вопрос по ярлыкам

void __fastcall TFormMain::CreateProgramsLink(void)
{
  AnsiString s=Application->ExeName;
  while(1)
  {
    s=s.SubString(s.Pos("\\")+1,s.Length());
    if(s.Pos("\\") == 0)
    {
//      int i=0; // оригінал
//      i = s.Length()+1; // оригінал
      int i;
      i =s.Length()+1;
      s = Application->ExeName.SubString(1,Application->ExeName.Length()-i); // WorkingDirectory
      break;
    }
  }
// путь для размещения ярлыка
  char StartPath[MAX_PATH];
  LPITEMIDLIST pidl;
// CSIDL_DESKTOP, CSIDL_STARTUP, CSIDL_STARTMENU, CSIDL_PROGRAMS
  SHGetSpecialFolderLocation(NULL, CSIDL_PROGRAMS, &pidl);
  SHGetPathFromIDList(pidl, StartPath);
//
  HRESULT hres;
  IShellLink *psl;
  IPersistFile *ppf;
  wchar_t wsz[MAX_PATH]; //имя файла ярлыка для сохранения
  CoInitialize(NULL);
  hres = CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER, IID_IShellLink, (void**)&psl);
  if (SUCCEEDED(hres)) {
    psl->SetPath(Application->ExeName.c_str());
    psl->SetWorkingDirectory(s.c_str());
    psl->SetDescription("Ваш комментарий".c_str());
    hres = psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
    if (SUCCEEDED(hres)) {
      MultiByteToWideChar(CP_ACP, 0, (AnsiString(StartPath) + "\\" + "Название программы" + ".lnk").c_str(), -1, wsz, MAX_PATH);
//      hres = ppf->Save(wsz, true); // оригінал
      ppf->Save(wsz, true);
      ppf->Release();
    }
    psl->Release();
  }
  CoUninitialize();
  if (sCheckBox618OtherWarnings->Checked)
    Application->MessageBox("Этикетка добавлена".c_str(), "Название программы".c_str(), MB_OK + MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::RemoveProgramsLink(void)
{
// удалить ярлык
  TCHAR buf[MAX_PATH];
  LPITEMIDLIST pidl;
  SHGetSpecialFolderLocation(Handle, CSIDL_PROGRAMS, &pidl);
  SHGetPathFromIDList(pidl, buf);
  lstrcat(buf,"\\");
  lstrcat(buf,("Название программы" + ".lnk").c_str());
  DeleteFile(buf);
  if (sCheckBox618OtherWarnings->Checked)
    Application->MessageBox("Этикетка удалена".c_str(), "Название программы".c_str(), MB_OK + MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------

#define NO_WIN32_LEAN_AND_MEAN
#include <shlobj.h>
void __fastcall TForm1::pehat2(const AnsiString &file)
{
IShellLink* pLink;
    IPersistFile* pPersistFile;
    LPMALLOC      ShellMalloc;
    LPITEMIDLIST  DesktopPidl;
    char DesktopDir[MAX_PATH];
 
    // Мы собираемся получить pidl и нам нам нужен shell mallocator.
    // Получим shell mallocator используя API-функцию SHGetMalloc.
    if(FAILED(SHGetMalloc(&ShellMalloc)))
        return;
 
    // используем API для получения pidl для папки рабочема стола
    // если ошибка выполнения функции - выходим
    if(FAILED(SHGetSpecialFolderLocation(NULL,
                                         CSIDL_DESKTOPDIRECTORY,
                                         &DesktopPidl)))
        return;
 
    // Теперь переведем pidl в строку символов
    // выходим если произошла ошибка выполнения функции
    if(!SHGetPathFromIDList(DesktopPidl, DesktopDir))
    {
        ShellMalloc->Free(DesktopPidl);
        ShellMalloc->Release();
        return;
    }
 
    // Освободим все что занятые ресурсы pidl
    ShellMalloc->Free(DesktopPidl);
    ShellMalloc->Release();
 
    if(SUCCEEDED(CoInitialize(NULL)))
    {
        if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL,
                                      CLSCTX_INPROC_SERVER,
                                      IID_IShellLink, (void **) &pLink)))
        {
            pLink->SetPath(file.c_str());
            pLink->SetDescription("Woo hoo, look at Homer's shortcut");
            pLink->SetShowCmd(SW_SHOW);
 
            if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,
                                               (void **)&pPersistFile)))
            {
 
                WideString strShortCutLocation(DesktopDir);
                strShortCutLocation += "\\bcbshortcut.lnk";
                pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
                pPersistFile->Release();
            }
            pLink->Release();
        }
        CoUninitialize();
    }
}
/////////////////////////////////
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
pehat2(OpenDialog1->FileName);
}
}[CPP]