Install shield的桌面图标刷新问题的解决方法

最新推荐文章于 2020-10-22 09:18:09 发布

zlhcc

最新推荐文章于 2020-10-22 09:18:09 发布

阅读量992

点赞数

文章标签： prototype winapi path null function string

本文链接：https://blog.csdn.net/zlhcc/article/details/2193192

版权

1, 将CreateLink函数封装到MyDll.dll中，并导出
BOOL WINAPI CreateLink(LPSTR szPath, LPSTR szDir, LPSTR szLink)
{
CoInitialize(NULL);

HRESULT hres;
IShellLink* psl;
IPersistFile* ppf;
WORD wsz[MAX_PATH];

     hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
              IID_IShellLink, (void**)&psl);
     if(FAILED(hres))
   return FALSE;

psl->SetPath(szPath);
psl->SetWorkingDirectory(szDir);

hres = psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
if(FAILED(hres))
   return FALSE;

MultiByteToWideChar(CP_ACP, 0, szLink, -1, wsz, MAX_PATH);
hres = ppf->Save(wsz, STGM_READWRITE);

ppf->Release();
psl->Release();

CoUninitialize();

return TRUE;
}

2, 在Install Shield的support 中引入。

3, Install shield中使用PlaceDesktopLinkEx代替AddFolderIcon(FOLDER_DESKTOP, .....);
prototype MyDll.CreateLink(POINTER, POINTER, POINTER);
export prototype PlaceDesktopLinkEx();

function PlaceDesktopLinkEx()
NUMBER nResult;
string szPath, strDllPath, strLinkPath, strDir;
begin
szPath = TARGET ^ "MyApp.exe";
LongPathToQuote(szPath, TRUE);

strDllPath = SUPPORTDIR ^ "MyDll.dll";
nResult = UseDLL(strDllPath);

strLinkPath = FOLDER_DESKTOP ^ "我的测试程序.lnk";
strDir = TARGET;
CreateLink(&szPath, &strDir, &strLinkPath);

UnUseDLL(strDllPath);
end;