Как узнать информацию о системе в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

uses SystemInfo;

var
  SysInfo: TSystemInfo;
begin
  SysInfo := TSystemInfo.Create;
  try
    ShowMessage('Операционная система: ' + SysInfo.OSFullName);
    ShowMessage('Версия операционной системы: ' + SysInfo.OSVersion);
    ShowMessage('Количество процессоров: ' + IntToStr(SysInfo.ProcessorCount));
    ShowMessage('Общее количество памяти: ' + IntToStr(SysInfo.TotalMemory));
  finally
    SysInfo.Free;
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

uses Windows;

var
  osVerInfo: TOSVersionInfo;
begin
  ZeroMemory(@osVerInfo, SizeOf(TOSVersionInfo));
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(osVerInfo);
  ShowMessage('Операционная система: ' + osVerInfo.szCSDVersion);
  ShowMessage('Версия операционной системы: ' + IntToStr(osVerInfo.dwMajorVersion) + '.' + IntToStr(osVerInfo.dwMinorVersion));
  ShowMessage('Количество процессоров: ' + IntToStr(SystemInfo.dwNumberOfProcessors));
  ShowMessage('Общее количество памяти: ' + IntToStr(SystemInfo.dwTotalPhys div (1024 * 1024)) + ' МБ');
end;