Получение имени конфигурации HardWare profile

Дата: 01.01.2007

//Win95OSR2 or later and NT4.0 or later
function GettingHWProfileName: string;
var
  pInfo:  tagHW_PROFILE_INFOA;
begin
  GetCurrentHwProfile(pInfo);
  Result:=pInfo.szHwProfileName;
end;