急用，谁能把下面的delphi代码翻译成bcb代码?

[wangxd]

delphi代码
var
Cur_WorkBook,Cur_WorkSheet,Cur_Cell, v:variant;
begin
OleContainer1.CreateObjectFromFile('C:\test1.xls', False);
OleContainer1.doVerb(ovShow);//显示文档
Cur_WorkBook:=OleContainer1.OleObject.Application.WorkBooks.Item[1];
Cur_WorkSheet:=Cur_WorkBook.WorkSheets[1];
ShowMessage(Cur_WorkSheet.Cells[1,1]);
Cur_Cell:=OleContainer1.OleObject.Application.ActiveCell;//为ActiveCell
end;


我用以下代码编译时出错
Variant ob,ap,wb,wk;
OleContainer1->CreateObjectFromFile('C:\test1.xls', False);
OleContainer1->doVerb(ovShow);
ob=OleContainer1->OleObject;
ap=ob.OlePropertyGet("Application");
wb=ap.OlePropertyGet("WorkBooks",1);//就在这一行编译出错
...
...
另外谁知道当olecontainer中的文档激活后，怎么让它不显示快捷工具栏？

[烟波三千里人鬼五百年]

#include "utilcls.h"
#define PG OlePropertyGet
#define PS OlePropertySet
#define FN OleFunction
#define PR OleProcedure

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant ob,ap,wb,wk;

OleContainer1->CreateObjectFromFile("C:\\test1.xls", False);
OleContainer1->DoVerb(ovShow);

ob=OleContainer1->OleObject;
ap=ob.PG("Application");
ap.PG("CommandBars","Standard").PS("Visible",false);
ap.PG("CommandBars","Formatting").PS("Visible",false);

wb=ap.OlePropertyGet("WorkBooks",1);

}
呵呵，消除CommandBar的办法好像不是最好啊...

[wangxd]

wb=ap.OlePropertyGet("WorkBooks",1);//这行编译出错啊，你试试看

[烟波三千里人鬼五百年]

咦,我明明编译通过的啊?
一定要
#include "utilcls.h" 啊...

[wangxd]

thanks。确实要加上#include "utilcls.h"
还有就是文档激活后，怎么让它只读？