, hoe een lijst van alle pagina' s voor iedereen toegankelijk proces, de verdeling, het creëren van een druk op de knop en de naam van een vorm van de tvwprocesslist.Naam van de knop btnprocesslist.,,,,,,, de ramen; programma 's een incident. Btnprocesslistclick (afzender: TObject);,, var I, L: gehele getal;,,,, de herinnering aan PID:; informatie: memory_basic_information;,, memstart: aanwijzing van de omvang van de gehele geheugen:;,,,,, het touw, eigenschap: totuse: getallen;,,,,,,, lpmsgbuf:PChar vormen; PN, pidn, LN:ttreenode;,,,, btnprocesslist. De: = vals;,, tvwprocesslist. Project. Ter wille van PN:= tvwprocesslist.items.addfirst (nul;,,, "deze computer");,,, ik: = 0 //////////////2000, te process_query_information,, PID:= openprocess (process_all_access {process_vm_operation of process_query_information of process_vm_write}, valse, ik * 4); en, als de PID < > 0 dan beginnen,, //- reclame.D de boom -:,,, pidn:= tvwprocesslist.items.addchild (PN IntToStr (m * 4 (PID))); memstart:= 0;,,,,,, totuse:= 0; L = VirtualQueryEX (PID,,,,,,, memstart informatie, geheugen, een groot (memory_basic_information)); en (L = groot. (memory_basic_information)), te doen, indien van toepassing, de beëindiging van dan, uitgang.;,, als herinnering van informatie. Mem_commit staat = en het begin van totuse:= informatie, totuse + geheugen. Regionsize;,, eigenschap: = ";,, als (0 < > meminfo.protect en page_noaccess) en eigenschappen: = eigenschap +" toegang ",,,Als (0 < > meminfo.protect en page_readonly) en eigenschappen: = eigenschap +'readonly ";,, als (0 < > meminfo.protect en page_readwrite) en eigenschappen: = eigenschap +'readwrite";,, als (0 < > meminfo.protect en page_writecopy) dan eigenschap: = eigenschap. +'writecopy ";,, als (0 < > meminfo.protect en page_execute) en eigenschappen: = eigenschap +'execute";,,, als (0 < > meminfo.protect en page_execute_read) en eigenschappen: = eigenschap +'execute_read ";,, als (0 < > meminfo.protect en page_execute_readwrite) en dan,De eigenschap: = eigenschap +'execute_readwrite ";,, als (0 < > meminfo.protect en page_execute_writecopy) en eigenschappen: = eigenschap +'execute_writecopy";,, als (0 < > meminfo.protect en page_guard) en eigenschappen: = eigenschap +'guard ";,, als (0 < meminfo.protect > en dan page_nocache), eigenschap: = eigenschap +'nocache";,,, LN:= tvwprocesslist.items.addchild (pidn,,, - formaat ('attr:%d:%s, basis: D, omvang: D ",,, [meminfo.protect attr, integer (informatie, geheugen. Baseaddress) informatie, geheugen. Regionsize])); en ten slotte,,, toepassing op;,,.De gehele memstart): = integer (informatie over het geheugen. Baseaddress) + geheugen informatie. Regionsize;,, de gehele (memstart): = integer (memstart) + geheugen grootte;,, L = VirtualQueryEX (PID,,,,,,, memstart informatie, geheugen, een groot (memory_basic_information);,,,, aan het einde van het pidn;.: = formaat ('pid:%d, distributie: D "[4] Ik * * * * * * *, totuse);,,,,, aan het einde van closehandle (PID);;,,,, aan het einde van btnprocesslist: = waar mogelijk;.;,,,,,,,, aan het einde van de explanetion: ramen; id - proces is vermenigvuldigd met 4.Dus, de toegang tot het proces van 8 naar hetzelfde proces 9,10 en 11.,, maar we kunnen de ring van een reeks documenten er zijn betere manieren om dit te doen, maar dat valt buiten het bestek van dit artikel. Deze methode goed is. Het is openened proces, als we onze lijst, de eerste pagina 's.We hebben dit op de volgende bladzijde blz. Omvang van het adres van de retrieval.,, niet alle pagina 's zijn toegewezen, kunnen we bewijzen dat de etikettering en mem_commit.,, als een pagina is een belofte, we controleren eigenschap en de toevoeging van een boom nodig.,, dit kan een tijdje (met name bij die boom, in onze). Na de voltooiing van ProcessHandle, we sluiten en het gebruik van de methode.Zorg dat je dit doet.!!!!!!!!!!!!!!Sluit de deal niet zal leiden tot interessante resultaten, als je een paar keer doen, je kan uiteindelijk moet herstart het systeem sincew langzaam, alles.