有谁知道Windows中的Agent控件的用法？(100分)

Office中经常出现的小狗、小别针之类的Logo，好像是用一个叫Agent的东东
实现的，有谁知道是怎么用的吗？
据说这个Agent的东东用处很大!

我也想知道

在 机械工业出版社 出的 Delphi COM 深入编程 一书的第五章 activex控件和activeforms
中有比较详细介绍，可参阅大概步骤如下，
1。先在 http://msdn.microsoft.com/msagent 中 下载 agent 然后安装
2。用 import activex comtrol 倒入 d5中
3。用 var
Character:IAgentCtlCharacter;
Request:IAgentCtlRequest;
去控制aegnt ,具体看书把.

到这个站点去看看，上面介绍了Agent的一些基本常识和用法，还有库文件和控件下载，
不错！ http://controlsky.533.net/info/Agent.htm
此外我在《计算机世界日报实用技巧》站点上看到一篇关于Agent应用的文章,
我发到你的信箱里了！

不好玩，下个agent后根本不知道这个agent有那些表情，只会让这个agent在屏幕上聊天
。不过发现delphi import的activex控件还是做得够可以的，vb的例子直接拿来改写成
delphi的格式就可以运行了。

var
Form1: TForm1;
Genie: IAgentCtlCharacter;
Robby: IAgentCtlCharacter;
GenieRequest1, GenieRequest2: IAgentCtlRequest;
RobbyRequest1: IAgentCtlRequest;
ag1, ag2: Variant;

procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Characters.Load('CLIPPIT', 'c:/temp/CLIPPIT.ACS');
Agent1.Characters.Load('merlin', 'c:/temp/merlin.acs');
Genie := Agent1.Characters.Item['clippit'];
Robby := Agent1.Characters.Item['merlin'];

Robby.Show(ag1);
Genie.Show(ag2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Genie.Show(ag1); // ' 执 行 名 为"Suggest" 的 动 作
// Genie.Play('suggest');
//' 把Genie 移 动 到 座 标(200,200) 处，
// 用GenieRequest1 来 标 识 该 动 作 请 求
GenieRequest1 := Genie.MoveTo(200, 200, ag1);
//' 执 行 名 为"Searching" 的 循 环 动 画 动 作，
// 用GenieRequest2 来 标 识 该 动 作 请 求 Set GenieRequest2 = Genie.Play("Searching") ' Robby 等 待Genie 的MoveTo 方 法 执 行 完 毕， 方 才 显 示
Robby.Wait(GenieRequest1);
Robby.Show(ag2);
Robby.Play('Suggest');
Robby.Play('read');
Robby.Play('Congratulate'); //' 由Robby 来 终 止Genie 的 循 环 动 画 动 作
//Robby.Interrupt(GenieRequest2);
//Genie.Play('write');
Genie.Speak('hello world', ag1);
Robby.Speak('有没有搞错啊，这样的助理也算？？？', ag2);
end;

谢谢各位！
seachild2000的文章我在网上也找到了，但是那上面讲的很模糊。谢谢！
季晓峰的回答给了我很大的忙！谢谢！
注意提醒各位，使用Agent在调试时容易死机！

》》来自：季晓峰 时间：00-12-10 11:26:59 ID:414243
我也想知道

》》季晓峰的回答给了我很大的忙！谢谢！

？？

我给你发了几个例子,如有不清楚,请E_mail讨论

各位大虾：
语音可以实现，动画可以实现，可像Office中的气球中的按钮怎么实现？（有了按钮和
搜索帮助文档功能之后，才能真正成为"助手"，如不能实现的话，只是一解闷的玩具而已！
没有多大的意义）。

precision：次进入: 00-12-23 0:46:23