delphi xe6 拨打电话

delphi xe6 拨打电话

procedure TPhoneDialerForm.btnMakeCallClick(Sender: TObject);
var
 PhoneDialerService: IFMXPhoneDialerService;

begin
 { test whether the PhoneDialer services are supported }
 if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
 begin
   { if the Telephone Number is entered in the edit box then make the call, else
     display an error message }
   if edtTelephoneNumber.Text <> '' then
     PhoneDialerService.Call(edtTelephoneNumber.Text)
   else
   begin
     ShowMessage('Please type-in a telephone number.');
     edtTelephoneNumber.SetFocus;
   end;
 end;
end;