get cpu id with delphi
In PAS file:
Interface
function CPUFamily: String; external 'HardwareIDExtractorPas.DLL';
Implementation
procedure Button1ClickExecute(Sender: TObject);
begin
Label1.Caption:= CPUFamily;
end;