Delphi XE6 Android拨号函数
2024-08-27 06:03:28
http://blog.sina.com.cn/s/blog_44fa172f0101rpex.html
//引用单元:FMX.PlatForm, FMX.PhoneDialer
procedure TForm1.Call(ANum: String);
var
PhoneDialerService: IFMXPhoneDialerService;
begin
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实例!
最新文章
- 各种Js封装
- hosts的设置,我们直接可以在下面路径找到hosts文件:C:\Windows\System32\drivers\etc
- Molile App(HTTP/HTML)—Analyze Traffic
- 使用Robomongo 连接MongoDB 3.x 报 Authorization failed 解决办法(转)
- 蓝牙4.0——Android BLE开发官方文档翻译
- 定制一个FlatBuffers编译器
- 利用if else判断是否及格
- 【Java】Web 服务编程技巧与窍门: 在 UDDI 注册中心为 Web 服务注册开发 UDDI Java 应用程序
- Python IDLE快捷键一览
- txt提取文件中包含特定内容的内容
- Pthon面向对象之基础
- php(apache)切换版本
- February 10th, 2018 Week 6th Saturday
- 【Elasticsearch】Elasticsearch在windows下的安装方法
- Node.js随手笔记
- NGINX安全
- GitLab问题小结
- 使用SGD(Stochastic Gradient Descent)进行大规模机器学习
- Ubuntu创建新用户并增加管理员权限
- SecureCRT远程连接Linux下的sqlplus中退格键不能使用之解决方法