Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: FireMonkey
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
97mik
12 / 12 / 5
Регистрация: 08.04.2009
Сообщений: 879
1

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

25.01.2014, 17:40. Просмотров 658. Ответов 1
Метки нет (Все метки)

Как узнать на каком устройстве запущена программа, то есть например iPhone 4 или iPad 2?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2014, 17:40
Ответы с готовыми решениями:

C++ Builder 2010 как узнать в каком режиме запущена программа
Всем доброй ночи. Подскажите можно ли в запущенной программе узнать в каком режиме запущена...

Как узнать имя машины на которой запущена программа
Здравствуйте , подскажите пожалуйста как можно узнать имя компьютера но котором запущена программа?

Как узнать, сколько раз была запущена программа?
В программу встроена авторизация, авторизация одна для всех пользователей. Хочу сделать чтобы...

Как узнать, что программа запущена в первый раз?
Как узнать, что программа запущена в первый раз - без записи в настройки, реестр и создания...

Как узнать путь к папке, в которой запущена моя программа
Кто знает, как определять пути у VB 2008? Похоже, App.Path там не работает.

1
infocean
31 / 31 / 6
Регистрация: 26.09.2013
Сообщений: 54
25.01.2014, 19:01 2
Лучший ответ Сообщение было отмечено 97mik как решение

Решение

Цитата Сообщение от 97mik Посмотреть сообщение
Как узнать на каком устройстве запущена программа, то есть например iPhone 4 или iPad 2?
Советую ознакомиться с примером в Delphi, а конкретно с C:\Users\Public\Documents\RAD Studio\12.0\Samples\MobileCodeSnippets\DeviceInfo.

Это для iOS:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{$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}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2014, 19:01

Узнать запущена ли программа
Нужно узнать, запущен ли какой нибудь процесс. В интернете нашёл вот такой код, но у меня он не...

Узнать у скольких запущена программа
Подскажите как такое сделать, пример из скайпа Картинки лучше заливать на форум

Узнать чем запущена программа
Доброго всем времени суток. Имеется программа на VB6 её запускает другая программа, как из нашей...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru