Прочитать свойства системы

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  SysInfo: TSystemInfo;

begin

  GetSystemInfo(SysInfo);

  with ListBox1.Items, SysInfo do

  begin

    Add('ProcessorArchitecture:' + IntToStr(wProcessorArchitecture));

    Add(FloatToStr(dwPageSize) + ' Kb page size');

    Add(Format('Lowest memory address accessible to applications and DLL - %p',

      [lpMinimumApplicationAddress]));

    Add(Format('Highest memory address accessible to applications and DLL - %p',

      [lpMaximumApplicationAddress]));

    Add('OEMID:' + IntToStr(dwOemId));

    Add('ActiveProcessorMask:' + IntToStr(dwActiveProcessorMask));

    Add(IntToStr(dwNumberOfProcessors) + ' - number of processors');

    Add('ProcessorType:' + IntToStr(dwProcessorType));

    case wProcessorLevel of

      3: Add('Intel 80386 processor level');

      4: Add('Intel 80486 processor level');

      5: Add('Intel Pentium processor level');

    end;

    Add(FloatToStr(dwAllocationGranularity / 1024) +

      ' Kb - granularity with which virtual memory is allocated');

    Add('ProcessorRevision:' + IntToStr(wProcessorRevision));

  end;

end;

Code:

...

Buffer : Array[0..30] of Char;    // Буфер под ASCIIZ строку

begin

// Открыли библиотеку User

hInstUser := LoadLibrary('USER');     

LoadString(hInstUser, 514, Buffer, 30);

// Имя пользователя

LabelUserName.Caption := StrPas(Buffer);

LoadString(hInstUser, 515, Buffer, 30);

FreeLibrary(hInstUser);

// Компания

LabelCompName.Caption := StrPas(Buffer);

WinVer := GetVersion;

// Версия Windows

LabelWinVer.Caption := Format('Windows %u.%.2u',

       [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]);

// Версия DOS

LabelDosVer.Caption := Format('DOS %u.%.2u',

       [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]);

WinFlags := GetWinFlags;

// Режим

IF WinFlags AND WF_ENHANCED > 0 THEN

  LabelWinMode.Caption := '386 Enhanced Mode'

ELSE IF WinFlags AND WF_PMODE > 0 THEN

  LabelWinMode.Caption := 'Standard Mode'

ELSE LabelWinMode.Caption := 'Real Mode';

// Сопроцессор

IF WinFlags AND WF_80x87 > 0 THEN

ValueMathCo.Caption := 'Present'

ELSE ValueMathCo.Caption := 'Absent';

// Свободно ресурсов

Fmt := GetFreeSystemResources(GFSR_SYSTEMRESOURCES);

ValueFSRs.Caption := Format('%d%% Free', [Fmt1]);

// Свободно памяти

ValueMemory.Caption := FormatFloat(',#######', MemAvail DIV

1024) + ' KB Free';

end;