@gage
В 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; |
Оба примера дают информацию о версии операционной системы, количестве процессоров и общем объеме памяти. Однако в первом примере мы используем объект TSystemInfo, который также может предоставить дополнительную информацию, например, о версии процессора и его скорости.