Delphi¶àÏß³Ìѧϰ(8)£ºÓÅÏȼ¶
Ò»¸öÏ̵߳ÄÓÅÏȼ¶È¡¾öÓÚ´´½¨Ï̵߳Ľø³ÌµÄÓÅÏȼ¶£¨priority class£©ºÍÏ̱߳¾ÉíÏà¶ÔµÄÓÅÏȼ¶£¨relative priority£©¡£
1¡¢½ø³ÌÓÅÏȼ¶£º
²»Í¬²Ù×÷ϵͳ ÓÅÏȼ¶ÊýÄ¿²»Í¬¡£Windows2000ÒÔÉϵİ汾ÁбíÈçÏ£º
Idle£º£¨±êÖ¾£ºIDLE_PRIORITY_CLASS£¬ÖµÎª$40£©£»
Below Normal£º£¨±êÖ¾£ºBELOW_NORMAL_PRIORITY_CLASS£¬ÖµÎª$4000£©£»
Normal£º£¨±êÖ¾£ºNORMAL_PRIORITY_CLASS£¬ÖµÎª$20£©£»
Above Normal£º£¨±êÖ¾£ºABOVE_NORMAL_PRIORITY_CLASS£¬ÖµÎª$8000£©£»
High£º£¨±êÖ¾£ºHIGH_PRIORITY_CLASS£¬ÖµÎª$80£©£»
Realtime£º£¨±êÖ¾£ºREALTIME_PRIORITY_CLASS£¬ÖµÎª$100£©¡£
½ø³ÌµÄȱʡÓÅÏȼ¶ÎªNormal£¬¼¸ºõËùÓг¡ºÏ¶¼²»Ó¦½«ÓÅÏȼ¶ÉèΪRealtime¡£
´´½¨½ø³Ìʱ¸ø¶¨ÓÅÏȼ¶£¬Ö»ÒªÔÚCreateProcessÖУ¬½«ÓÅÏȼ¶±êÖ¾×ö“OR”²Ù×÷£¬ÌîÈëdwCreationFlags²ÎÊýÖС£
È¡µÃ»î¶¯½ø³ÌµÄÓÅÏȼ¶£º
function GetPriorityClass(hProcess:THandle):DWORD;stdcall;
ÉèÖû½ø³ÌµÄÓÅÏȼ¶£º
function SetPriorityClass(hProcess:THandle;dwPriorityClass:DWORD);BOOL;
£¨ÉÏÃæÁ½¸öº¯ÊýµÄhProcessÓÉGetCurrentProcessº¯Êý»ñµÃ£¬Õâ¸ö¾ä±ú²»ÓÃCloseHandle¹Ø±Õ£©
2¡¢Ïß³ÌÏà¶ÔÓÅÏȼ¶£º
Ïß³ÌÓÅÏȼ¶·Ö7À࣬ÈçÏ£º
tpIdle£º£¨³£Á¿£ºTHREAD_PRIORITY_IDLE£¬ÖµÎª-15£©£»
tpLowest£º£¨³£Á¿£ºTHREAD_PRIORITY_LOWEST£¬ÖµÎª-2£©£»
tpBelow Normal£º£¨³£Á¿£ºTHREAD_PRIORITY_BELOW_NORMAL£¬ÖµÎª-1£©£»
tpNormal£º£¨³£Á¿£ºTHREAD_PRIORITY_NORMAL£¬ÖµÎª0£©£»
tpAbove Normal£º£¨³£Á¿£ºTHREAD_PRIORITY_ABOVE_NORMAL£¬ÖµÎª1£©£»
tpHighest£º£¨³£Á¿£ºTHREAD_PRIORITY_HIGEST£¬ÖµÎª2£©£»
tpTimeCritical£º£¨³£Á¿£ºTHREAD_PRIORITY_TIME_CRITICAL£¬ÖµÎª15£©£»
¶ÔÓÚÏß³ÌÀàTThread£¬¸Ä±äÏß³ÌÓÅÏȼ¶·Ç³£·½±ã£¬Ö»Òª½«ÅÉÉúÀàµÄPriorityÊôÐÔÏàÓ¦ÉèÖþͺÃÁË¡£È磺MyThread.Priority:=tpHighest;
3¡¢Ïß³ÌÓÅÏȼ¶¼ÆË㣺
Èç¹ûÏß³ÌÓÅÏȼ¶ÎªtpIdle£¬ÎÞÂÛËüËù´¦µÄ½ø³ÌÓÅÏȼ¶ÊǶàÉÙ£¬Ïß³ÌÕûÌåÓÅÏȼ¶×ÜÊÇ1£¬µ«ÊÇ£¬µ±½ø³ÌÓÅÏȼ¶ÎªRealtimeʱ£¬ÄÇôÓëtpIdleÏà×éºÏ£¬Ïß³ÌÕûÌåÓÅÏȼ¶Îª16£»
Èç¹ûÏß³ÌÓÅÏȼ¶ÎªtpTimeCritical£¬ÎÞÂÛËüËù´¦µÄ½ø³ÌÓÅÏȼ¶Îª¶àÉÙ£¬ÕûÌåÓÅÏÈ×é¶¼ÊÇ15£¬µ«ÊÇ£¬µ±½ø³ÌÓÅÏȼ¶ÊÇRealtimeʱ£¬ÄÇÓëtpTim
Ïà¹ØÎĵµ£º
ÈçºÎµ÷ÊÔDLL£¬ÔÚÕâÀï¾Í²»ÔÙ׸ÊöÁË£¬µ«ÊÇ£¬½ñÌì¾ÍÅöµ½ÁËÒ»¸öÌØ±ðÆæ¹ÖµÄÎÊÌ⣬²ÎÊýÉèÖÃÕýÈ·£¬¾ÍÊDz»Äܵ÷ÊÔ£¿£¿ ͨ¹ýÉÏÍø²é×ÊÁÏ£¬·¢ÏÖÁËÎÊÌ⣬עÒ⣺
1£¬ ½«ProjectÖ÷²Ëµ¥µÄProject Options¶Ô»°¿òµÄCompilerÒ³ÃæDebuggingÑ¡ÏîÖÐµÄ Debug informaton¡¢Local symbols¡¢Assertions¸´Ñ¡¿òÑ¡ÖÐ
2£¬½«ToolsÖ÷²Ëµ¥µÄD ......
¼¼Êõ½»Á÷,DH½²½â.
Ã÷ÌìÈ¥×ø»ð³µ,»Ø¼Ò,½ñÌì¾ÍûÓÐÊÂ×ö,±¾À´ÔÚŪһ¸ö¿ç½ø³Ì»ñÈ¡ÆäËû³ÌÐòÀïÃæ×é¼þ,ÈçListView,ListBox,ButtonµÈµÄÐÅÏ¢,ͻȻÓиöÏë·¨×Ô¼ºÐ´¸öTimer,²»ÓÃSetTimerº¯Êý,ÎÒÃÇ×Ô¼ºÓøö¶àÏß³ÌÒ²ÕýºÃʵÏÖÕâ¸ö.·´Õýǰ¶Îʱ¼ä¶àÏß³ÌҲŪµÃ±È½Ï¶à,±¾À´Ïëµ¥¶À½²½²µÄ,ÏÖÔÚ¾ÍÓøöÀý×ÓÀ´ËµÃ÷°É.
д³ÉÒ»¸ö¿Ø¼þ:utTimer.pas
v ......
DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØÖµÎª0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
¹ØÓÚdelphi Assigned
1.¸ù¾Ý Delphi Ö¸Áî²Î¿¼ÊÖ²áÖÐ
˵Ã÷£º
Assigned º¯Ê½ÔÚ²ÎÊý²»Îªnilʱ´«»ØTrue,±íʾָÕëÒѾָµ½Ä³¸öÄÚ´æµØÖ·£¬Õâ¸öÄÚ´æµØÖ·¿ÉÄÜÊÇÒ»¸ö¶ÔÏóµØÊ×µØÖ·£¬Ò²¿ÉÄÜÔÚº¯Êý»ò¹ý³ÌÖУ¬ÉùÃ÷Ò»¸öÖ¸Õë±äÁ¿£¬Ã»Óи³ÖµÎªnil £¬ÎÞÂÒµÄÖ¸Ïòij´¦£¬ÕâÁ½¸öÖÖÇé¿ö£¬Assigned£¨Ö¸Õë±äÁ¿£©¶¼²»Îªnil , º¯Êý·Å»ØTrue£»
¶ø² ......
ÔÚʹÓöàÏ̵߳Äʱºò£¬Èç¹û¶àÏ̶߳Ôij¸öÌØ¶¨µÄ¹«¹²Êý¾Ý»ò×ÊÔ´½øÐзÃÎÊ£¬ÐèÒª¶Ô¶àÏ߳̽øÐÐе÷²Ù×÷£¬½Ð×öÏß³Ìͬ²½¡£
ÀýÈ磺Èý¸öÏ̷ֱ߳ðÑ»·µØÏòListBoxÖÐдÈëÊý¾Ý¡£Ã»ÓнøÐÐͬ²½Ê±£¬Ð´ÈëµÄ˳ÐòÊDz»È·¶¨µÄ¡£
{Ö÷´°Ìå´úÂë}
unit Unit2;
interface
uses
Windows, Messages, SysUtils, V ......