Вот рабочий код
не забываем delphi 10 Seattle:Project-View sourceтам между FMX.Forms, и Unit1 in 'Unit1.pas' {Form1},вставляем:
FMX.Helpers.Android,
Androidapi.JNI.App,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.Helpers,
Androidapi.JNI.JavaTypes,
Androidapi.JNIBridge,
Androidapi.JNI.Telephony,
Androidapi.JNI.Provider ,
===============================================
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
FMX.Edit, FMX.Controls.Presentation, FMX.StdCtrls,
Androidapi.JNI.JavaTypes, Androidapi.Helpers,
Androidapi.JNI.GraphicsContentViewText,FMX.Platform.Android,
Androidapi.JNI.Telephony,
Androidapi.JNI.Provider , Androidapi.JNIBridge,
FMX.Helpers.Android;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Layout1: TLayout; Layout2: TLayout;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject); var
obj: JObject;
tm: JTelephonyManager;
identifier: string;
begin
obj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE);
if obj <> nil then
begin
tm := TJTelephonyManager.Wrap((obj as ILocalObject).GetObjectID);
if tm <> nil then
identifier := JStringToString(tm.getDeviceId);
end;
if identifier = '' then
identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver, TJSettings_Secure.JavaClass.ANDROID_ID));
Edit1.Text:= 'IMEI : '+identifier;
end;
end.
Готовый код проект https://disk.yandex.ru/d/XkL7nnDj0lVKbAКак получить IMEI.rar