Tomar el nro de celular que corre la aplicacion

[tulio]

Gracias Neftali

El codigo del ejemplo da el IMEI al cambiar la funcion me da el numero de telefono pero aparentemente en hexadecimal

aca les dejo el codigo, si alguien tiene alguna idea se lo agradezco

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  obj: JObject;
  tm: JTelephonyManager;
  identifier: String;
begin
  identifier:= '';
  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.getLine1Number);
  end;
  if identifier = '' then
    identifier := JStringToString(TJSettings_Secure.JavaClass.getString(SharedActivity.getContentResolver,
 TJSettings_Secure.JavaClass.ANDROID_ID));

   label1.Text:=identifier;

end;

y estas son las unit que hay que agregar

Código Delphi [-]
 Androidapi.JNI.Telephony, Androidapi.JNI.Provider ,
 Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText ,
 Androidapi.JNI.JavaTypes,FMX.Helpers.Android, FMX.StdCtrls;

Saludos !!!!