Набрать телефонный номер

implementation


 {$R *.DFM}

 function
 tapiRequestMakeCall(DestAddress, AppName,
   CalledParty, Comment: PChar): Longint; stdcall
; external
 'TAPI32.DLL';

 procedure
 TForm1.Button1Click(Sender: TObject);
 var

   PhoneNumber, AppName: array
[0..255] of
 Char;
 begin

   PhoneNumber := '1234567890';
   StrPCopy(AppName, Application.Title);
   tapiRequestMakeCall(PhoneNumber, AppName, '', '');
 end
;

Другое по теме:

• Вызов номеронабирателя
• Определение состояние подключения к интернету
• Автоматически дозвониться по интернет соединению по умолчанию