Delphi編寫你的第一個COM程序

DELPHI菜單:
　　File\New\Other…
　　　

　　

　　按確定[ok]按鈕
　　點擊File\Save菜單保存:
　　　

　　

　　輸入工程名MyCOM
　　
　　按保存按鈕
　　
　　再打開菜單File\New\Other…
　　　

　　

　　按[OK}按鈕;
　　　

　　

　　在CoClassName打入MyObject
　　
　　按OK
　　　

　　

　　在IMyObject上按MOUSE右鍵
　　
　　ImyObject\New\Method
　　

　　

　　在Name處輸入Test
　　
　　切換到Parameters頁次
　　　

　　

　　按Add兩下
　　
　　將第一個Parameters的Name改成PsParam Type打入BSTR
　　
　　將第二個Parameters的Name改成PsResult Type打入BSTR*
　　
　　將MOUSE點到第二個Parameters的Modifier字段處
　　
　　按 … 按鍵
　　　

　　

　　將RetVal打勾
　　
　　按OK
　　　

　　

　　(原來的[in]變成了[outretval] 表示這個是要回傳的 其型態為字符串)
　　
　　關掉這個窗口

　　

　　

　　(你會看到它幫你建好了CODE的模型)
　　
　　File\Save
　　　

　　

　　輸入文件名MyObject
　　
　　按保存
　　
　　改一下CODE
　　　

　　

　　按一下Ctrl+S保存
　　
　　Project\Build MyCOM
　　

　　

　　就可以看到生成了一個MYCOMDLL文件
　　這就是你要的COM組件了用Regsvr命令注冊這個組件後就可使用了
　　
　　下面再講調用這個COM組件的方法
　　
　　New 一個新的Application
　　在uses 中加一個Comobj
　　放一個button在FORM中
　　在button的onClick事件中打入以下的Code:
　　
　　代碼:
　　
　　
　　var
　　MyObject: OleVariant;
　　begin
　　MyObject:=CreateOleObject(MyCOMMyObject);
　　try
　　　ShowMessage(MyObjectTest(黎明));
　　finally
　　　VarClear(MyObject);
　　end;
　　end;
　　
　　執行並按Button按鍵
　　你會看到一個Message那就是執行COM對象的Test方法的回傳值

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