本文整理自网络,侵删。
//引用单元: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 comparedatetime、comparedate、comparetime、samedatetime、samedate、sametime �c 对比时间的函数
Delphi xe6取得android智能手机的电话号码等的终端信息
更多相关阅读请进入《Delphi》频道 >>