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

用BCB在windows桌面创建快捷方式 (转)[@more@]

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

  下面的例子代码演示了怎样创建一个快捷方式。在这个例子里,这个快捷方式保存在C:Drive目录下。//----------------------------------------------------------------------
include
 
void __fastcall TForm1::Button1Click(Tobject *Sender)
{
  if(OpenDialog1->Execute())
  CreateShortCut(OpenDialog1->FileName);
}
file://----------------------------------------------------------------------
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();
  }
}
file://----------------------------------------------------------------------

  上面的例子只是把快捷方式文件保存到了c:drive目录下,但没保存到desktop目录下。

  要让快捷方式出现在桌面上,只须把快捷方式文件保存到desktop目录下。首先我们要找到windows的desktop目录,请参阅判断windows的Desktop及相关目录这一节。一旦我们知道了desktop所在的目录,我们就能将快捷方式文件保存到desktop目录下。然后windows就能将快捷方式图标显示到桌面上。下面是经过改进了的例子:
file://----------------------------------------------------------------------
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();
  }
}
file://----------------------------------------------------------------------
不要陷于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(Link);
 
pPersistFile->Save("C:", TRUE);  PersistFile->Save("C:");
 
 
 
pPersistFile->Release();  delete PersistFile
pLink->Release();  delete Link;
 
CoUninitialize();

 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-986979/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-986979/

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值