有关office助手的做法,请高手进入 如何做成象office助手那样请高手指教,用什么方法 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用一个TImageList控件,然后你动态的调用其中的任何一个。如动画都需要你自己控制的话,那你再写一个image移动位置的函数。 你这样做: 1:在计算机中,搜索“Peedy.acs" 2:Delphi 中添加 MicroSoft Agent2.0 3:在窗体中放入 TAgent控件 4:组织代码 private b:OleVariant; var Form1: TForm1; a:IAgentCtlCharacter; d:agent;//IAgentCtlCharacterEx; implementationprocedure TForm1.FormCreate(Sender: TObject);Var sPath:String; i:Smallint;begin sPath:=ExtractFilePath(Application.ExeName)+'Peedy.acs'; Agent.Characters.Load('Peedy',sPath); Agent.Connected:=True;end;procedure TForm1.ShowBtnClick(Sender: TObject);begin Agent.Characters.Character('Peedy').Show(b); Agent.Characters.Character('peedy').Speak('松树吗?,你好高哦!,我好想你幼苗的样子哦!!!',b); sleep(2000); Agent.Characters.Character('peedy').Speak('你知道吗?你不在我身边的这些日子'+#13+',我时时刻刻都在想你哦!!!',b); sleep(1000); Agent.Characters.Character('peedy').Play('Greet');end;--------------------------------以上给你提供一个途径,具体怎么发挥自己努力实现 你装了office,里面有助手然后在Activex里面添加MicroSoft Agent2.0控件微软的网站有助手可以下载的 用DELPHI的同时使用CVSNT的朋友可以下载专家包了。 用回调函数还是通知者模式? 代朋友找个兼职, 要求很熟悉delphi的内联汇编,熟悉hook. TclientDataSet的问题? 请问怎样发布软件? listview排序 请各位帮个忙???????? No.1,请问如何将access数据库中的数据转存到Oracle数据库中? delphi DataSnap REST 返回的sql类型是TEXT的Tdataset数据集 WINDOWS2000的渐显菜单如何在DELPHI中实现?知道的进来-——— 问一个不简单的问题 如何显示rave报表?
如动画都需要你自己控制的话,那你再写一个image移动位置的函数。
1:在计算机中,搜索“Peedy.acs"
2:Delphi 中添加 MicroSoft Agent2.0
3:在窗体中放入 TAgent控件
4:组织代码
private
b:OleVariant; var
Form1: TForm1;
a:IAgentCtlCharacter;
d:agent;//IAgentCtlCharacterEx;
implementationprocedure TForm1.FormCreate(Sender: TObject);
Var
sPath:String;
i:Smallint;
begin
sPath:=ExtractFilePath(Application.ExeName)+'Peedy.acs';
Agent.Characters.Load('Peedy',sPath);
Agent.Connected:=True;
end;procedure TForm1.ShowBtnClick(Sender: TObject);
begin
Agent.Characters.Character('Peedy').Show(b);
Agent.Characters.Character('peedy').Speak('松树吗?,你好高哦!,我好想你幼苗的样子哦!!!',b);
sleep(2000);
Agent.Characters.Character('peedy').Speak('你知道吗?你不在我身边的这些日子'+#13+',我时时刻刻都在想你哦!!!',b);
sleep(1000);
Agent.Characters.Character('peedy').Play('Greet');
end;
--------------------------------
以上给你提供一个途径,具体怎么发挥自己努力实现