Thema
:
Android-Version herausfinden?
Einzelnen Beitrag anzeigen
bra
Registriert seit: 20. Jan 2015
711 Beiträge
Delphi 10.2 Tokyo Enterprise
#
26
AW: Android-Version herausfinden?
8. Mai 2017, 15:34
Zitat von
sko1
:
Zitat:
dass ich /proc/cpuinfo abfrage
hast Du da bitte mal einen Codeschnipsel?
Hier mal unser Code:
zusammenfalten
·
markieren
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
bra
Öffentliches Profil ansehen
Mehr Beiträge von bra finden