Detect Video Memory

Mikecrosoft

08-21-2002, 09:26 AM

Hi, this a simple question, How I can check the video memory : Total and Free using DirectX I'm currently using GetAvailableTotalMem() function but I can't obtain nothing, Please help me !

Thanks !!!

Mikecrosoft

08-22-2002, 03:47 PM

Please someone help me, is very URGENT !!!!

Thanks

ericgamer47

08-22-2002, 04:00 PM

i dont know anything about what you need, but i know a site that might help you, they have lots of lessons for all of the directx stuff in vb, the website is www.directx4vb.com

BillSoo

08-22-2002, 04:14 PM

A google search returned this link:
http://www.vbapihelpline.de/src/workshopsk.php4?Page=8&Func=DD7%20Workshop
Unfortunately, it's in german....

Mikecrosoft

08-23-2002, 09:12 AM

I checked this page and not work, check them please !

Mikecrosoft

08-23-2002, 10:20 AM

If someone need to detect the video memory (Total and free) here is the answer:

Dim dd As DirectDraw7
Dim hwCaps As DDCAPS 'HARDWARE
Dim helCaps As DDCAPS 'SOFTWARE EMULATION

Set dd = dx.DirectDrawCreate("")
dd.SetCooperativeLevel Me.hWnd, DDSCL_NORMAL
dd.GetCaps hwCaps, helCaps

'how much video memory is available
lstHardware.AddItem "GENERAL INFORMATION"
'The memory amount can be useful. If you know that you're surfaces require
'450kb of memory then you can check if the host computer has this much memory.
lstHardware.AddItem " total video memory " & CStr(hwCaps.lVidMemTotal) & " bytes (" & CStr(Format$(hwCaps.lVidMemTotal / 1024, "#.0")) & "Kb)"
lstHardware.AddItem " free video memory " & CStr(hwCaps.lVidMemFree) & " bytes (" & CStr(Format$(hwCaps.lVidMemFree / 1024, "#.0")) & "Kb)"

I found this in this good site found it by ericgamer47, about DirectX for VB:

http://www.directx4vb.com/