Delphi XE6 Android撥號函數

標籤：ref   tar   turn   src   article   使用   div   width   box   

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執行個體！

Delphi XE6 Android撥號函數