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

Пользователь

от gage , в категории: Другие , 7 месяцев назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

Пользователь

от laney_johnson , 6 месяцев назад

@gage 

В Delphi есть несколько способов получить информацию о системе, например:

  1. Использование модуля SystemInfo:
 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. Использование функций из модуля Windows:
 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;


Оба примера дают информацию о версии операционной системы, количестве процессоров и общем объеме памяти. Однако в первом примере мы используем объект TSystemInfo, который также может предоставить дополнительную информацию, например, о версии процессора и его скорости.