匯入/匯出 IE「我的最愛」 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
這篇文章的主要目的在 Demo 如何利用程式碼 匯入/匯出 IE「我的最愛」
#include "exdisp.h" //------------------------------------------------------------------------------ // 匯出我的最愛至檔案 void __fastcall TForm1::Button2Click(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 szExport="d:\\bookmark.htm"; wchar_t wszExport[128]; szExport.WideChar(wszExport, szExport.WideCharBufSize()); BSTR bstrExport=SysAllocString(wszExport); hr=pShell->ImportExportFavorites(VARIANT_FALSE, bstrExport); if(SUCCEEDED(hr)) { ShowMessage("Export Favorites succeeded."); } else { ShowMessage("Export Favorites failed! Error code=" IntToHex((int)hr, 8)); } SysFreeString(bstrExport); pShell->Release(); } CoUninitialize(); } } //------------------------------------------------------------------------------ // 從檔案匯入我的最愛 void __fastcall TForm1::Button3Click(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 szExport="d:\\bookmark.htm"; wchar_t wszExport[128]; szExport.WideChar(wszExport, szExport.WideCharBufSize()); BSTR bstrExport=SysAllocString(wszExport); hr=pShell->ImportExportFavorites(VARIANT_TRUE, bstrExport); if(SUCCEEDED(hr)) { ShowMessage("Import Favorites succeeded."); } else { ShowMessage("Import Favorites failed! Error code=" IntToHex((int)hr, 8)); } SysFreeString(bstrExport); pShell->Release(); } CoUninitialize(); } } //---------------------------------------------------------------------------備註: 此程式碼已經在 Windows 2000/98, IE 5.5, BCB 6.0 Update 4 測試無誤 --
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
chfamy
中階會員 發表:87 回覆:161 積分:54 註冊:2002-05-03 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |