|
Api # Ottenere la memoria libera sotto Win95
Ottenere la lista dei processi attivi sotto Win95 Rilevare per quale S.O. e' stato creato un file eseguibile NOTA: Vedere anche le altre pagine di questo sito per trovare altri esempi di utilizzo delle API Ottenere la memoria libera sotto Win95 Una semplice routine per ottenere informazioni riguardo la memoria disponibile. Inserire il seguente codice In un modulo Bas, e richiamare la Sub VisMemoria Type MEMORYSTATUS dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) Sub VisMemoria() Dim Ms As MEMORYSTATUS Ms.dwLength = Len(Ms) MsgBox "Totale memoria fisica: " & Ms.dwTotalPhys & vbCr & _ "Memoria disponibile: " & Ms.dwAvailPhys End Sub |