delphi编写你的第一个com程序

输入工程名MyCOM

按保存按钮

再打开菜单FileNewOther…

　　
　　
　　 按[OK}按钮;

在CoClassName打入MyObject

按OK

在IMyObject上按MOUSE右键

ImyObjectNewMethod

在Name处输入Test

切换到Parameters页次

按Add两下

将第一个Parameters的Name改成PsParam1, Type打入BSTR

将第二个Parameters的Name改成PsResult, Type打入BSTR*

将MOUSE点到第二个Parameters的Modifier字段处

按 “…” 按键

将RetVal打勾

按OK

(原来的[in]变成了[out,retval], 表示这个是要回传的, 其型态为字符串)

关掉这个窗口

(你会看到它帮你建好了CODE的模型)

FileSave

输入文件名MyObject

按保存

改一下CODE

按一下Ctrl+S保存

ProjectBuild MyCOM

　　就可以看到生成了一个MYCOM.DLL文件，
　　这就是你要的COM组件了，用Regsvr32命令注册这个组件后就可使用了。

下面再讲调用这个COM组件的方法：

New 一个新的Application
　　在uses 中加一个Comobj
　　放一个button在FORM中
　　在button的onClick事件中打入以下的Code: ？xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

代码:

　　var
　　   MyObject: OleVariant;
　　begin
　　   MyObject:=CreateOleObject('MyCOM.MyObject');
　　   try
　　      ShowMessage(MyObject.Test('黎明'));
　　   finally
　　      VarClear(MyObject);
　　   end;
　　end;

　　
　　执行.....并按Button1按键
　　你会看到一个Message...那就是执行COM对象的Test方法的回传值