Registriert seit: 20. Jan 2015
711 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: Android-Version herausfinden?
8. Mai 2017, 14: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;
|
|
Zitat
|