Titolo: Ottenere info sulla memoria
Categoria: Codice |
|
Ultimo Aggiornamento: 02/02/11 |
` ----------------------------------------------------
` User name (OS): Umberto Migliore
` Date and time: 02-02-11, 10:51:05
` ----------------------------------------------------
` Method: nx_GetMemory
` Description
` se non passi parametri mostra un alert con tutti i valori correnti
` se passi una delle seguenti stringhe ritorna il valore specifico in KB
`
` es. nx_GetMemory
` es. $memoriadisponibile:=nx_GetMemory("Free Memory")
`
` $1 può essere:
` "cacheSize"
` "usedCacheSize"
` "Physical Memory Size"
` "Free Memory"
` "Used physical memory"
` "Used virtual memory"
` ----------------------------------------------------
ARRAY TEXT($arrNomi;0)
ARRAY REAL($arrValori;0)
ARRAY REAL($arrOggetti;0)
GET CACHE STATISTICS(1;$arrNomi;$arrValori;$arrOggetti)
If (Count parameters=0)
C_TEXT($testo)
$testo:=""
For ($i;1;Size of array($arrValori))
$testo:=$testo+$arrNomi{$i}+" : "+String($arrValori{$i}/1024;"### ### ### KB")+Char(13)
End for ALERT($testo)
Else `Count parameters>0
C_TEXT($1;$parametro)
$pos:=Find in array($arrNomi;$parametro)
If ($pos>0)
$0:=$arrValori{$pos}/1024 `i valori sono in bytes
Else $0:=-1
End if End if
Inviato da: Umberto Migliore |
|
Visite: 10212 |
Se accedi con utente e password, puoi aggiungere dei commenti.