Einzelnen Beitrag anzeigen

bra

Registriert seit: 20. Jan 2015
711 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#26

AW: Android-Version herausfinden?

  Alt 8. Mai 2017, 15:34
Zitat:
dass ich /proc/cpuinfo abfrage
hast Du da bitte mal einen Codeschnipsel?
Hier mal unser Code:

Delphi-Quellcode:
function GetProcCPUInfo: String;
{$IF Defined(ANDROID)}
var
  FS: TFileStream;
  ch: Char;
begin
  result := '';
  if FileExists('/proc/cpuinfo') then
  begin
    try
      ch := #0;
      FS:= TFileStream.Create('/proc/cpuinfo', fmOpenRead);
      while (FS.Read(ch, 1) = 1) do
        result := result + ch
    finally
      FS.Free;
    end;
  end;
end;
{$ELSE}
begin
  result := 'Nicht implementiert';
end;
{$ENDIF}

function IsHoudiniEmulation: Boolean;
begin
  result := false;
{$IF Defined(ANDROID)}
  if GetProcCPUInfo.Contains('placeholder') then
    result := true;
{$ENDIF}
end;
  Mit Zitat antworten Zitat