[stasmd]

Admiral, код брал на Делфи Кингдом, сам я не особо врубился в его значение.
Насчет видео, то ясно чего не не выдавал

Константа подбиралась под количество рам на моей видяхе (но как оказалось бестолку)


Далее с оперативкой, функция GlobalMemoryStatusEx не пашет, нету ее на делфи
Путался методом копипаста добаить, но бестолку

Код:

[Error] KMSI.dpr(33): Undeclared identifier: 'GlobalMemoryStatusEx'

вот сам код

Код:

function TotalPhysicalMemory: Int64;
var
   MemoryStatus: TMEMORYSTATUSEX;
begin
     MemoryStatus.dwLength := SizeOf(MemoryStatus);
     if GlobalMemoryStatusEx(MemoryStatus) then
      Result := MemoryStatus.ullTotalPhys
     else
      Result := 0;
end;

переменные выше описаны, кидать сюда их не стал.