如何使用API建立文件的快捷方式?

[pango]

如何使用API建立文件的快捷方式?

[longx]

看MSDN中有关利用系统Shell实现的例子，
有关DDE的---DDEinst sample (DDEml API)

[radish]

在桌面上创建一个快捷方式

　

void TForm1::CreateShortCut(const AnsiString &file)

{

// file 文件名

IShellLink* pLink;

IPersistFile* pPersistFile;

LPMALLOC ShellMalloc;

LPITEMIDLIST DesktopPidl;

char DesktopDir[MAX_PATH];

// We are going to create a pidl, and it will need to be

// freed by the shell mallocator. Get the shell mallocator

// object using API SHGetMalloc function. Return if failure.

if(FAILED(SHGetMalloc(&ShellMalloc)))

return;

// use the API to get a pidl for the desktop directory

// if function fails, return without proceeding

if(FAILED(SHGetSpecialFolderLocation(NULL,

CSIDL_DESKTOPDIRECTORY,

&DesktopPidl)))

return;

// Now convert the pidl to a character string

// return if function fails

if(!SHGetPathFromIDList(DesktopPidl, DesktopDir))

{

ShellMalloc->Free(DesktopPidl);

ShellMalloc->Release();

return;

}

// At this point, we are done with the pidl and the

// mallocator, so free them up

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();

}

}