Conocer el tipo de procesador

La función GetSystemInfo() proporciona información sobre el sistema. Su utilización es simple, tan solo precisa utilizar la estructura System_info, y para ello se le pasa como parámetro un puntero a esa estructura, en este ejemplo la variable lpSystemInfo

var

lpSystemInfo:TsystemInfo;
NumProc:integer;

begin
   GetSystemInfo(lpSystemInfo);
   NumProc:=lpSystemInfo.dwProcessorType;
   Showmessage(InttoStr(NumProc));
end;

El resultado con este sistema viene dado por códigos, y la posibilidad de información varía según el Windows utilizado, además no distingue el fabricante del procesador, un AMD K6 devolverá un código 5 como si de un Pentium se tratara.