//呼叫電話管理員的撥號方式
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
{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 = - 0;
 const TAPIERR_DESTBUSY = - 1;
 const TAPIERR_DESTNOANSWER = - 2;
 const TAPIERR_DESTUNAVAIL = - 3;
 const TAPIERR_UNKNOWNWINHANDLE = - 4;
 const TAPIERR_UNKNOWNREQUESTID = - 5;
 const TAPIERR_REQUESTFAILED = - 6;
 const TAPIERR_REQUESTCANCELLED = - 7;
 const TAPIERR_INVALPOINTER = - 8;
{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';
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 DestAddress : string;
 CalledParty : string;
 Comment : string;
begin
 DestAddress := edit1.text; //電話號碼輸入，例如：0900123456
 CalledParty := '使用者：Qoo1234 撥出';
 Comment := '撥給 領航天使  處理中...';
 tapiRequestMakeCall(pChar(DestAddress), PChar(Application.Title), pChar(CalledParty), PChar(Comment));
end;    end.