Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi»ñÈ¡WindowsϵͳµÄ½ø³ÌÔËÐÐÐÅÏ¢

 delphi»ñÈ¡WindowsϵͳµÄ½ø³ÌÔËÐÐÐÅÏ¢
×Ô´Ó³öÏÖwindowsϵͳÒÔÀ´£¬¸÷ÖÖ¸÷ÑùµÄÈí¼þ²ã³ö²»Çî¡£¹ºÂò»òÕßÃâ·ÑÏÂÔØÒÔºó£¬ÇáÇáµã»÷Install»òÕßSetupÒÔºó£¬ÉÔ×÷ЩÐí¼òµ¥ÅäÖþÍÍê³É°²×°µÄÕû¸ö¹ý³Ì¡£ÏÔÈ»Õâ¸øÓû§´øÀ´ÁËÐí¶à·½±ã£¬µ«¶ÔÓû§À´ËµÕâЩÈí¼þËƺõÊǸö"ºÚÏ»×Ó"£¬Õ¹ÏÖÔÚÓû§ÃæÇ°µÄ½ö½öÊÇ»ªÀöµÄÍâ±íºÍ¼ò½àµÄ²Ù×÷£¬ÖÁÓÚÈí¼þÔËÐйý³ÌÖе÷ÓÃÁËÄÄЩÎļþºÍÄ£¿éÎļþ¾ÍÎÞ·¨ÖªµÀÁË¡£»òÐíÕæÕýÏ£ÍûÁ˽âÕâЩµÄÓû§²¢²»ÊǺܶ࣬ÉõÖÁ¶ÔijЩÓû§À´ËµÊDz»±ØÒªµÄ£¬µ«ÊǶÔÓÚÒ»¸öϵͳ°²È«¹ÜÀíÔ±À´ËµÕâÊÇÒ»¼þºÜÖØÒªµÄÊÂÇé¡£±¾ÎÄÖصã²ûÊöÈçºÎ»ñȡϵͳµÄËùÓнø³ÌÒÔ¼°½ø³ÌÔËÐйý³ÌÖÐËùµ÷ÓõÄÄ£¿éÎļþ(ÏóEXE¡¢DLLÎļþ)£¬Êµ¼ÊÊǶÔWindowsϵͳËùÌṩµÄÈÎÎñ¹ÜÀíÆ÷½øÒ»²½ÍêÉÆ£¬¿ª·¢¹¤¾ß²ÉÓÃDelphiÓïÑÔ¡£
Ò»¡¢º¯Êý½éÉÜ
ÔÚWindowsϵͳÖж¯Ì¬Á´½Ó¿âkernel32.dllÌṩÁË»ñÈ¡ºÍ´¦Àíϵͳ½ø³ÌµÄÐí¶à½Ó¿Úº¯Êý£¬DelphiÓïÑÔ°ÑÕâЩº¯Êý½Ó¿Ú·â×°µ½Tlhelp32.pasÖУ¬¹©DelphiÓû§¿ª·¢¹ý³Ìµ÷Óá£ÒªÏêϸÁ˽âÏà¹Ø֪ʶ¿ÉÒÔ²éÔÄTlhelp32.pasÔ­ÎļþºÍWindows SDKÌṩµÄ°ïÖúÎļþ¡£ÆäÖÐͬ±¾ÎÄÉæ¼°µÄ½Ó¿Úº¯ÊýÖ÷ÒªÓÐCreateToolhelp32Snapshot¡¢process32first¡¢process32next¡¢module32first¡¢module32nextÎå¸öº¯ÊýÒÔ¼°TMODULEENTRY32¡¢TPROCESSENTRY32Á½¸öÊý¾Ý½á¹¹¡£
1¡¢CreateToolhelp32Snapshot
¸Ãº¯ÊýÊÇҪʵÏÖÉÏÊöÄ¿µÄ×îºËÐĵÄÒ»¸öº¯Êý£¬Ëü¿ÉÒÔ»ñȡϵͳÔËÐнø³Ì(Process)ÁÐ±í¡¢Ïß³Ì(Thread)ÁбíºÍÖ¸¶¨ÔËÐнø³ÌµÄ¶Ñ(Heap)ÁÐ±í¡¢µ÷ÓÃÄ£¿é(Module)ÁÐ±í¡£Èç¹ûº¯ÊýÔËÐгɹ¦½«·µ»ØÒ»¸ö·ÇÁã"Snapshot"¾ä±ú£¬Í¨¹ý¸Ã¾ä±úµ÷ÓÃÏà¹ØWinAPIº¯Êý¾Í¿ÉÒÔʵÏÖÉÏÊöÄ¿µÄ£¬Æ亯Êý¸ñʽΪ£º
HANDLE WINAPI CreateToolhelp32Snapshot(DWORD dwFlags,
DWORD th32ProcessID);
²ÎÊý˵Ã÷£º
dwFlags²ÎÊý:¶Ôº¯Êý½¨Á¢µÄ"Snapshot"Ëù°üº¬µÄÁбíÀàÐÍ£¬¿ÉÑ¡Ïî°üÀ¨£º
TH32CS_SNAPHEAPLIST£ºËù´´½¨µÄSnapshot°üº¬¶ÑÁбí
TH32CS_SNAPMODULE £ºËù´´½¨µÄSnapshot°üº¬µ÷ÓÃÄ£¿éÁбí
TH32CS_SNAPTHREAD £ºËù´´½¨µÄSnapshot°üº¬Ïß³ÌÁÐ±í£»
TH32CS_SNAPPROCESS £ºËù´´½¨µÄSnapshot°üº¬½ø³ÌÁÐ±í£»
TH32CS_SNAPALL £ºËù´´½¨µÄSnapshot°üº¬ÉÏÊöËùÓÐÁÐ±í£»
th32ProcessID²ÎÊý£º½ø³Ì¾ä±ú²ÎÊý£¬¿ÉÒÔΪÁã±íʾµ±Ç°½ø³Ì£¬¸Ã²ÎÊýÖ»¶ÔdwFlags°üº¬TH32CS_SNAPMODULE¡¢TH32CS_SNAPHEAPLIST¿ÉÑ¡ÏîʱÆð×÷Óᣵ±dwFlagsΪTH32CS_SNAPPROCESS£¬th32ProcessIDΪÁãʱº¯ÊýµÃµ½ÏµÍ³µÄËùÓнø³ÌÁÐ±í¡£
2¡¢Process32First¡¢Process32Next¡¢


Ïà¹ØÎĵµ£º

Delphi º¯Êý´óÈ«

Ãû³Æ ÀàÐÍ ËµÃ÷  
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí  
abs º¯Êý ¾ø¶ÔÖµº¯Êý  
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖР 
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·  
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁР 
align Êô ......

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......

Delphi Open Tools API dz̽

savetime2k@yahoo.com  2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼­Æ÷£¬¸Ð¾õ±ÈÊôÐԱ༭Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEdit ......

delphiÖжÔÓÚ½ø³ÌµÄ²Ù×÷

Uses Tlhelp32;
//ÓÃListboxÏÔʾ·½·¨
procedure TForm1.Button1Click(Sender: TObject);
var
lppe:TProcessEntry32;
found:boolean;
Hand:THandle;
begin
Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
lppe.dwSize := Sizeof(lppe); //³õʼ»¯
found:=Process32First(Hand,lppe);
......

DelphiͼÏñ´¦Àí

    ¡¶DelphiͼÏñ´¦Àí -- Êý¾ÝÀàÐͼ°ÄÚ²¿¹ý³Ì¡·Ò»ÎÄÖж¨ÒåÁË»ù±¾µÄͼÏñÊý¾ÝÀàÐͼ°Ò»Ð©ÄÚ²¿¹ý³Ì£¬±¾ÎĽøÒ»²½½«Delphi³£ÓõÄͼÏñÀàÐÍת»»ÎªÍ¼Ïñ´¦ÀíËùÐèµÄÊý¾Ý½á¹¹£¬Îª¾ßÌåµÄDelphiͼÏñ´¦Àí¹ý³Ì×÷×¼±¸£¬Í¬Ê±Ò²Òª½«´¦ÀíºÃµÄͼÏñÊý¾Ýת»»ÎªDelphiµÄ³£ÓÃͼÏñÀàÐÍ¡£¡¶DelphiͼÏñ´¦Àí¡·ÏµÁгýͼÏñÊý¾Ýת»»¹ý³ÌÍâ£¬Æ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ