[stasmd]

Admiral, насчет ключей реестр а знаю, уже думал над этим, но на разных компах {8A1E77B7-6F63-41CF-96DA-69F860EB4DDC}\0000 это значение разное.


Вот код для определения RAM (убил вчера часа 3 перепробовал массу вариантов и вариаций написания)

Код:

// общий размер физической памяти
function raminfo: PChar;
var
   MemoryStatus: TMemoryStatusEx;
begin
//ZeroMemory(@MemoryStatus, SizeOf(TMemoryStatusEx));
MemoryStatus.dwLength := SizeOf(TMemoryStatusEx);
GlobalMemoryStatusEx(MemoryStatus);
Result :=PChar(IntToStr(MemoryStatus.ullTotalPhys div 5441471906132)+' Mb '); //не обращать внимания, пытался подстроить под себя
if Result<>' ' then
Result:=Result
else
Result:=PChar('Нет Данных');
end;

[Admiral]

stasmd

HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO

будет на всех ПК, а там в параметрах

указанны дальнейшие адреса по поиску

программно.
Но смысла в них нет, так как в HardwareInformation.MemorySize что-то не то.

[Drongo]

stasmd, Admiral, Извините что вмешиваюсь, мне когда-то Serega помогал инсталятор делать, в котором была проверка видеопамяти. Может это поможет чем-то? Здесь идёт определение модели видеокарты, размера памяти и текущее разрешение.

Код:

// Видеокарта:
  VideoRAMPanel.Color := $CCFFCC

  lpDisplayDevice.cb := SizeOf(lpDisplayDevice)
  DeviceKey := ''
	n := 0
  while not (EnumDisplayDevices(0, n, lpDisplayDevice, 0) and
            (lpDisplayDevice.StateFlags and DISPLAY_DEVICE_PRIMARY_DEVICE > 0)) and (n < 127) do n := n + 1
	for n := 0 to 127 do DeviceKey := DeviceKey + lpDisplayDevice.DeviceKey[n]
  Delete(DeviceKey, Pos(Chr(0), DeviceKey), 127)  // Ключ драйвера получаем из API
	StringChange(DeviceKey, '\Registry\Machine\', '')
  errCode := 1
  DeviceValue := 0
  if RegQueryBinaryValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', DeviceName) then
		 for n := 1 to Length(DeviceName) do
       begin
         DeviceValue := DeviceValue + Ord(DeviceName[n])*errCode
         errCode := errCode*$100
       end
  else
     if RegQueryDWordValue(HKLM, DeviceKey, 'HardwareInformation.MemorySize', DeviceValue) then
     else
        RegQueryDWordValue(HKLM, DeviceKey + '\Info', 'VideoMemory', DeviceValue)
	DeviceName := ''
  for n := 0 to 127 do DeviceName := DeviceName + lpDisplayDevice.DeviceString[n]
  Delete(DeviceName, Pos(Chr(0), DeviceName), 127)

  if DeviceName <> '' then
    if DeviceValue > 0 then
      VideoRAMPanel.Text := ' ' + DelSp(DeviceName) + ', '+ ByteOrTB(DeviceValue/oneMB, False)
    else
      VideoRAMPanel.Text := ' ' + DelSp(DeviceName) + ' (Standard), '+ ByteOrTB(DeviceValue/oneMB, False)
  else
     begin
      VideoRAMPanel.Text := ' Драйвер устройства не обнаружен'
      VideoRAMPanel.Color := $CCCCFF
      ChangeText := True
     end
  if (DeviceValue/oneMB < NeedVideoRAM) then
     begin
       VideoRAMPanel.Color := $CCCCFF
       ChangeText := True
     end
  VideoRAMPanel.Text := VideoRAMPanel.Text + ', ' + IntToStr(GetSystemMetrics(0)) + 'x' +
                        IntToStr(GetSystemMetrics(1)) + ' (' + IntToStr(GetDeviceCaps(CreateDC('DISPLAY','','',0),14) *
                        GetDeviceCaps(CreateDC('DISPLAY','','',0),12)) + ' bit)'

[stasmd]

Drongo, вроде чето есть. Проверю сайчас, спасибо.

Admiral, а что с кодом для оперативки делать? Скиньте свой для сравнения.

PS Старый код без ЕХ прекрасно пашет на х64 :/

[Admiral]

stasmd, у меня на Си

Код:

#include <windows.h>
#include <stdio.h>

int wmain(int argc, wchar_t *argv[])
{
	MEMORYSTATUSEX Buffer = {0};	//Объявляем переменную Buffer структурного типа MEMORYSTATUSEX
	Buffer.dwLength = sizeof(MEMORYSTATUSEX);	//Присваиваем элементу dwLength размер структуры MEMORYSTATUSEX
	GlobalMemoryStatusEx(&Buffer);	//Вызываем функцию определяющую количество установленной на ПК памяти
	wprintf(L"\n%ld", Buffer.ullTotalPhys);		//результат отобразить в консоли
	return 0;	//заканчиваем работу программы
}

Если сравнивать с постом №11 и не брать во внимание строку с делением то код такой же.
Инициализация MEMORYSTATUSEX Buffer = {0}; аналогична тому что далее будет вызвано ZeroMemmory, но в данном случаи главное заполнить dwLength перед вызовом GlobalMemoryStatusEx.

[stasmd]

Вопрос - где в реестре Windows хранится значение текущей оперативной памяти? И храниться ли?

[Drongo]

И храниться ли? »

Думаю, что нет. Не хранится такое значение в реестре.

[Admiral]

stasmd HKEY_LOCAL_MACHINE\HARDWARE\RESOURCEMAP\System Resources\Physical Memory параметр .Translated
Хранится не в десятичной системе исчесления, а в неком REG_RESOURCE_LIST.
how to read REG_RESOURCE_LIST data from registry

На MS How to get the Physical Memory information using Registry рекомендуют всё же прислушатся к GlobalMemoryStatus(Ex)