Rede - usar o modem para efetuar ligacoes

Top  Previous  Next

// Usar o Modem para efetuar ligacoes

 

function tapiRequestMakeCall(lpszDestAddress : LPCSTR; lpszAppName : LPCSTR; lpszCalledParty : LPCSTR;

                            lpszComment : LPCSTR) : LongInt; stdcall; external 'tapi32.dll';

 

implementation

 

{$R *.DFM}

 

function DialPhone(const PhoneNbr, CalledParty, Comment: string): Boolean;

Begin

  Result := tapiRequestMakeCall(PChar(PhoneNbr), PChar(Application.Title), PChar(CalledParty),PChar(Comment)) = 0;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  DialPhone('555-1234','José da Silva','Teste');

end;