[CrazyFish]

Короче есть функция:

Код:

function VideoMemory: Cardinal;
var
  dDirect   : IDirectDraw7;
  Hal, Hel  : DDCaps_DX7;
begin
  DirectDrawCreateEx(Nil, dDirect, IID_IDirectDraw7, Nil);
  FillChar(Hal, SizeOf(DDCaps_DX7), 0);
  Hal.dwSize := SizeOf(DDCaps_DX7);
  FillChar(Hel, SizeOf(DDCaps_DX7), 0);
  Hel.dwSize := SizeOf(DDCaps_DX7);
  dDirect.GetCaps (@Hal, @Hel);
  Result := Hal.dwVidMemTotal;
end;

Надо ее оживить.