编程快速实现快捷方式的创建和特殊文件家的获取

//--------------------------------------------------------------------------- #define NO_WIN32_LEAN_AND_MEAN #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if(OpenDialog->Execute()) { Edit1->Text=OpenDialog->FileName; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { if(Edit1->Text.IsEmpty()||!FileExists(Edit1->Text)) { MessageBox(Handle,"你要创建的文件不存在!\n请重新选择要创建的文件!","YYB警告你:",MB_ICONWARNING); return; } if(Edit2->Text.IsEmpty()) { MessageBox(Handle,"请输入快捷方式名称!","YYB警告你:",MB_ICONWARNING); return; } String desktop=GetDeskTopPath(CSIDL_DESKTOP); if(desktop.IsEmpty()) { desktop=GetCurrentDir(); } CreateShortCut(Edit1->Text,"中国石油大学(华东)",desktop); } //--------------------------------------------------------------------------- void __fastcall TForm1::CreateShortCut(String File,String Description,String Path) { IShellLink*Link; IPersistFile *PersistFile; if(SUCCEEDED(CoInitialize(NULL))) { if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void**)&Link))) { Link->SetPath(File.c_str()); Link->SetDescription(Description.c_str()); Link->SetShowCmd(SW_SHOW); //Link->SetIconLocation() if(SUCCEEDED(Link->QueryInterface(IID_IPersistFile,(void**)&PersistFile))) { WideString ShortCutLocation(Path+"\\"+Edit2->Text+".lnk"); PersistFile->Save(ShortCutLocation.c_bstr(),true); PersistFile->Release(); } Link->Release(); } CoUninitialize(); MessageBox(Handle,"快捷方式创建成功!","YYB恭喜你:",MB_OK); } else MessageBox(Handle,"快捷方式创建失败!","YYB提醒你:",MB_ICONERROR); } //======================================================================== String __fastcall TForm1::GetDeskTopPath(int Folder) { LPITEMIDLIST pidl; LPMALLOC pShellMalloc; char Dir[MAX_PATH]; String path=""; if(SUCCEEDED(SHGetMalloc(&pShellMalloc))) { if(SUCCEEDED(SHGetSpecialFolderLocation(NULL,Folder,&pidl))) { if(SHGetPathFromIDList(pidl,Dir)) { path=Dir; } pShellMalloc->Free(pidl); } pShellMalloc->Release(); } return path; } void __fastcall TForm1::Button3Click(TObject *Sender) { String str=GetDeskTopPath(CSIDL_APPDATA); ShowMessage(str); } //---------------------------------------------------------------------------