Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 3k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <shlobj.h>
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::CreateDeskTopA(AnsiString file,AnsiString name)
  18. {
  19.   AnsiString ass;
  20.   int ii,ll;
  21.   IShellLink* pLink;
  22.   IPersistFile* pPersistFile;
  23.   LPMALLOC      ShellMalloc;
  24.   LPITEMIDLIST  pDesktop;
  25.   char DesktopDir[MAX_PATH];
  27.   if(FAILED(SHGetMalloc(&ShellMalloc)))
  28.     return;
  30.   if(FAILED(SHGetSpecialFolderLocation(NULL,CSIDL_DESKTOPDIRECTORY,&pDesktop)))
  31.     return;
  33.   if(!SHGetPathFromIDList(pDesktop, DesktopDir))
  34.   {
  35.     ShellMalloc->Free(pDesktop);
  36.     ShellMalloc->Release();
  37.     return;
  38.   }
  39.   ShellMalloc->Free(pDesktop);
  40.   ShellMalloc->Release();
  42.   if(SUCCEEDED(CoInitialize(NULL)))
  43.   {
  44.     if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,IID_IShellLink, (void **) &pLink)))
  45.     {
  46.       pLink->SetPath(file.c_str());
  47.       ll=file.Length();
  48.       for(ii=ll;ii>0;ii--)
  49.       {
  50.         ass=file.SubString(ii,1);
  51.         if(ass=="\")break;
  52.       }
  53.       ass=file.SubString(1,ii-1);
  54.       pLink->SetWorkingDirectory(ass.c_str());
  55.       pLink->SetDescription((name+" shortcut").c_str());
  56.       pLink->SetShowCmd(SW_SHOW);
  58.       if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,(void **)&pPersistFile)))
  59.       {
  60.         WideString strShortCutLocation(DesktopDir);
  61.         strShortCutLocation += "\"+name+".lnk";
  62.         pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
  63.         pPersistFile->Release();
  64.       }
  65.       pLink->Release();
  66.     }
  67.     CoUninitialize();
  68.   }
  69. }
  70. //----------------------------------------------------------------------
  71. void __fastcall TForm1::CreateDeskTopB(AnsiString ProgGroup,AnsiString ProgItem)
  72. {
  73.   AnsiString WinDir,ass_dst,ass_src;
  74.   char buff[MAX_PATH];
  75.   GetWindowsDirectory(buff,MAX_PATH);
  76.   WinDir=buff;
  77.   ass_src =WinDir+"\Start Menu\Programs\"+ProgGroup+"\"+ProgItem+".lnk";
  78.   ass_dst =WinDir+"\DESKTOP\"+ProgItem+".lnk";
  79.   CopyFile(ass_src.c_str(),ass_dst.c_str(),False);
  80. }
  81. //----------------------------------------------------------------------
  82. void __fastcall TForm1::Button1Click(TObject *Sender)
  83. {
  84.   AnsiString path;
  85.   path=GetCurrentDir();
  86.   path=path+"\"+ExtractFileName(Application->ExeName);
  87.   CreateDeskTopA(path,"我的桌面程序");
  88. }
  89. //---------------------------------------------------------------------------
  91. void __fastcall TForm1::Button2Click(TObject *Sender)
  92. {
  93.   CreateDeskTopB("附件","记事本");
  94. }
  95. //---------------------------------------------------------------------------