Программа для тестирования аппаратного обеспечения

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Win.Registry;
 
const
  CoreTempSharedArea = 'CoreTempMappingObject';
 
type
  PMEMORYSTATUSEX = ^MEMORYSTATUSEX;
  MEMORYSTATUSEX = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: Int64;
    ullAvailPhys: Int64;
    ullTotalPageFile: Int64;
    ullAvailPageFile: Int64;
    ullTotalVirtual: Int64;
    ullAvailVirtual: Int64;
    ullAvailExtendedVirtual: Int64;
  end;
 
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  function GlobalMemoryStatusEx(lpBuffer: PMEMORYSTATUSEX): Boolean; stdcall; external kernel32;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
// Модель видеокарты
function Video: String;
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc:= 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
  begin
    Inc(cc);
    Result := lpDisplayDevice.DeviceString;
  end;
end;
 
// общий размер физической памяти
function RAMInfo: String;
var
  MemoryStatus: MEMORYSTATUSEX;
  value:integer;
begin
  MemoryStatus.dwLength := SizeOf(MEMORYSTATUSEX) ;
  GlobalMemoryStatusEx(@MemoryStatus) ;
  value:=MemoryStatus.ullTotalPhys div 1048576;
  Result:=inttostr(value)+' мб.';
end;
 
// Разрешение экрана
function VideoSize: string;
begin
  Result := IntToStr(Screen.Height)+'x'+IntToStr(Screen.Width);
end;
 
// Процессор
function GetCpuMhz: string;
var r: TRegistry;
i: string;
begin
  r := TRegistry.Create(KEY_READ);
  r.RootKey:=HKEY_LOCAL_MACHINE;
  r.OpenKey('\HARDWARE\DESCRIPTION\System\CentralProcessor\0', False);
  Result := R.ReadString('ProcessorNameString');
  r.CloseKey;
  r.free;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Видео карта: '+Video+#13+#10+'Разрешение экрана: '+
    VideoSize+#13+#10+'Процессор: '+GetCpuMhz+#13+#10+'ОЗУ: '+RAMInfo);
end;
 
end.