實現自動化對象的一種簡易方法

　　Delphi 中不需要建立ActiveX Library不需要編輯TLB也能創建一個自動化對象

　　秘密就在於$METHODINFO這個沒有文檔描述的編譯指令

　　首先我們定義一個TScriptableObject繼承自TObjectDispatch （ObjComAutopas）

{$METHODINFO ON}
　TScriptableObject = class(TObjectDispatch)
　public
　　constructor Create;
　end;
　{$METHODINFO OFF}

{ TScriptableObject }
constructor TScriptableObjectCreate;
begin
　inherited Create(Self False);
end;

    因此 TScriptableObject 便是一個具備了特殊能力的一個類這個類是具有IDispatch接口的類 並且繼承自TScriptableObject 的任何子類的Public & Published方法都能夠從GetIDsOfNames檢索出來並且可以Invoke

　　這樣創建出的TScriptableObject的子類就是我們所需要的自動化對象這個對象我們可以用來作為WebBrowser的IDocHostUIHandler接口的GetExternal所需的IDispatch對象

From:http://tw.wingwit.com/Article/program/Delphi/201311/8401.html