Microsoft Agent技术在Delphi中的应用

Microsoft Agent技术在Delphi中的应用(5)
procedure TForm1.Button1Click(Sender: TObject);
begin
  Peedy.Commands.Add('Delphi','Run
  Delphi','Delphi',True,True);
  Peedy.Commands.Add('Visual Basic','
  Run VB','VB',True,True);
  Peedy.Show(0);
  Peedy.Speak('What can I do for you, sir?','');
end;

---- ⑷、按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98/NT简体中文版环境下调试通过。