用BCB在windows桌面创建快捷方式 [复制链接]

用BCB在windows桌面创建快捷方式


API提供了一个叫做IShellLink的COM接口允许我们创建快捷方式。为在桌面创建快捷方式，我们创建一个IShellLink对象，设置它的属性，然后把这个link保存到desktop目录。

下面的例子代码演示了怎样创建一个快捷方式。在这个例子里，这个快捷方式保存在C:\Drive目录下。

//----------------------------------------------------------------------
include <shlobj.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
  CreateShortCut(OpenDialog1->FileName);
}
//----------------------------------------------------------------------
void TForm1::CreateShortCut(const AnsiString &file)
{
IShellLink* pLink;
IPersistFile* pPersistFile;
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("C:\\bcbshortcut.lnk");
      pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
      pPersistFile->Release();
    }
    pLink->Release();
  }

  CoUninitialize();
}
}
//----------------------------------------------------------------------
上面的例子只是把快捷方式文件保存到了c:\drive目录下，但没保存到desktop目录下。

要让快捷方式出现在桌面上，只须把快捷方式文件保存到desktop目录下。首先我们要找到windows的desktop目录。一旦我们知道了 desktop所在的目录，我们就能将快捷方式文件保存到desktop目录下。然后windows就能将快捷方式图标显示到桌面上。下面是经过改进了的例子：

//----------------------------------------------------------------------
void TForm1::CreateShortCut(const AnsiString &file)
{
IShellLink* pLink;
IPersistFile* pPersistFile;
LPMALLOC   ShellMalloc;
LPITEMIDLIST DesktopPidl;
char DesktopDir[MAX_PATH];

if(FAILED(SHGetMalloc(&ShellMalloc)))
  return;

if(FAILED(SHGetSpecialFolderLocation(NULL,
                CSIDL_DESKTOPDIRECTORY,
                &DesktopPidl)))
  return;

if(!SHGetPathFromIDList(DesktopPidl, DesktopDir))
{
  ShellMalloc->Free(DesktopPidl);
  ShellMalloc->Release();
  return;
}

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();
}
}
//----------------------------------------------------------------------
不要陷于COM的泥沼之中
创建快捷方式包括一些对COM的使用。不要让你陷入到COM的复杂之中。COM只是创建和使用对象的一种方法。在这个例子里我们可以考虑不使用COM而是用等价的C++技术。

COM code               C++ psuedo-equivalent
IShellLink*   pLink;           TShellLink   *Link;
IPersistFile* pPersistFile;       TPersistFile *PersistFile;

CoInitialize();

                 
CoCreateInstance(CLSID_ShellLink,     Link = new TShellLink;
      NULL,
      CLSCTX_INPROC_SERVER,
      IID_IShellLink,
      (void **) &pLink)

                 
pLink->SetPath(file.c_str());       Link->SetPath(file.c_str());
pLink->SetShowCmd(SW_SHOW);       Link->SetShowCmd(SW_SHOW);


                 
pLink->QueryInterface(IID_IPersistFile   PersistFile =
      (void **)&pPersistFile)))   dynamic_cast<TPersistFile*>(Link);

pPersistFile->Save("C:\\", TRUE);     PersistFile->Save("C:\\");


                 
pPersistFile->Release();         delete PersistFile
pLink->Release();           delete Link;

CoUninitialize();