Vileicht hilft das weiter?
Ich habe versucht dieses umzuschreiben so dass es halt auf Android läuft.
Original code für Windows:
Delphi-Quellcode:
if InputQuery('Machine ID: '+ MachineID ,
'Release Code', CodeStr) then begin
HexToBuffer(CodeStr, SpecialCode, SizeOf(SpecialCode));
if IsSpecialCodeValid(ModKey, SpecialCode) then
Result := GetSpecialCodeValue(ModKey, SpecialCode);
end;
@Sir Rufo
Wenns weiter Hilft, ich benutze zur Zeit XE8 Trial