function GettingHWProfileName: string; //Win95OSR2 or later and NT4.0 or later var pInfo: tagHW_PROFILE_INFOA; begin GetCurrentHwProfile(pInfo); Result:=pInfo.szHwProfileName; end;
Статья Получение имени конфигурации HardWare profile раздела ОС и Железо Компьютер может быть полезна для разработчиков на Delphi и FreePascal.
