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 xe 下打开内存泄漏调试功能

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi中webbrowser问题集锦

Delphi getwindowhandle

Delphi 通过 shgetspecialfolderlocation、shgetpathfromidlist 函数获取常用路径

Delphi 完美获取硬盘id

Delphi操作excel说明

Delphi 实现检测线程类tthread是否结束

在Delphi 7中使用加密的sqlite

Delphi 从其它access数据导入数据到本地数据库

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

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