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

Советы » Dial-up » Набрать телефонный номер

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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com