[kotyarko@fb]

в коде ничего нету связанное с производителями процессоров. »

Уверены?


Применяете переменную PROCESSOR_IDENTIFIER. А потом спокойно проверяете, AMD или Intel.

А ещё можно таким способом:

Код:

Function InitializeSetup(): Boolean;
var
 DeviceName: String;
begin
 Result := RegQueryStringValue(HKLM, 'Hardware\Description\System\CentralProcessor\0', 'ProcessorNameString', DeviceName);
 if Result then
  MsgBox(DeviceName, mbInformation, MB_OK);
end;