Otazka je, jak casto budete chtit aktualizovat dostupnou virtualni pamet.
Nize naleznete kod, ktery vam dostupnou pamet zjisti, vysledek je zobrazen v MsgBoxu, muzete si to upravit (a zobrazovat) podle libosti.
Jen doplnim, ze podrobnosti naleznete zde:
http://support.microsoft.com/default.aspx?scid=kb;EN-GB;q213267&GSSNB=1
Kdyby neco, zkusim blize vysvetlit, ale tohle uz je na me trosku moc, takze znam jen zaklady (a nekdy ani ty ne
)
Slibeny kod (nakoprujte do noveho modulu i s deklarovanou funkci GlobalMemory Status:Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Sub VirtualMemoryINFO()
Dim MEMstat As MEMORYSTATUS
GlobalMemoryStatus MEMstat
msg = "Dostupná virtuální paměť: " & vbNewLine
msg = msg + Format(MEMstat.dwAvailVirtual \ 1024, "###,###,###") + " K"
MsgBox msg, vbInformation, "Dostupná paměť"
End Sub
citovat
Nize naleznete kod, ktery vam dostupnou pamet zjisti, vysledek je zobrazen v MsgBoxu, muzete si to upravit (a zobrazovat) podle libosti.
Jen doplnim, ze podrobnosti naleznete zde:
http://support.microsoft.com/default.aspx?scid=kb;EN-GB;q213267&GSSNB=1
Kdyby neco, zkusim blize vysvetlit, ale tohle uz je na me trosku moc, takze znam jen zaklady (a nekdy ani ty ne
)Slibeny kod (nakoprujte do noveho modulu i s deklarovanou funkci GlobalMemory Status:Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Sub VirtualMemoryINFO()
Dim MEMstat As MEMORYSTATUS
GlobalMemoryStatus MEMstat
msg = "Dostupná virtuální paměť: " & vbNewLine
msg = msg + Format(MEMstat.dwAvailVirtual \ 1024, "###,###,###") + " K"
MsgBox msg, vbInformation, "Dostupná paměť"
End Sub
citovat
\n
RSS nejnovější články