InstallShield for BCB6 建立捷徑問題 |
|
缺席
|
|
kenbcb
中階會員   發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
|
|
I_Love_You
一般會員  發表：18 回覆：87 積分：21 註冊：2002-07-24 發送簡訊給我 |
可以在自己的程式中加入针对All user的快捷方式，不知道这样是否可以？
下面是范例： //取得 IShellLink 介面的指標
hres=CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void**)(&psl));
//若成功取得，則進行 IShellLink 各項資料設定
if(SUCCEEDED(hres))
{
//取得 IPersistFile 介面的指標
IPersistFile* ppf;
hres=psl->QueryInterface(IID_IPersistFile, (void**)(&ppf));
//若成功取得，則進行 IShellLink 各項資料設定
if(SUCCEEDED(hres))
{
//此範例連接檔的路徑，即是此執行檔路徑
hres = psl->SetPath(StartMenu.c_str());
//設定此連接檔的類型
hres = psl->SetDescription("my test");
//設定此連接檔放置何處，本範例的連接檔放置在桌面上
StartMenu=WindowsPath "\\Start Menu\\Programs\\" ini->ReadString("HELP","Name","ime help") "\\" HelpName ".lnk";
hres = ppf->Save(WideString(StartMenu.c_str()), TRUE);
//StartMenu=WindowsPath.SubString(1,1) ":\\Documents and Settings\\All Users\\?秨﹍????\\祘Α栋\\" ini->ReadString("HELP","Name","ime help") "\\" ExtractFileName(ini->ReadString("HELP",IntToStr(i),"")) ".lnk";
//hres = ppf->Save(WideString(StartMenu.c_str()), TRUE);
//完成後，將IPersistFile介面釋放
ppf->Release();
}
//完成後，將IShellLink介面釋放
psl->Release();
}
|
|
I_Love_You
一般會員 發表：18 回覆：87 積分：21 註冊：2002-07-24 發送簡訊給我 |
|
|
kenbcb
中階會員 發表：171 回覆：129 積分：60 註冊：2003-07-15 發送簡訊給我 |
發表時間：2004-12-20 11:37:19
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-11-22 20:10:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |