geheugen (memory)

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

geheugen (memory)

Berichtdoor anthonio » di jun 05, 2007 10:31 am

Code: Selecteer alles
'See how much memory, swap and virtual memory your computer has
'written by anthonio

struct MEMORYSTATUS, _
       dwLength As Long, _
       dwMemoryLoad As Long, _ 'contains percentage memory used
       dwTotalPhys As Long, _ 'total amount of physical memory
       dwAvailPhys As Long, _ 'available amount of physical memory
       dwTotalPageFile As Long, _ 'total amount of memory in swap file
       dwAvailPageFile As Long, _ 'available amount of memory in swap file
       dwTotalVirtual As Long, _ 'total amount of virtual memory
       dwAvailVirtual As Long 'available amount of virtual memory

calldll #kernel32, "GlobalMemoryStatus",MEMORYSTATUS As struct, GetMemory as long

MEMORYSTATUS.dwTotalPhys.struct = int(MEMORYSTATUS.dwTotalPhys.struct/1024/1024)
MEMORYSTATUS.dwAvailPhys.struct = int(MEMORYSTATUS.dwAvailPhys.struct/1024/1024)
usedmem$ = str$(MEMORYSTATUS.dwTotalPhys.struct - MEMORYSTATUS.dwAvailPhys.struct)

totalmem$ = str$(MEMORYSTATUS.dwTotalPhys.struct)
availmem$ = str$(MEMORYSTATUS.dwAvailPhys.struct)

print "totaal " + totalmem$ + " MB"
print "available " + availmem$ + " MB"
print "used " + usedmem$ + " MB"

wait
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » do jun 07, 2007 8:52 pm

Hmmm... je blijf ons verbazen.
Waar heb je deze vandaan gehaald?
MSDN?

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor Gordon » do jun 07, 2007 9:50 pm

Hallo Allemaal,

Ik keek natuurlijk direct in de API translator van
Colin McMurchie, maar daarin staat dat MEMORYSTATUS
in een voor LB onbekende type is

' PROBLEM MEMORYSTATUS is unknown type to LB

Dus knap van Antonio om dat uit te hebben gezocht.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » zo jun 10, 2007 9:21 am

lol, stop met zoveel krediet te geven.
ik heb deze ook vertaald van VB naar JB, deze was inderdaad wel iets moeilijker maar na een uurtje werkte het.
hoe zeggen ze dat: nothing is impossible, for everything there is a solution (niets is onmogelijk, voor alles is er een oplossing)

edit @ gordon: nee tussen jou en mij gezegd vind ik MSDN relatief ingewikkeld. Ik gebruik de VB sites liever die ik hier eens gepost heb, veel handiger en beter uitgelegd, zeker op gebied van de voorbeelden.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » zo jun 24, 2007 11:00 am

Hallo Antonio,

In de advapi32.dll staan de functies met betrekking tot
de register bewerkingen door Windows.
Heb je daar al naar gekeken?

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » ma jun 25, 2007 1:57 pm

ga ik sebiet es doen.
lol bedankt voor de response maar ik ben blijkbaar vergeten zeggen dat ik het al gevonden heb.
ter vergelijking:
met RAM BOOSTER PRO kan ik 55MB geheugen recuperen.

Met het prog dat ik geschreven heb kan ik 100MB geheugen recuperen.

dat is bijna het dubbele.
alleszins, mijn pc blijft normaal doen en alles werkt nog perfect als ik het programma run. Ik ga dit nu nog even testen op een andere pc om er zeker van te zijn dat het niet schadelijk is.
Is trouwens een van de moeilijkste zaken geweest die ik tot nu toe gedaan heb.
Heb er 9dagen zitten op zoeken hoe dit te doen. maar uiteindelijk loont het toch de moeite.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron