匯入/匯出 IE「我的最愛」

發文回覆瀏覽次數：1009

推到 Plurk!

推到 Facebook!

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-06-01 23:00:06

IP:61.221.xxx.xxx 未訂閱

這篇文章的主要目的在 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

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-06-03 23:06:29

IP:61.219.xxx.xxx 未訂閱

可否懇請RaynorPao版主將程式改成Delphi嘉惠不懂 BCB的網友,謝謝!

Justmade
版主

發表：94
回覆：1934
積分：2030
註冊：2003-03-12

發送簡訊給我

#3 引用回覆回覆

發表時間：2003-06-04 16:04:46

IP:218.16.xxx.xxx 未訂閱

奉包大人之命，已轉成 Delphi 版 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31694

系統時間：2024-04-29 11:26:24

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！