請問如何建立我的最愛? |
答題得分者是:RaynorPao
|
juitsung
一般會員 發表:4 回覆:2 積分:1 註冊:2003-03-31 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
juitsung您好:
您可以參考下面的討論文章
http://delphi.ktop.com.tw/topic.php?topic_id=30636
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dncdev00/html/vc00j1.asp
http://delphi.ktop.com.tw/topic.php?topic_id=1866(Delphi)
不曉得有沒有誤會您的意思 順心 <>~我也是在學習的階段,所以請您多多見諒與指教~> 發表人 -
|
turboted
版主 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 如何用程式將從網路上去得的網址建立到IE我的最愛裡?juitsung 你好: 請參考以下的範例程式碼 < class="code"> //--------------------------------------------------------------------------- // 把 URL 加到我的最愛 #include "exdisp.h" void __fastcall TForm1::Button1Click(TObject *Sender) { HRESULT hr=S_FALSE; IShellUIHelper *pShell=NULL; hr=CoInitialize(0); if(SUCCEEDED(hr)) { hr=CoCreateInstance(CLSID_ShellUIHelper, NULL, CLSCTX_INPROC_SERVER, IID_IShellUIHelper, (void **)&pShell); if(SUCCEEDED(hr)) { AnsiString szURL="http://delphi.ktop.com.tw/"; AnsiString szTitle="Delphi K.Top 討論區"; wchar_t wszURL[128]; wchar_t wszTitle[128]; szURL.WideChar(wszURL, szURL.WideCharBufSize()); szTitle.WideChar(wszTitle, szTitle.WideCharBufSize()); BSTR bstrURL=SysAllocString(wszURL); BSTR bstrTitle=SysAllocString(wszTitle); VARIANT vtTitle; vtTitle.vt=VT_BSTR; vtTitle.bstrVal=bstrTitle; hr=pShell->AddFavorite(bstrURL, &vtTitle); if(SUCCEEDED(hr)) { ShowMessage("AddFavorite succeeded."); } else { ShowMessage("AddFavorite failed! Error code=" IntToHex((int)hr, 8)); } SysFreeString(bstrURL); SysFreeString(bstrTitle); pShell->Release(); } CoUninitialize(); } } -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
juitsung
一般會員 發表:4 回覆:2 積分:1 註冊:2003-03-31 發送簡訊給我 |
|
juitsung
一般會員 發表:4 回覆:2 積分:1 註冊:2003-03-31 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |