如何用delphi调用金山词霸2002（简单的调用，看看吧！）(150分)

在一个form中的Edit.Text中输入某一个单词，按下按钮Button后，便可实现以下要求：
“选中”此单词的“简明英汉词典”中的内容（具体哪些内容见例子），然后复制（指复制到ClipBoard上）
例子： insure
[ in5FuE ]
vt.给...保险
v.确保

用sendmessage(handle,wm_settext,0,longint(pchar(edit1.text)))//此处handle为
词霸的的输入框

var
buffer: Array[0..255] of Char
SendMessage(Handle,wm_gettext, Integer(@buffer[0]),255);//此处的handle为解释窗体的句柄

句柄可通过spy++或win32sight获得

兄弟你也太菜了点吧，这样你以为容易？

52free，wbtvc，以及其他编程高手：
你好，因鄙人是学临床医学专业的，为了有个“好东东”帮助学习英语，才刚自学delphi的。
能不能再详细地写一次，谢谢！！
按照你们的提示，是不是这样写呀，可是....可是我在word中仍然不能粘贴到clipbord的内容。
愚人现在真是急得555555555555555555555555555555，求求大家，详详细细的写一次吧。
鄙人的QQ：61414212 E－Mail： langdx@yahoo.com.cn
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
buffer: Array[0..255] of Char;
begin
//此处handle为词霸的的输入框
SendMessage(handle,wm_settext,0,longint(pchar(edit1.text)));
//此处的handle为解释窗体的句柄
SendMessage(Handle,wm_gettext, Integer(@buffer[0]),255);
end;
end.

不妨用一下shellexecute函数！

sorry !I don't know!

to 糊涂小子:
对于这个shellexecute 函数，你能不能详细说一下它的参数与用法呀？谢谢！！