Delphi 利用ActiveX控件实现Office助手.rar

Delphi 利用ActiveX控件实现Office助手，这个助手用过Word大概都见到过，类似墨林小人一样的动画，会眨眼，弹出提示，会做出一些向下看，寻找东西，聆听、警告等小动作，本源码基于ActiveX控件实现，可熟悉下ActiveX控件的用法，在Delphi中可以定义墨林，如下代码示： 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 WS[0]:='Acknowledge'; 　　 WS[1]:='LookDown'; 　　 WS[2]:='Sad'; 　　 WS[3]:='Alert'; 　　 WS[4]:='LookDownBlink'; 　　 WS[5]:='Search'; 　　 WS[6]:='Announce'; 　　 WS[7]:='LookUp'; 　　 WS[8]:='Think'; 　　 WS[9]:='Blink'; 　　 ICR:= Agent1.Characters.Load('merlin','merlin.acs'); 　　 ICCE:=Agent1.Characters.Character('merlin'); 　　 ICCE.Show(0); 　　end; 　　 　　procedure TForm1.ListBox1Click(Sender: TObject); 　　begin 　　 ICCE.StopAll(''); 　　 ICR:=ICCE.Play(WS[ListBox1.ItemIndex]); 　　end; 　　 　　procedure TForm1.FormDestroy(Sender: TObject); 　　begin 　　 Agent1.Characters.Unload('Merlin'); 　　end;