奉包大人之命，將包大人的大作    【BCB】【發表】匯入/匯出 IE「我的最愛」  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31548    制成 Delphi 版如下。    這兩函數是把現使用者在 IE 的「我的最愛」以 html 格式匯入/匯出，方便從一部電腦抄到另一部電腦或重灌系統。亦方便在一頁裡顯示所有「我的最愛」的 Link。    

uses .....,SHDocVw, ActiveX;    procedure ExportFavourites(bstrExport : WideString);
var pShell : IShellUIHelper;
begin
   if SUCCEEDED(CoInitialize(0)) then
   try
      if SUCCEEDED(CoCreateInstance(CLASS_ShellUIHelper, NIL, CLSCTX_INPROC_SERVER,IID_IShellUIHelper, pShell)) then
         pShell.ImportExportFavorites(false, bstrExport);
   finally
     CoUninitialize();
   end;
end;    procedure ImportFavourites(bstrExport : WideString);
var pShell : IShellUIHelper;
begin
   if SUCCEEDED(CoInitialize(0)) then
   try
      if SUCCEEDED(CoCreateInstance(CLASS_ShellUIHelper, NIL, CLSCTX_INPROC_SERVER,IID_IShellUIHelper, pShell)) then
         pShell.ImportExportFavorites(true, bstrExport);
   finally
     CoUninitialize();
   end;
end;    使用範例 :    procedure TForm1.Button1Click(Sender: TObject);
begin
  ImportFavourites(Edit1.Text);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  ExportFavourites(Edit1.Text);
end;    procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog1.FileName := Edit1.Text;
  OpenDialog1.Execute;
  Edit1.Text := OpenDialog1.FileName;
end;

附檔含範例執行檔及程式碼。 Active X 的東東我不很懂所以上面幾行程式碼改來改去攪了兩小時才做好< >還好不負所托< > 發表人 - Justmade 於 2003/06/04 16:25:33

附加檔案：31694_MyFavorite.zip

這也有一篇: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23397    --- 每個人都是一本書

這兩個其實是不同的東西。 若你要在程式裡處理我的最愛的項目，你便要使用 hagar 版主在連結中提供的方法。因為他的方法能把我的最愛中的資料讀到程式裡。 而包大人提供的這個方法呢是直接使用 ActiveX 叫系統去將 IE 的我的最愛全部匯出/匯入到HTML檔案，資料完全沒經 Delphi 要直接處理也不能。 其實我覺得包大人這個示範對學習如何控制 ActiveX 去做你想要做的東西有很大的作用。若論要對我的最愛作出操作，hagar 版主提供的方法有更大的自由度及實用性。