用Delphi的都是高手，哪位高手使用过TAPI过来帮助一下！

使用tapi进行拨号：  TAPIMAXDESTADDRESSSIZE  = 80;
  TAPIMAXAPPNAMESIZE      = 40;
  TAPIMAXCALLEDPARTYSIZE  = 40;
  TAPIMAXCOMMENTSIZE      = 80;function tapiRequestMakeCall      ; external 'Tapi32.dll';Function  DialPhone (PhoneNbr, CalledParty, Comment : String) : Boolean;
Var
  MyPhoneNbr : Pchar;
  MyAppName : Pchar;
  MyCalledParty : Pchar;
  MyComment : Pchar;
Begin
  Result := false;
  If (length(PhoneNbr) > TAPIMAXDESTADDRESSSIZE) or
     (length(CalledParty) > TAPIMAXCALLEDPARTYSIZE) or
     (length(Comment) > TAPIMAXCOMMENTSIZE) then
    exit;  myPhoneNbr := StrAlloc(TAPIMAXDESTADDRESSSIZE);
  MyAppName := StrAlloc(TAPIMAXAPPNAMESIZE);
  MyCalledParty := StrAlloc(TAPIMAXCALLEDPARTYSIZE);
  MyComment := StrAlloc(TAPIMAXCOMMENTSIZE);
  try
    StrPCopy(MyPhoneNbr, PhoneNbr);
    StrPCopy(MyCalledParty, CalledParty);
    StrPCopy(MyComment, Comment);
    StrPCopy(MyAppName, 'Whatever');
    Result := tapiRequestMakeCall(MyPhoneNbr, MyAppName,
                                  MyCalledParty,MyComment) = 0;
  finally
    StrDispose(MyPhoneNbr);
    StrDispose(MyAppName);
    StrDispose(MyCalledParty);
    StrDispose(MyComment);
  end;
end;--------------------------------------------------------------------------------
   {tapi Errors}   const TAPIERR_CONNECTED = 0;   const TAPIERR_DROPPED = -1;   const TAPIERR_NOREQUESTRECIPIENT = -2;   const TAPIERR_REQUESTQUEUEFULL = -3;   const TAPIERR_INVALDESTADDRESS = -4;   const TAPIERR_INVALWINDOWHANDLE = -5;   const TAPIERR_INVALDEVICECLASS = -6;   const TAPIERR_INVALDEVICEID = -7;   const TAPIERR_DEVICECLASSUNAVAIL = -8;   const TAPIERR_DEVICEIDUNAVAIL = -9;   const TAPIERR_DEVICEINUSE = -10;   const TAPIERR_DESTBUSY = -11;   const TAPIERR_DESTNOANSWER = -12;   const TAPIERR_DESTUNAVAIL = -13;   const TAPIERR_UNKNOWNWINHANDLE = -14;   const TAPIERR_UNKNOWNREQUESTID = -15;   const TAPIERR_REQUESTFAILED = -16;   const TAPIERR_REQUESTCANCELLED = -17;   const TAPIERR_INVALPOINTER = -18;     {tapi size constants}   const TAPIMAXDESTADDRESSSIZE = 80;   const TAPIMAXAPPNAMESIZE = 40;   const TAPIMAXCALLEDPARTYSIZE = 40;   const TAPIMAXCOMMENTSIZE = 80;   const TAPIMAXDEVICECLASSSIZE = 40;   const TAPIMAXDEVICEIDSIZE = 40;     function tapiRequestMakeCallA(DestAddress : PAnsiChar;   AppName : PAnsiChar;   CalledParty : PAnsiChar;   Comment : PAnsiChar) : LongInt;   stdcall; external 'TAPI32.DLL';     function tapiRequestMakeCallW(DestAddress : PWideChar;   AppName : PWideChar;   CalledParty : PWideChar;   Comment : PWideChar) : LongInt;   stdcall; external 'TAPI32.DLL';     function tapiRequestMakeCall(DestAddress : PChar;   AppName : PChar;   CalledParty : PChar;   Comment : PChar) : LongInt;   stdcall; external 'TAPI32.DLL';     procedure TForm1.Button1Click(Sender: TObject);   var   DestAddress : string;   CalledParty : string;   Comment : string;   begin   DestAddress := '1-555-555-1212';   CalledParty := 'Frank Borland';   Comment := 'Calling Frank';   tapiRequestMakeCall(pChar(DestAddress),   PChar(Application.Title),   pChar(CalledParty),   PChar(Comment));     end;     end.