[stasmd]

SizeOf(TMemoryStatus) »

Не совсем с этим понятно. То есть это замена

Код:

MemInfo.dwLength:=SizeOf(MemInfo);

как я понял.


Насчет памяти, дал не тот код
Вот нужный, но он не работает как следует

Код:

// РАМ на видюхе 2
function vidmeminfo2:PChar;
var
  lpDisplayDevice: TDisplayDevice;
  a:Real;
  b:string;
begin
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
EnumDisplayDevices(nil, 0, lpDisplayDevice, 0);
a:=(lpDisplaydevice.StateFlags div 524280);
//a:=Round(Int(a));
b:=FloatToStr(a);
Result:=Pchar(b+' ');
end;