Как узнать на каком устройстве запущена программа

@97mik · Регистрация: 08.04.2009

Author24 — интернет-сервис помощи студентам

Как узнать на каком устройстве запущена программа, то есть например iPhone 4 или iPad 2?

@infocean · 25.01.2014, 19:01

Сообщение от 97mik

Как узнать на каком устройстве запущена программа, то есть например iPhone 4 или iPad 2?

Советую ознакомиться с примером в Delphi, а конкретно с C:\Users\Public\Documents\RAD Studio\12.0\Samples\MobileCodeSnippets\DeviceInfo.

Это для iOS:

Delphi

{$IFDEF IOS}
uses
  iOSapi.UIKit;
{$ENDIF}
 
{$IFDEF IOS}
procedure TDeviceInfoForm.btnGetDeviceInfoClick(Sender: TObject);
var
  Device : UIDevice;
begin
  Device := TUIDevice.Wrap(TUIDevice.OCClass.currentDevice);
 
  lbOSName.Text := Format('OS Name: %s', [Device.systemName.UTF8String]);
  lbOSVersion.Text := Format('OS Version: %s', [Device.systemVersion.UTF8String]);
  lbDeviceType.Text := Format('Device Type: %s', [Device.model.UTF8String]);
end;
{$ENDIF}

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
		1
	Как узнать на каком устройстве запущена программа 25.01.2014, 17:40. Показов 1214. Ответов 1 Метки нет (Все метки) Как узнать на каком устройстве запущена программа, то есть например iPhone 4 или iPad 2? 0

	25.01.2014, 19:01

Как узнать на каком устройстве запущена программа

Решение