Llamar a un telefono usando el TAPI Dialer de Windows

Enviado Por: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Fecha: 11/01/00

Truco accedido 68 veces

Podemos usar la función tapiRequestMakeCall, la cual esté contenida en TAPI32.DLL
Delphi no trae definida esta funcion (o por lo menos yo no sé donde la tiene definida...), pero podemos definirla y usarla nosotros mismos:

Pon estas lineas despues del uses de tu form:

      function tapiRequestMakeCall(lpszDestAddress,
                                   lpszAppName,
                                   lpszCalledParty,
                                   lpszComment: LPCSTR): DWORD; stdcall;

Y pon esta otra en el implementation de la form:

 function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';

Y ahora podemos llamar a un teléfono. Un ejemplo 'Diabólico' :

      procedure TForm1.Button1Click(Sender: TObject);
      var
        PhoneNumber: array [0..255] of char;
        AQuien: array [0..255] of char;
      begin
        StrPCopy(PhoneNumber,'666666666');
        StrPCopy(AQuien,'To Satan');
        tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
      end;