Delphi XE6 Android拨号函数

http://blog.sina.com.cn/s/blog_44fa172f0101rpex.html

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实例！