Dafür kannst oben einen eigenen Fallback einbauen:
Delphi-Quellcode:
{$IF not Declared(GetCPUID)}
type
TCPUIDRec =
record
EAX, EBX, ECX, EDX: UInt32;
end;
function IsCPUIDAvailable: Boolean;
begin
...
end;
//function GetCPUID(FunctionID: UInt32; SubFunctionID: UInt32 = 0): TCPUIDRec; // EAX=FunctionID, ECX=SubFunctionID
// Eigentlich so, aber Kürzer passt auch.
function GetCPUID(FunctionID: UInt32): TCPUIDRec;
// EAX=FunctionID
asm
...
end;
{$IFEND}
Warum sind viele Konstenten im FastBase64 anstatt in FastBase64Const?