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