怎样才能尽可能的优化这个ole代码?(100分)

我的问题是怎样才能找到mapinfo的句柄,这样才能在panel1中显示
代码如下
procedure TForm1.FormCreate(Sender: TObject);
var oleMapInfo : Variant;
var
msgstring:string;
sWinHand : String;
begin

oleMapInfo := CreateOLEObject('MapInfo.Application');
//Str(panel1.Handle, sWinHand);//这块swinhand应该是mapinfo的句柄,怎样找到呀
msgString := 'Run Application "'
+'d:/test.wor"';
//ExtractFilePath(Application.EXEName) + 'test.wor"';
oleMapInfo.Do(msgString);
olemapinfo.do('note "fajs;ldfjsadlj"');
oleMapInfo.RunMenuCommand(805);
end;

用TOleContainer试试看,将MapInfo插入TOleContainer。

TOleContainer是个控件还是什么
能不能具体说说

TOleContainer当然是个控件啦，放在System页中，它是专门用来放ActiveX的容器。给点分给我吧。

不对呀
按理说只要找到mapinfo的句柄我就可以用我的方法搞定呀
楼上的方法我正在试,可以的话我会给分的

楼上的方法不可以
你这样是可以调用mapinfo可是不是我想要的在delphi作前台,mapinfo作后台的效果