不知對於前文淺談製作IE PlugInhttp://delphi.ktop.com.tw/topic.php?TOPIC_ID=31020一文 是否有了初步的了解？這次將更進一步地實作IE PlugIn。 這一次的範例示範功能為在所選擇的圖片上按下右鍵後可選擇「Show URL」顯示圖片的網址路徑。 範例畫面1 範例畫面2 開發環境Delphi6 & Win2000 首先 Delphi→File→New→Other→ActiveX→ActiveX Library 接著加入 Delphi→File→New→Other→ActiveX→Automation Object 輸入CoClass Name (範例為 MSGCtrl) 這時我們在IMSGCtrl加入New Method，更將其更名 (範例為 ShowMSG) 在其Parameters中Add新的參數名稱、型態 (範例為 Str BSTR) 緊接著我們先存檔 (範例為 MSGCtrl.dpr & Unit1.pas) 修改在Unit1 Uses Dialogs procedure TMSGCtrl.ShowMSG(const Str: WideString); begin ShowMessage(Str); end; 存檔 & Build All Projects 這時我們會發現程式目錄中增加了MSGCtrl.dll 於是Delphi→Run→Register ActiveX Server 如果要移除了話便選擇Delphi→Run→UnRegister ActiveX Server 上次我們有說過 IE必須透過VBScript來呼叫OCX與DLL，所以我們編寫一個HTML檔 (範例為 COMtest.htm) 內容如下(已附加在範例檔案中) 接著我們點擊Windows的開始→執行→Regedit 編輯以下內容 HKEY_CURRENT_USER->Software->Microsoft->Internet Explorer->MenuExt->Show URL(按下右鍵後會出現的名稱) Show URL(按下右鍵後會出現的名稱)這目錄的內容如下 (預設值) REG_SZ HTML存放的路徑\COMtest.htm Contexts REG_DWORD 0x00000002(2) Contexts決定了右鍵選項何時出現的重要關鍵 這時開啟IE視窗(設定好之後必須開新的IE視窗才會有作用)，開始測試吧！

附加檔案：31189_COMtest.zip