Delphi XE6 Android拨号函数

大鹏一日同风起，扶摇直上九万里。这篇文章主要讲述Delphi XE6 Android拨号函数相关的知识，希望能为你提供帮助。
http://blog.sina.com.cn/s/blog_44fa172f0101rpex.html
【Delphi XE6 Android拨号函数】
Delphi XE6 android拨号函数 (2014-05-07 17:48:51)

文章图片
转载▼

标签： it

分类： DelphiXE6

//引用单元：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实例！