Delphi XE6 Android拨号函数

本文整理自网络，侵删。

 //引用单元：FMX.PlatForm, FMX.PhoneDialer
procedure TForm1.Call(ANum: String);
var
  PhoneDialerService: IFMXPhoneDialerService;
begin

  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService,
    IInterface(PhoneDialerService)) then
    if ANum <> '' then
      PhoneDialerService.Call(ANum);

end;
    这里使用的SupportsPlatFormService会返回PhoneDialerService实例！ 

相关阅读 >>

Delphi 系统日期时间格式设置

删除Delphi组件tstringlist中的重复项目

Delphi的listview自动排序

Delphi 实现代码重启android app

Delphi线程池

Delphi sql server 数据库转换为 access 数据库

Delphi int64 与 currency

Delphi xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi获取ie路径

Delphi 模仿qq截图

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE6 Android拨号函数