開始做 Automation ：
1.File|New Application （做 Automation 要有 Form ，即使是個(gè)空的也不要拿掉）;
2.File|New... 選 ActiveX 頁上的 Automation Object; 在對(duì)話框中輸入 COM 名： AutoTest ，其它就用默認(rèn)值。
3.在打開的 Type Library Editor （就是那個(gè)標(biāo)題為 Project1.tlb 東東）中，左邊的樹中的 IAutoTest 上點(diǎn)右鍵， New 一個(gè) Property ，會(huì)產(chǎn)生兩個(gè)同名的東東，分別用于 Get 和 Set ，取名為 Hello （兩個(gè)會(huì)自動(dòng)變?yōu)橐粯拥模?，然后在右邊找?Parameters 頁，將 Type 改為 BSTR(Set) 和 BSTR *(Get ，注意，列表中的 BSTR 沒有＊，要自已輸入一個(gè)）。
4.然后點(diǎn)頂上那個(gè) Refresh Implementation 的按鈕（按鈕上的小圖片是一張紙，里面有兩個(gè)綠色的箭頭成環(huán)繞狀），這一步很重要，每次修改完 TLB 文件都要點(diǎn)這個(gè)按鈕再存盤，它將產(chǎn)生相應(yīng)的代碼。
5.在 AutoTestImpl.h 文件中找到如下內(nèi)容：
// IAutoTest
public:
STDMETHOD(get_Hello(BSTR* Value));
STDMETHOD(set_Hello(BSTR Value));
這是 Refresh Implementation 時(shí)自動(dòng)產(chǎn)生的代碼，在后面加上：
private :
WideString FData;
Type Library Editor 產(chǎn)生的 CPP/H 文件除了這個(gè)以 Impl （即 Implementation ）結(jié)尾的以外，還有兩個(gè)，分別是以 _ATL 和 _TLB 結(jié)尾的： _ATL 是自動(dòng)產(chǎn)生的，通常不用變它，當(dāng)然如果你有特別的要求并且你對(duì) ATL 又很熟，也可以改改它； _TLB 是由 Type Library Editor 自動(dòng)維護(hù)，無須修改，改了也沒用，你的任何修改都會(huì)在 Refresh Implementation 時(shí)被改回來的。
再看 AutoTestImpl.cpp 文件，找到如下內(nèi)容：
STDMETHODIMP TAutoTestImpl::get_Hello(BSTR* Value)
{
try
{
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IAutoTest);
}
return S_OK;
};
這也是自動(dòng)產(chǎn)生的東東，在這個(gè) try 中輸入：
try
{
*Value = FData; // 加在這里
}
在 Set 的 Try 中輸入：
FData = Value;
注意一定要用 try..catch 括起來，否則..。 Delphi 就不用，這沒辦法，因?yàn)?BCB 是用 ATL 的嘛，而 Delphi 是用 Borland 自已搞的 DAX(Delphi ActiveX Extension) ， BCB 就是在這點(diǎn)上和 Delphi 有很大不同。
6.Save All ，編譯。
7.在命令行下運(yùn)行：
Project1 /regserver
注冊(cè)這個(gè) COM ，注銷則用：
Project1 /unregserver
記得刪除 COM 之前一定要先注銷，不然你只好到注冊(cè)表里慢慢找了。
使用 Automation （前期聯(lián)編用法）：
1.File|New Application
2.在 Project2 中加入 Project1_TLB.CPP
3.在 Unit2.h 中加入：
#include "Project1_TLB.h"
和：
private: // User declarations
TCOMIAutoTest MyTest; // 加入的
4.在 Form 上放一個(gè) Label 和一個(gè) Button 。雙擊BUTTON，在事件響應(yīng)中輸入：
try {
if ( !MyTest )
{
MyTest = CoAutoTest::Create( );
MyTest.Hello = WideString( "Hello world!" );
}
Label1->Caption = MyTest.Hello;
}
catch ( EOleSysError &e )
{
ShowMessage( e.Message );
}
5.Save All ，編譯。
6.運(yùn)行后，點(diǎn) Button ，你會(huì)看到 Project1 也運(yùn)行起來，同時(shí) Label1 顯示 "Hello world!" 。
當(dāng) Project2 退出時(shí)， Project1 也自動(dòng)退出。會(huì)了吧。
另一種使用 Automation 的方法（后期聯(lián)編用法）：
1.File|New Application
2.在Unit3.cpp中加入：
#include
3.在 Form 上放一個(gè) Label 和一個(gè) Button 。雙擊BUTTON，在事件響應(yīng)中輸入：
Variant v = CreateOleObject( "Project1.AutoTest" );
v.Exec( PropertySet( "Hello" ) << "Hello world!" );
Label1->Caption = v.Exec( PropertyGet( "Hello" ) );
4.Save All ，編譯。
5.運(yùn)行后，點(diǎn) Button ，你會(huì)看到 Project1 也運(yùn)行起來，同時(shí) Label1 顯示 "Hello world!" ，然后 Project1 就退出了。
1.File|New Application （做 Automation 要有 Form ，即使是個(gè)空的也不要拿掉）;
2.File|New... 選 ActiveX 頁上的 Automation Object; 在對(duì)話框中輸入 COM 名： AutoTest ，其它就用默認(rèn)值。
3.在打開的 Type Library Editor （就是那個(gè)標(biāo)題為 Project1.tlb 東東）中，左邊的樹中的 IAutoTest 上點(diǎn)右鍵， New 一個(gè) Property ，會(huì)產(chǎn)生兩個(gè)同名的東東，分別用于 Get 和 Set ，取名為 Hello （兩個(gè)會(huì)自動(dòng)變?yōu)橐粯拥模?，然后在右邊找?Parameters 頁，將 Type 改為 BSTR(Set) 和 BSTR *(Get ，注意，列表中的 BSTR 沒有＊，要自已輸入一個(gè)）。
4.然后點(diǎn)頂上那個(gè) Refresh Implementation 的按鈕（按鈕上的小圖片是一張紙，里面有兩個(gè)綠色的箭頭成環(huán)繞狀），這一步很重要，每次修改完 TLB 文件都要點(diǎn)這個(gè)按鈕再存盤，它將產(chǎn)生相應(yīng)的代碼。
5.在 AutoTestImpl.h 文件中找到如下內(nèi)容：
// IAutoTest
public:
STDMETHOD(get_Hello(BSTR* Value));
STDMETHOD(set_Hello(BSTR Value));
這是 Refresh Implementation 時(shí)自動(dòng)產(chǎn)生的代碼，在后面加上：
private :
WideString FData;
Type Library Editor 產(chǎn)生的 CPP/H 文件除了這個(gè)以 Impl （即 Implementation ）結(jié)尾的以外，還有兩個(gè)，分別是以 _ATL 和 _TLB 結(jié)尾的： _ATL 是自動(dòng)產(chǎn)生的，通常不用變它，當(dāng)然如果你有特別的要求并且你對(duì) ATL 又很熟，也可以改改它； _TLB 是由 Type Library Editor 自動(dòng)維護(hù)，無須修改，改了也沒用，你的任何修改都會(huì)在 Refresh Implementation 時(shí)被改回來的。
再看 AutoTestImpl.cpp 文件，找到如下內(nèi)容：
STDMETHODIMP TAutoTestImpl::get_Hello(BSTR* Value)
{
try
{
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_IAutoTest);
}
return S_OK;
};
這也是自動(dòng)產(chǎn)生的東東，在這個(gè) try 中輸入：
try
{
*Value = FData; // 加在這里
}
在 Set 的 Try 中輸入：
FData = Value;
注意一定要用 try..catch 括起來，否則..。 Delphi 就不用，這沒辦法，因?yàn)?BCB 是用 ATL 的嘛，而 Delphi 是用 Borland 自已搞的 DAX(Delphi ActiveX Extension) ， BCB 就是在這點(diǎn)上和 Delphi 有很大不同。
6.Save All ，編譯。
7.在命令行下運(yùn)行：
Project1 /regserver
注冊(cè)這個(gè) COM ，注銷則用：
Project1 /unregserver
記得刪除 COM 之前一定要先注銷，不然你只好到注冊(cè)表里慢慢找了。
使用 Automation （前期聯(lián)編用法）：
1.File|New Application
2.在 Project2 中加入 Project1_TLB.CPP
3.在 Unit2.h 中加入：
#include "Project1_TLB.h"
和：
private: // User declarations
TCOMIAutoTest MyTest; // 加入的
4.在 Form 上放一個(gè) Label 和一個(gè) Button 。雙擊BUTTON，在事件響應(yīng)中輸入：
try {
if ( !MyTest )
{
MyTest = CoAutoTest::Create( );
MyTest.Hello = WideString( "Hello world!" );
}
Label1->Caption = MyTest.Hello;
}
catch ( EOleSysError &e )
{
ShowMessage( e.Message );
}
5.Save All ，編譯。
6.運(yùn)行后，點(diǎn) Button ，你會(huì)看到 Project1 也運(yùn)行起來，同時(shí) Label1 顯示 "Hello world!" 。
當(dāng) Project2 退出時(shí)， Project1 也自動(dòng)退出。會(huì)了吧。
另一種使用 Automation 的方法（后期聯(lián)編用法）：
1.File|New Application
2.在Unit3.cpp中加入：
#include
3.在 Form 上放一個(gè) Label 和一個(gè) Button 。雙擊BUTTON，在事件響應(yīng)中輸入：
Variant v = CreateOleObject( "Project1.AutoTest" );
v.Exec( PropertySet( "Hello" ) << "Hello world!" );
Label1->Caption = v.Exec( PropertyGet( "Hello" ) );
4.Save All ，編譯。
5.運(yùn)行后，點(diǎn) Button ，你會(huì)看到 Project1 也運(yùn)行起來，同時(shí) Label1 顯示 "Hello world!" ，然后 Project1 就退出了。