关于dll的调用？？？

Question

先声明函数
type
function sendfun(参数1，参数2，参数3):返回值类型; stdcall;implementation
function sendfun;external 'sendmessto.DLL' name 'send';
这样就行

Answer 1

静态调用：procedure send(参数1，参数2，参数3);stdcall(也可能是其他，以sendmessto.dll中的定义为准);external'sendmessto.dll'name'send';
动态调用：
Type
Tsend=procedure (参数1，参数2，参数3);stdcall;
var
  libHandle:THandle;
  send:Tsend; 
begin
  libHandle:=LoadLibrary('sendmessto.dll');
  sender:=GetLibrary(LibHandle,'send');
         …………
end;

Answer 2

在VB中是这样调用的，在delphi怎样写：
Dim isSend as Boolean
Set Dsms=CreateObject(“sendmessto.sendmessto”)
isSend=Dsms.Send("参数1"，"参数2","参数3)
if isSend=true then
MsgBox "成功"
else
MsgBox "失败"
end if其中参数都是字符型