1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| hwndprocess est un entier
nomprocess est une chaîne ASCIIZ de 1024
lpidProcess est un tableau de 100 entiers
cb est un entier = Dimension(lpidProcess) * 4
cbNeeded est un entier
PROCESS_MEMORY_COUNTERS est une structure
cb est un entier
PageFaultCount est un entier
PeakWorkingSetSize est un entier
WorkingSetSize est un entier
QuotaPeakPagedPoolUsage est un entier
QuotaPagedPoolUsage est un entier
QuotaPeakNonPagedPoolUsage est un entier
QuotaNonPagedPoolUsage est un entier
PagefileUsage est un entier
PeakPagefileUsage est un entier
FIN
p_m est un PROCESS_MEMORY_COUNTERS
p_m:cb = Dimension(p_m)
// recherche du process
API ( "Psapi" , "EnumProcesses" , &lpidProcess , cb , &cbNeeded )
hwndprocess = API ( "kernel32" , "GetCurrentProcess" )
// on rempli la structure pour le process
API ( "Psapi" , "GetProcessMemoryInfo" , hwndprocess , &p_m , Dimension(p_m) )
// on cherche le nom du process
API ( "Psapi" , "GetProcessImageFileNameA", hwndprocess , &nomprocess , 1024 )
// on ferme l'accès au process
API ( "kernel32" , "CloseHandle" , hwndprocess )
// on extrait le nom de la chaine retournée
nomprocess = ExtraitChaîne ( nomprocess , 1 , "\" , DepuisFin )
Trace (nomprocess + TAB + p_m:WorkingSetSize/1024) |
Partager