Function CreateShortcut

source/main.cpp:865–898

---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
void __fastcall CreateShortcut(int where)
{
  TWaitCursor wait;
  String ShortcuteName = Application->Title;
  String ShortcutFileName;

  try
  {
    char szLinkPath[MN];
    HRESULT hr = SHGetFolderPath(NULL, where, NULL, 0, szLinkPath);
    if( FAILED(hr) )
      throw Exception(FormatLastError2(hr) + " [1:" + IntToStr(hr) + "]");

    ShortcutFileName = String(szLinkPath) + "\\" + ShortcuteName + ".lnk";

    hr = CreateLink(ApplicationExeName.c_str(),
                    "",
                    ShortcutFileName.c_str(),
                    "",
                    "tray");
    if( FAILED(hr) )
      throw Exception(FormatLastError2(hr) + " [2:" + IntToStr(hr) + "]");
  }
  catch(const Exception & E)
  {
    ReportError2("Error creating shortcut \"%s\"\nApplication \"%s\"\nError: \"%s\"",
      ShortcutFileName.c_str(), ApplicationExeName.c_str(), E.Message.c_str());
  }
  catch(...)
  {
    ReportError2("Error creating shortcut \"%s\"\nApplication \"%s\"",
      ShortcutFileName.c_str(), ApplicationExeName.c_str());
  }
}
//---------------------------------------------------------------------------
void __fastcall DeleteShortcut(int where)
{