WIN32下DELPHI中的多线程【线程的调度】(二)
2006-12-12 19:18:06
编辑來源:互联网
繁體版 评论
线xian程cheng的de调tiao度du 每mei个ge线xian程cheng是shi拥yong有you一yi个ge上shang下xia文wen结jie构gou的de，这zhe个ge结jie构gou维wei护hu在zai线xian程cheng的de内nei核gai对dui象xiang中zhong。这zhe个ge上shang下xia文wen结jie构gou反fan映yang了le线xian程cheng上shang次ci运yun行xing时shi该gai线xian程cheng的deC P U寄ji存cun器qi的de状zhuang态tai。每mei隔ge20ms左zuo右you，Windows要yao查cha看kan当dang前qian存cun在zai的de所suo有you线xian程cheng内nei核gai对dui象xiang。在zai这zhe些xie对dui象xiang中zhong，只zhi有you某mou些xie对dui象xiang被bei视shi为wei可ke以yi调tiao度du的de对dui象xiang。Windows选xuan择ze可ke调tiao度du的de线xian程cheng内nei核gai对dui象xiang中zhong的de一yi个ge，将jiang它ta加jia载zai到daoC P U的de寄ji存cun器qi中zhong，它ta的de值zhi是shi上shang次ci保bao存cun在zai线xian程cheng的de环huan境jing中zhong的de值zhi。这zhe项xiang操cao作zuo称cheng为wei上shang下xia文wen转zhuan换huan。Windows实shi际ji上shang保bao存cun了le一yi个ge记ji录lu，它ta说shuo明ming每mei个ge线xian程cheng获huo得de了le多duo少shao个ge运yun行xing机ji会hui。 Windows被bei称cheng为wei抢qiang占zhan式shi多duo线xian程cheng操cao作zuo系xi统tong，因yin为wei一yi个ge线xian程cheng可ke以yi随sui时shi停ting止zhi运yun行xing，随sui后hou另ling一yi个ge线xian程cheng可ke进jin行xing调tiao度du。如ru你ni所suo见jian，可ke以yi对dui它ta进jin行xing一yi定ding程cheng度du的de控kong制zhi，但dan是shi不bu能neng太tai多duo。注zhu意yi，无wu法fa保bao证zheng线xian程cheng总zong是shi能neng够gou运yun行xing，也ye不bu能neng保bao证zheng线xian程cheng能neng够gou得de到dao整zheng个ge进jin程cheng，无wu法fa保bao证zheng其qi他ta线xian程cheng不bu被bei允yuan许xu运yun行xing等deng等deng。 我wo在zai编bian写xie串chuan口kou通tong讯xun程cheng序xu的de时shi候hou，起qi初chu，我wo有you一yi个ge天tian真zhen的de想xiang法fa，“在zaiwin32平ping台tai下xia，如ru何he能neng够gou保bao证zheng从cong串chuan口kou传chuan送song过guo来lai的de数shu据ju，在zai数shu据ju到dao达da后hou1MS内nei开kai始shi运yun行xing？”。为wei此ci，我wo曾zeng经jing做zuo了le许xu多duo试shi验yan，但dan当dang我wo真zhen正zheng了le解jie了le一yi些xiewin32平ping台tai的de知zhi识shi，我wo得de到dao了le答da案an，办ban不bu到dao。只zhi有you实shi时shi操cao作zuo系xi统tong才cai能neng作zuo出chu这zhe样yang的de承cheng诺nuo，但danWindows不bu是shi实shi时shi操cao作zuo系xi统tong。实shi时shi操cao作zuo系xi统tong必bi须xu清qing楚chu地di知zhi道dao它ta是shi在zai什shen么me硬ying件jian上shang运yun行xing，这zhe样yang它ta才cai能neng知zhi道dao它ta的de硬ying盘pan控kong制zhi器qi和he键jian盘pan等deng的de等deng待dai时shi间jian。Microsoft对duiWindows规gui定ding的de目mu标biao是shi，使shi它ta能neng够gou在zai各ge种zhong不bu同tong的de硬ying件jian上shang运yun行xing，即ji能neng够gou在zai不bu同tong的deCPU、不bu同tong的de驱qu动dong器qi和he不bu同tong的de网wang络luo上shang运yun行xing。简jian而er言yan之zhi，Windows没mei有you设she计ji成cheng为wei一yi种zhong实shi时shi操cao作zuo系xi统tong。 Windows系xi统tong只zhi调tiao度du可ke以yi调tiao度du的de线xian程cheng。那na么me什shen么me是shi可ke以yi调tiao度du的de线xian程cheng，什shen么me是shi不bu可ke以yi调tiao度du的de线xian程cheng呢ne？例li如ru，有you些xie线xian程cheng对dui象xiang的de暂zan停ting计ji数shu大da于yu1（记ji录lu在zai线xian程cheng内nei核gai对dui象xiang的de上shang下xia文wen结jie构gou中zhong）。这zhe意yi味wei着zhe该gai线xian程cheng已yi经jing暂zan停ting运yun行xing，不bu应ying该gai给gei它ta安an排pai任ren何heC P U时shi间jian。还huan记ji得de上shang文wen中zhong曾zeng经jing提ti到dao的deCREATE_SUSPENDED标biao志zhi吗ma？在zai创chuang建jian一yi个ge线xian程cheng的de时shi候hou，createThread函han数shu接jie收shou的de倒dao数shu第di二er个ge参shen数shu中zhong赋fu值zhiCREATE_SUSPENDED就jiu可ke以yi创chuang建jian一yi个ge暂zan停ting的de线xian程cheng。除chu了le暂zan停ting的de线xian程cheng外wai，其qi他ta许xu多duo线xian程cheng也ye是shi不bu可ke调tiao度du的de线xian程cheng，因yin为wei它ta们men正zheng在zai等deng待dai某mou些xie事shi情qing的de发fa生sheng。例li如ru，如ru果guo记ji事shi本ben程cheng序xu，如ru果guo你ni不bu键jian入ru任ren何he数shu据ju，那na么me它ta的de线xian程cheng就jiu没mei有you什shen么me事shi情qing要yao做zuo。系xi统tong不bu给gei无wu事shi可ke做zuo的de线xian程cheng分fen配peiCPU时shi间jian。当dang移yi动dong它ta的de窗chuang口kou时shi，或huo者zhe它ta的de窗chuang口kou需xu要yao刷shua新xin它ta的de内nei容rong，或huo者zhe将jiang数shu据ju键jian入ru记ji事shi本ben，系xi统tong就jiu会hui自zi动dong使shi它ta的de线xian程cheng成cheng为wei可ke调tiao度du的de线xian程cheng。但dan切qie记ji，这zhe并bing不bu意yi味wei着zhe它ta的de线xian程cheng立li即ji获huo得de了leCPU时shi间jian。它ta只zhi是shi表biao示shi记ji事shi本ben的de的de线xian程cheng有you事shi情qing可ke做zuo，系xi统tong将jiang设she法fa在zai某mou个ge时shi间jian（不bu久jiu的de将jiang来lai）对dui它ta进jin行xing调tiao度du。 线xian程cheng的de暂zan停ting和he执zhi行xing 我wo们men前qian面mian说shuo过guo，在zai线xian程cheng内nei核gai对dui象xiang的de内nei部bu有you一yi个ge值zhi，用yong于yu指zhi明ming线xian程cheng的de暂zan停ting计ji数shu。当dang调tiao用yongCreateThread函han数shu时shi，就jiu创chuang建jian了le线xian程cheng的de内nei核gai对dui象xiang，并bing且qie它ta的de暂zan停ting计ji数shu被bei初chu始shi化hua为wei1。这zhe可ke以yi防fang止zhi线xian程cheng被bei调tiao度du到daoCPU中zhong。当dang然ran，这zhe是shi很hen有you用yong的de，因yin为wei线xian程cheng的de初chu始shi化hua需xu要yao时shi间jian，你ni不bu希xi望wang在zai系xi统tong做zuo好hao充chong分fen的de准zhun备bei之zhi前qian就jiu开kai始shi执zhi行xing线xian程cheng。当dang线xian程cheng完wan全quan初chu始shi化hua好hao了le之zhi后hou， 要yao查cha看kan是shi否fou已yi经jing传chuan递di了leCREATE_SUSPENDED标biao志zhi。如ru果guo已yi经jing传chuan递di了le这zhe个ge标biao志zhi，那na么me这zhe些xie函han数shu就jiu返fan回hui，同tong时shi新xin线xian程cheng处chu于yu暂zan停ting状zhuang态tai。如ru果guo尚shang未wei传chuan递di该gai标biao志zhi，那na么me该gai函han数shu将jiang线xian程cheng的de暂zan停ting计ji数shu递di减jian为wei0。当dang线xian程cheng的de暂zan停ting计ji数shu是shi0的de时shi候hou，除chu非fei线xian程cheng正zheng在zai等deng待dai其qi他ta某mou种zhong事shi情qing的de发fa生sheng，否fou则ze该gai线xian程cheng就jiu处chu于yu可ke调tiao度du状zhuang态tai。 在zai暂zan停ting状zhuang态tai中zhong创chuang建jian一yi个ge线xian程cheng，就jiu能neng够gou在zai线xian程cheng有you机ji会hui执zhi行xing任ren何he代dai码ma之zhi前qian改gai变bian线xian程cheng的de运yun行xing环huan境jing（如ru优you先xian级ji）。一yi旦dan改gai变bian了le线xian程cheng的de环huan境jing，必bi须xu使shi线xian程cheng成cheng为wei可ke调tiao度du线xian程cheng。要yao进jin行xing这zhe项xiang操cao作zuo，可ke以yi调tiao用yongResumeThread，将jiang线xian程cheng句ju柄bing传chuan递di给gei它ta,如ru果guoResumeThread，函han数shu运yun行xing成cheng功gong，它ta将jiang返fan回hui线xian程cheng的de前qian一yi个ge暂zan停ting计ji数shu，否fou则ze返fan回hui0xFFFFFFFF。注zhu意yi这zhe里li，它ta返fan回hui的de是shi前qian一yi个ge暂zan停ting计ji数shu。 单dan个ge线xian程cheng可ke以yi暂zan停ting若ruo干gan次ci。如ru果guo一yi个ge线xian程cheng暂zan停ting了le3次ci，它ta必bi须xu恢hui复fu3次ci，然ran后hou它ta才cai可ke以yi被bei分fen配pei给gei一yi个geC P U。当dang创chuang建jian线xian程cheng时shi，除chu了le使shi用yongCREATE_SUSPENDED外wai，也ye可ke以yi调tiao用yongSuspendThread函han数shu来lai暂zan停ting线xian程cheng的de运yun行xing。任ren何he线xian程cheng都dou可ke以yi调tiao用yong该gai函han数shu来lai暂zan停ting另ling一yi个ge线xian程cheng的de运yun行xing（只zhi要yao拥yong有you线xian程cheng的de句ju柄bing）。不bu用yong说shuo，线xian程cheng可ke以yi自zi行xing暂zan停ting运yun行xing，但dan是shi不bu能neng自zi行xing恢hui复fu运yun行xing。SuspendThread返fan回hui的de是shi线xian程cheng的de前qian一yi个ge暂zan停ting计ji数shu。线xian程cheng暂zan停ting的de最zui多duo次ci数shu可ke以yi是shiMAXIMUM_SUSPEND_COUNT次ci。值zhi得de注zhu意yi的de是shi，SuspendThread与yu内nei核gai方fang式shi的de执zhi行xing是shi异yi步bu进jin行xing的de，但dan是shi在zai线xian程cheng恢hui复fu运yun行xing之zhi前qian，不bu会hui发fa生sheng用yong户hu方fang式shi的de执zhi行xing。在zai实shi际ji环huan境jing中zhong，调tiao用yongSuspendThread时shi必bi须xu小xiao心xin，因yin为wei不bu知zhi道dao暂zan停ting线xian程cheng运yun行xing时shi它ta在zai进jin行xing什shen么me操cao作zuo。如ru果guo线xian程cheng试shi图tu从cong堆dui栈zhan中zhong分fen配pei内nei存cun，那na么me该gai线xian程cheng将jiang在zai该gai堆dui栈zhan上shang设she置zhi一yi个ge锁suo。当dang其qi他ta线xian程cheng试shi图tu访fang问wen该gai堆dui栈zhan时shi，这zhe些xie线xian程cheng的de访fang问wen就jiu被bei停ting止zhi，直zhi到dao第di一yi个ge线xian程cheng恢hui复fu运yun行xing。只zhi有you确que切qie知zhi道dao目mu标biao线xian程cheng是shi什shen么me（或huo者zhe目mu标biao线xian程cheng正zheng在zai做zuo什shen么me），并bing且qie采cai取qu强qiang有you力li的de措cuo施shi来lai避bi免mian因yin暂zan停ting线xian程cheng的de运yun行xing而er带dai来lai的de问wen题ti或huo死si锁suo状zhuang态tai，SuspendThread才cai是shi安an全quan的de。 线xian程cheng的de睡shui眠mian 线xian程cheng也ye能neng告gao诉su系xi统tong，它ta不bu想xiang在zai某mou个ge时shi间jian段duan内nei被bei调tiao度du。这zhe是shi通tong过guo调tiao用yongSleep函han数shu来lai实shi现xian的de： VOID Sleep(DWORD cMilliseconds) 该gai函han数shu可ke使shi线xian程cheng暂zan停ting自zi己ji的de运yun行xing，直zhi到daocMilliseconds过guo去qu为wei止zhi。关guan于yuSleep函han数shu，有you下xia面mian几ji个ge重chong要yao问wen题ti值zhi得de注zhu意yi： • 调tiao用yongSleep，可ke使shi线xian程cheng自zi愿yuan放fang弃qi它ta剩sheng余yu的de时shi间jian片pian。 • 系xi统tong将jiang在zai大da约yue的de指zhi定ding毫hao秒miao数shu内nei使shi线xian程cheng不bu可ke调tiao度du。不bu错cuo，如ru果guo告gao诉su系xi统tong，想xiang睡shui眠mian100ms，那na么me可ke以yi睡shui眠mian大da约yue这zhe么me长chang时shi间jian，但dan是shi也ye可ke能neng睡shui眠mian数shu秒miao钟zhong或huo者zhe数shu分fen钟zhong。还huan是shi那na个ge反fan复fu重chong申shen的de概gai念nian， Windows不bu是shi个ge实shi时shi操cao作zuo系xi统tong。虽sui然ran线xian程cheng可ke能neng在zai规gui定ding的de时shi间jian被bei唤huan醒xing，但dan是shi它ta能neng否fou做zuo到dao，取qu决jue于yu系xi统tong 中zhong还huan有you什shen么me操cao作zuo正zheng在zai进jin行xing。 • 可ke以yi调tiao用yongSleep，并bing且qie为weicMilliseconds)参shen数shu传chuan递diINFINITE。这zhe将jiang告gao诉su系xi统tong永yong远yuan不bu要yao调tiao度du该gai线xian程cheng。这zhe不bu是shi一yi件jian值zhi得de去qu做zuo的de事shi情qing。最zui好hao是shi让rang线xian程cheng退tui出chu，并bing还huan原yuan它ta的de堆dui栈zhan和he内nei核gai对dui象xiang。 • 可ke以yi将jiang0传chuan递di给geiSleep。这zhe将jiang告gao诉su系xi统tong，调tiao用yong线xian程cheng将jiang释shi放fang剩sheng余yu的de时shi间jian片pian，并bing迫po使shi系xi统tong调tiao度du另ling一yi个ge线xian程cheng。但dan是shi，系xi统tong可ke以yi对dui刚gang刚gang调tiao用yongSleep的de线xian程cheng重chong新xin调tiao度du。如ru果guo不bu存cun在zai多duo个ge拥yong有you相xiang同tong优you先xian级ji的de可ke调tiao度du线xian程cheng，就jiu会hui出chu现xian这zhe种zhong情qing况kuang。Sleep(0)是shi一yi个ge非fei常chang有you意yi思si的de方fang法fa。要yao小xiao心xinSleep()神shen秘mi的de时shi间jian调tiao整zheng问wen题ti。Sleep()可ke能neng会hui使shi你ni的de机ji器qi出chu现xian特te别bie的de问wen题ti。这zhe种zhong问wen题ti在zai另ling一yi台tai机ji器qi上shang可ke能neng无wu法fa再zai现xian。 切qie换huan到dao另ling一yi个ge线xian程cheng 系xi统tong提ti供gong了le一yi个ge称cheng为weiSwitchToThread的de函han数shu，使shi得de另ling一yi个ge可ke调tiao度du线xian程cheng（如ru果guo存cun在zai能neng够gou运yun行xing）。当dang调tiao用yong这zhe个ge函han数shu的de时shi候hou，系xi统tong要yao查cha看kan是shi否fou存cun在zai一yi个ge迫po切qie需xu要yaoC P U时shi间jian的de线xian程cheng。如ru果guo没mei有you线xian程cheng迫po切qie需xu要yaoC P U时shi间jianSwitchToThread就jiu会hui立li即ji返fan回hui。如ru果guo存cun在zai一yi个ge迫po切qie需xu要yaoC P U时shi间jian的de线xian程cheng，SwitchToThread就jiu对dui该gai线xian程cheng进jin行xing调tiao度du（该gai线xian程cheng的de优you先xian级ji可ke能neng低di于yu调tiao用yongSwitchToThread的de线xian程cheng）。这zhe个ge迫po切qie需xu要yaoC P U时shi间jian的de线xian程cheng可ke以yi运yun行xing一yi个ge时shi间jian段duan，然ran后hou系xi统tong调tiao度du程cheng序xu照zhao常chang运yun行xing。该gai函han数shu允yuan许xu一yi个ge需xu要yao资zi源yuan的de线xian程cheng强qiang制zhi另ling一yi个ge优you先xian级ji较jiao低di、而er目mu前qian却que拥yong有you该gai资zi源yuan的de线xian程cheng放fang弃qi该gai资zi源yuan。如ru果guo调tiao用yongSwitchToThread函han数shu时shi没mei有you其qi他ta线xian程cheng能neng够gou运yun行xing，那na么me该gai函han数shu返fan回huiFALSE，否fou则ze返fan回hui一yi个ge非fei0值zhi。调tiao用yongSwitchToThread函han数shu与yu调tiao用yongSleep是shi相xiang似si的de，差cha别bie是shiSwitchToThread允yuan许xu优you先xian级ji较jiao低di的de线xian程cheng运yun行xing。即ji使shi低di优you先xian级ji线xian程cheng迫po切qie需xu要yaoCPU时shi间jian，而erSleep则ze可ke能neng因yin为wei优you先xian级ji关guan系xi使shi得de刚gang放fang弃qiCPU的de线xian程cheng被bei立li即ji重chong新xin调tiao度du。 优you先xian级ji 操cao作zuo系xi统tong会hui负fu责ze为wei每mei个ge线xian程cheng分fen配peiCPU时shi间jian。一yi个ge线xian程cheng所suo分fen配pei到dao的deCPU时shi间jian主zhu要yao取qu决jue于yu该gai线xian程cheng的de优you先xian级ji，而er线xian程cheng的de优you先xian级ji又you取qu决jue于yu进jin程cheng的de优you先xian级ji类lei和he线xian程cheng本ben身shen的de相xiang对dui优you先xian级ji。 1. 进jin程cheng的de优you先xian级ji类lei 进jin程cheng的de优you先xian级ji类lei用yong来lai描miao述shu一yi个ge进jin程cheng的de优you先xian程cheng度du。Win32支zhi持chi四si种zhong不bu同tong的de优you先xian级ji类lei： Idle、Normal、High 和heRealtime。其qi中zhong，Normal是shi默mo认ren的de优you先xian级ji。在zaiWindows单dan元yuan中zhong，每mei一yi种zhong优you先xian级ji类lei都dou对dui应ying着zhe一yi个ge标biao志zhi。当dang要yao进jin行xing进jin程cheng的de优you先xian级ji设she置zhi时shi，可ke以yi用yong一yi种zhong优you先xian级ji类lei与yuCreateProcess()的de参shen数shudwCreationFlags进jin行xing或huo操cao作zuo。另ling外wai，还huan可ke以yi动dong态tai地di为wei一yi个ge已yi有you的de进jin程cheng调tiao整zheng优you先xian级ji类lei。这zhe时shi候hou，通tong常chang你ni要yao用yong到dao下xia面mianAPI函han数shu bool SetPriorityClass(HANDLE hProcess,DWORD fdwPriority)，其qi中zhong第di一yi个ge参shen数shu是shi进jin程cheng的de句ju柄bing，你ni可ke以yi通tong过guoGetCurrentProcess来lai获huo得de当dang前qian进jin程cheng的de句ju柄bing。每mei个ge优you先xian级ji类lei也ye对dui应ying一yi个ge数shu字zi，值zhi在zai4~ 24之zhi间jian。注zhu意yi在zaiWindows NT/2000下xia，要yao有you特te殊shu的de权quan限xian才cai能neng修xiu改gai进jin程cheng的de优you先xian类lei。默mo认ren的de设she置zhi允yuan许xu进jin程cheng设she置zhi它ta们men的de优you先xian级ji类lei，但dan是shi，这zhe些xie都dou可ke以yi由you系xi统tong管guan理li员yuan来lai关guan闭bi，尤you其qi是shi在zai高gao负fu载zai的deWinNT/2000服fu务wu器qi上shang。 大da多duo数shu情qing况kuang下xia，进jin程cheng的de优you先xian级ji类lei不bu要yao被bei设she为weiRealtime。因yin为wei，大da多duo数shu操cao作zuo系xi统tong本ben身shen的de线xian程cheng的de优you先xian级ji类lei比biRealtime低di。如ru果guo一yi个ge进jin程cheng得de到dao的deC P U时shi间jian比bi操cao作zuo系xi统tong本ben身shen还huan多duo，后hou果guo是shi无wu法fa想xiang象xiang的de。即ji使shi将jiang进jin程cheng的de优you先xian级ji类lei设she为weiHigh ,也ye可ke能neng引yin起qi问wen题ti。因yin为wei，当dang高gao优you先xian级ji的de线xian程cheng没mei有you大da部bu分fen空kong时shi间jian或huo等deng待dai外wai部bu事shi件jian时shi，它ta要yao从cong低di优you先xian级ji的de线xian程cheng和he进jin程cheng中zhong抢qiang夺duoCPU时shi间jian，直zhi到dao它ta被bei一yi事shi件jian阻zu塞sai或huo处chu于yu空kong闲xian状zhuang态tai或huo处chu理li消xiao息xi。所suo以yi，在zai抢qiang占zhan式shi多duo任ren务wu操cao作zuo系xi统tong中zhong如ru果guo不bu能neng合he理li地di安an排pai优you先xian级ji，就jiu很hen容rong易yi崩beng溃kui。 优you先xian级ji类lei 说shuo明ming 实shi时shi 进jin程cheng中zhong的de线xian程cheng必bi须xu立li即ji对dui事shi件jian作zuo出chu响xiang应ying，以yi便bian执zhi行xing关guan键jian时shi间jian的de任ren务wu。 该gai进jin程cheng中zhong的de线xian程cheng还huan会hui抢qiang先xian于yu操cao作zuo系xi统tong组zu件jian之zhi前qian运yun行xing。使shi用yong本ben优you先xian级ji类lei 时shi必bi须xu极ji端duan小xiao心xin 高gao 进jin程cheng中zhong的de线xian程cheng必bi须xu立li即ji对dui事shi件jian作zuo出chu响xiang应ying，以yi便bian执zhi行xing关guan键jian时shi间jian的de任ren务wu。 Task Manager（任ren务wu管guan理li器qi）在zai这zhe个ge类lei上shang运yun行xing，以yi便bian用yong户hu可ke以yi撤che消xiao脱tuo 离li控kong制zhi的de进jin程cheng 高gao于yu正zheng常chang 进jin程cheng中zhong的de线xian程cheng在zai正zheng常chang优you先xian级ji与yu高gao优you先xian级ji之zhi间jian运yun行xing（这zhe是shiWi n d o w s 2 0 0 0中zhong的de新xin优you先xian级ji类lei） 正zheng常chang 进jin程cheng中zhong的de线xian程cheng没mei有you特te殊shu的de调tiao度du需xu求qiu 低di于yu正zheng常chang 进jin程cheng中zhong的de线xian程cheng在zai正zheng常chang优you先xian级ji与yu空kong闲xian优you先xian级ji之zhi间jian运yun行xing（这zhe是shiWi n d o w s 2 0 0 0中zhong的de新xin优you先xian级ji类lei） 空kong闲xian 进jin程cheng中zhong的de线xian程cheng在zai系xi统tong空kong闲xian时shi运yun行xing。该gai进jin程cheng通tong常chang由you屏ping幕mu保bao护hu程cheng序xu或huo后hou 台tai实shi用yong程cheng序xu和he搜sou集ji统tong计ji数shu据ju的de软ruan件jian使shi用yong 2. 相xiang对dui优you先xian级ji 决jue定ding一yi个ge线xian程cheng全quan面mian的de优you先xian级ji的de另ling一yi方fang面mian是shi相xiang对dui优you先xian级ji。优you先xian级ji类lei是shi针zhen对dui进jin程cheng的de，它ta对dui进jin程cheng内nei部bu的de 所suo有you线xian程cheng都dou有you效xiao。而er相xiang对dui优you先xian级ji是shi针zhen对dui某mou个ge线xian程cheng的de。一yi个ge线xian程cheng的de相xiang对dui优you先xian级ji可ke设she为wei以yi下xia七qi种zhong： Idle、Lowest、Below Normal、Normal、Above Normal、Highest 和heTime Critical。 要yao设she置zhi一yi个ge线xian程cheng的de相xiang对dui优you先xian级ji，可ke以yi通tong过guoAPI函han数shuSetThreadPriority来lai完wan成cheng，再zaiDELPHI中zhong，你ni可ke以yi通tong过guoTThread对dui象xiang的dePriority属shu性xing来lai设she置zhi。获huo得de线xian程cheng相xiang对dui优you先xian级ji的deAPI函han数shu是shiint GetThreadPriority(HANDLE hThread); 系xi统tong何he如ru根gen据ju优you先xian级ji来lai调tiao度du线xian程cheng 每mei个ge线xian程cheng都dou会hui被bei赋fu予yu一yi个ge从cong0（最zui低di）到dao31（最zui高gao）的de优you先xian级ji号hao码ma。当dang系xi统tong确que定ding将jiang哪na个ge线xian程cheng分fen配pei给geiCPU时shi，它ta首shou先xian观guan察cha优you先xian级ji为wei31的de线xian程cheng，并bing以yi循xun环huan方fang式shi对dui它ta们men进jin行xing调tiao度du。如ru果guo优you先xian级ji为wei31的de线xian程cheng可ke以yi调tiao度du，那na么me就jiu将jiang该gai线xian程cheng赋fu予yu一yi个geCPU。在zai该gai线xian程cheng的de时shi间jian片pian结jie束shu时shi，系xi统tong要yao查cha看kan是shi否fou还huan有you另ling一yi个ge优you先xian级ji为wei31的de线xian程cheng可ke以yi运yun行xing，如ru果guo有you，它ta将jiang允yuan许xu该gai线xian程cheng被bei赋fu予yu一yi个geCPU。只zhi要yao优you先xian级ji为wei31的de线xian程cheng是shi可ke调tiao度du的de，系xi统tong就jiu绝jue对dui不bu会hui将jiang优you先xian级ji为wei0到dao30的de线xian程cheng分fen配pei给geiC P U。这zhe种zhong情qing况kuang称cheng为wei渴ke求qiu调tiao度du（starvation）。当dang高gao优you先xian级ji线xian程cheng使shi用yong大da量liang的deCPU时shi间jian，从cong而er使shi得de低di优you先xian级ji线xian程cheng无wu法fa运yun行xing时shi，便bian会hui出chu现xian渴ke求qiu情qing况kuang。在zai多duo处chu理li器qi计ji算suan机ji上shang出chu现xian渴ke求qiu情qing况kuang的de可ke能neng性xing要yao少shao得de多duo，因yin为wei在zai这zhe样yang的de计ji算suan机ji上shang，优you先xian级ji为wei31和he优you先xian级ji为wei30的de线xian程cheng能neng够gou同tong时shi运yun行xing。系xi统tong总zong是shi设she法fa使shiCPU保bao持chi繁fan忙mang状zhuang态tai，只zhi有you当dang没mei有you线xian程cheng可ke以yi调tiao度du的de时shi候hou， CPU才cai处chu于yu空kong闲xian状zhuang态tai。 人ren们men可ke能neng认ren为wei，在zai这zhe样yang的de系xi统tong中zhong，低di优you先xian级ji线xian程cheng永yong远yuan得de不bu到dao机ji会hui运yun行xing。不bu过guo正zheng像xiang前qian面mian指zhi出chu的de那na样yang，在zai任ren何he一yi个ge时shi段duan内nei，系xi统tong中zhong的de大da多duo数shu线xian程cheng是shi不bu能neng调tiao度du的de。例li如ru，如ru果guo进jin程cheng的de主zhu线xian程cheng调tiao用yongGetMessage函han数shu，而er系xi统tong发fa现xian没mei有you线xian程cheng可ke以yi供gong它ta使shi用yong，那na么me系xi统tong就jiu暂zan停ting进jin程cheng的de线xian程cheng运yun行xing，释shi放fang该gai线xian程cheng的de剩sheng余yu时shi间jian片pian，并bing且qie立li即ji将jiangCPU分fen配pei给gei另ling一yi个ge等deng待dai运yun行xing的de线xian程cheng。如ru果guo没mei有you为weiGetMessage函han数shu显xian示shi可ke供gong检jian索suo的de消xiao息xi，那na么me进jin程cheng的de线xian程cheng将jiang保bao持chi暂zan停ting状zhuang态tai，并bing且qie决jue不bu会hui被bei分fen配pei给geiCPU。但dan是shi，当dang消xiao息xi被bei置zhi于yu线xian程cheng的de队dui列lie中zhong时shi，系xi统tong就jiu知zhi道dao该gai线xian程cheng不bu应ying该gai再zai处chu于yu暂zan停ting状zhuang态tai。此ci时shi，如ru果guo没mei有you更geng高gao优you先xian级ji的de线xian程cheng需xu要yao运yun行xing，系xi统tong就jiu将jiang该gai线xian程cheng分fen配pei给gei一yi个geCPU。 高gao优you先xian级ji线xian程cheng将jiang抢qiang在zai低di优you先xian级ji线xian程cheng之zhi前qian运yun行xing，不bu管guan低di优you先xian级ji线xian程cheng正zheng在zai运yun行xing什shen么me。例li如ru，如ru果guo一yi个ge优you先xian级ji为wei5的de线xian程cheng正zheng在zai运yun行xing，系xi统tong发fa现xian一yi个ge高gao优you先xian级ji的de线xian程cheng准zhun备bei要yao运yun行xing，那na么me系xi统tong就jiu会hui立li即ji暂zan停ting低di优you先xian级ji线xian程cheng的de运yun行xing（即ji使shi它ta处chu于yu它ta的de时shi间jian片pian中zhong），并bing且qie将jiangC P U分fen配pei给gei高gao优you先xian级ji线xian程cheng，使shi它ta获huo得de一yi个ge完wan整zheng的de时shi间jian片pian。还huan有you，当dang系xi统tong引yin导dao时shi，它ta会hui创chuang建jian一yi个ge特te殊shu的de线xian程cheng，称cheng为wei0页ye线xian程cheng。该gai线xian程cheng被bei赋fu予yu优you先xian级ji0，它ta是shi整zheng个ge系xi统tong中zhong唯wei一yi的de一yi个ge在zai优you先xian级ji0上shang运yun行xing的de线xian程cheng。当dang系xi统tong中zhong没mei有you任ren何he线xian程cheng需xu要yao执zhi行xing操cao作zuo时shi，0页ye线xian程cheng负fu责ze将jiang系xi统tong中zhong的de所suo有you空kong闲xianR A M页ye面mian置zhi0。 动dong态tai提ti高gao线xian程cheng的de优you先xian级ji等deng级ji 通tong过guo将jiang线xian程cheng的de相xiang对dui优you先xian级ji与yu线xian程cheng的de进jin程cheng优you先xian级ji类lei综zong合he起qi来lai考kao虑lv，系xi统tong就jiu可ke以yi确que定ding线xian程cheng的de优you先xian级ji等deng级ji。有you时shi这zhe称cheng为wei线xian程cheng的de基ji本ben优you先xian级ji等deng级ji。 系xi统tong常chang常chang要yao提ti高gao线xian程cheng的de优you先xian级ji等deng级ji，以yi便bian对dui窗chuang口kou消xiao息xi或huo读du取qu磁ci盘pan等dengI/O事shi件jian作zuo出chu响xiang应ying。 例li如ru，在zai高gao优you先xian级ji类lei进jin程cheng中zhong的de一yi个ge正zheng常chang优you先xian级ji等deng级ji的de线xian程cheng的de基ji本ben优you先xian级ji等deng级ji是shi13。如ru果guo用yong户hu按an下xia一yi个ge操cao作zuo键jian，系xi统tong就jiu会hui将jiang一yi个geWM_KEYDOWN消xiao息xi放fang入ru线xian程cheng的de队dui列lie中zhong。由you于yu一yi个ge消xiao息xi已yi经jing出chu现xian在zai线xian程cheng的de队dui列lie中zhong，因yin此ci该gai线xian程cheng就jiu是shi可ke调tiao度du的de线xian程cheng。此ci外wai，键jian盘pan设she备bei驱qu动dong程cheng序xu也ye能neng够gou告gao诉su系xi统tong暂zan时shi提ti高gao线xian程cheng的de优you先xian级ji等deng级ji。该gai线xian程cheng的de优you先xian级ji等deng级ji可ke能neng提ti高gao2级ji，其qi当dang前qian优you先xian级ji等deng级ji改gai为wei15。系xi统tong在zai优you先xian级ji为wei15时shi为wei一yi个ge时shi间jian片pian对dui该gai线xian程cheng进jin行xing调tiao度du。一yi旦dan该gai时shi间jian片pian结jie束shu，系xi统tong便bian将jiang线xian程cheng的de优you先xian级ji递di减jian1，使shi下xia一yi个ge时shi间jian片pian的de线xian程cheng优you先xian级ji降jiang为wei14。该gai线xian程cheng的de第di三san个ge时shi间jian片pian按an优you先xian级ji等deng级ji13来lai执zhi行xing。如ru果guo线xian程cheng要yao求qiu执zhi行xing更geng多duo的de时shi间jian片pian，均yun按an它ta的de基ji本ben优you先xian级ji等deng级ji13来lai执zhi行xing。注zhu意yi，线xian程cheng的de当dang前qian优you先xian级ji等deng级ji决jue不bu会hui低di于yu线xian程cheng的de基ji本ben优you先xian级ji等deng级ji。此ci外wai，导dao致zhi线xian程cheng成cheng为wei可ke调tiao度du线xian程cheng的de设she备bei驱qu动dong程cheng序xu可ke以yi决jue定ding优you先xian级ji等deng级ji提ti高gao的de数shu量liang。Microsoft并bing没mei有you规gui定ding各ge个ge设she备bei驱qu动dong程cheng序xu可ke以yi给gei线xian程cheng的de优you先xian级ji提ti高gao多duo少shao个ge等deng级ji。这zhe样yang就jiu使shi得deMicrosoft可ke以yi不bu断duan地di调tiao整zheng线xian程cheng优you先xian级ji提ti高gao的de动dong态tai等deng级ji，以yi确que定ding最zui佳jia的de总zong体ti响xiang应ying性xing能neng。系xi统tong只zhi能neng为wei基ji本ben优you先xian级ji等deng级ji在zai1至zhi15之zhi间jian的de线xian程cheng提ti高gao其qi优you先xian级ji等deng级ji。实shi际ji上shang这zhe是shi因yin为wei这zhe个ge范fan围wei称cheng为wei动dong态tai优you先xian级ji范fan围wei。此ci外wai，系xi统tong决jue不bu会hui将jiang线xian程cheng的de优you先xian级ji等deng级ji提ti高gao到dao实shi时shi范fan围wei（高gao于yu15）。由you于yu实shi时shi范fan围wei中zhong的de线xian程cheng能neng够gou执zhi行xing大da多duo数shu操cao作zuo系xi统tong的de函han数shu，因yin此ci给gei等deng级ji的de提ti高gao规gui定ding一yi个ge范fan围wei，就jiu可ke以yi防fang止zhi应ying用yong程cheng序xu干gan扰rao操cao作zuo系xi统tong的de运yun行xing。另ling外wai，系xi统tong决jue不bu会hui动dong态tai提ti高gao实shi时shi范fan围wei内nei的de线xian程cheng优you先xian级ji等deng级ji。 另ling一yi种zhong情qing况kuang也ye会hui导dao致zhi系xi统tong动dong态tai地di提ti高gao线xian程cheng的de优you先xian级ji等deng级ji。比bi如ru有you一yi个ge优you先xian级ji为wei4的de线xian程cheng准zhun备bei运yun行xing但dan是shi却que不bu能neng运yun行xing，因yin为wei一yi个ge优you先xian级ji为wei8的de线xian程cheng正zheng连lian续xu被bei调tiao度du。在zai这zhe种zhong情qing况kuang下xia，优you先xian级ji为wei4的de线xian程cheng就jiu非fei常chang渴ke望wang得de到daoCPU时shi间jian。当dang系xi统tong发fa现xian一yi个ge线xian程cheng在zai大da约yue3至zhi4s内nei一yi直zhi渴ke望wang得de到daoC P U时shi间jian，它ta就jiu将jiang这zhe个ge渴ke望wang得de到daoCPU时shi间jian的de线xian程cheng的de优you先xian级ji动dong态tai提ti高gao到dao15，并bing让rang该gai线xian程cheng运yun行xing两liang倍bei于yu它ta的de时shi间jian量liang。当dang到dao了le两liang倍bei时shi间jian量liang的de时shi候hou，该gai线xian程cheng的de优you先xian级ji立li即ji返fan回hui到dao它ta的de基ji本ben优you先xian级ji。 系xi统tong动dong态tai的de改gai变bian优you先xian级ji，在zai我wo们men编bian程cheng的de时shi候hou会hui产chan生sheng不bu良liang影ying响xiang，为wei此ci，还huan有you两liang个geAPI函han数shu可ke以yi使shi得de系xi统tong的de此ci功gong能neng不bu起qi作zuo用yong。 bool SetProcessPriorityBoost(HANDLE hProcess,bool disablePriorityboost); bool SetThreadPriorityBoost(HANDLE hThread,bool disablePriorityboost); 从cong名ming字zi你ni就jiu应ying该gai可ke以yi看kan出chu，第di一yi个geAPI函han数shu可ke以yi激ji活huo或huo停ting用yong指zhi定ding进jin程cheng所suo有you线xian程cheng的de优you先xian级ji提ti高gao功gong能neng，而er后hou面mian一yi个ge则ze是shi针zhen对dui特te定ding线xian程cheng的de。 例li子zi：关guan键jian的de代dai码ma如ru下xia...{ 作zuo者zhe：wudi_1982 联lian系xi方fang式shi:wudi_1982@hotmail.com 转zhuan载zai请qing著zhu名ming出chu处chu 本ben代dai码ma旨zhi在zai演yan示shi线xian程cheng的de调tiao度du，很hen多duo位wei置zhi没mei有you加jia入ru适shi当dang的de控kong制zhi和he资zi源yuan释shi放fang，请qing按an照zhao后hou续xu操cao作zuo执zhi行xing}type TSleepType=(stSleep,stSwitch); //演yan示shi线xian程cheng调tiao度du的deTThread派pai生sheng类lei TPriThread1=class(TThread) private CurCount : integer; //当dang前qian计ji数shu Flb : TLabel; //用yong来lai显xian示shi当dang前qian计ji数shu的delabel FCanSleep : Boolean; //是shi否fou自zi动dong释shi放fang时shi间jian片pian FSleepMs : integer; FSleepType : TSleepType;//释shi放fang时shi间jian片pian的de方fang式shi procedure GetRestult; protected procedure Execute;override; public constructor Create(CreateSuspended: Boolean;ALabel : TLabel); property CanSleep : boolean read FCanSleep write FCanSleep; property SleepMs : integer read FSleepMs write FSleepMs; property SleepType : TSleepType read FSleepType write FSleepType; end;.......{ TPriThread1的de实shi现xian }constructor TPriThread1.Create(CreateSuspended: Boolean; ALabel: TLabel);begin//构gou造zao函han数shu flb := ALabel; FSleepMs := 0; FCanSleep := true; FSleepType := stSleep; inherited create(CreateSuspended);end;procedure TPriThread1.Execute;var i : integer;begin inherited; FreeOnTerminate := true; CurCount := 0; for i := 0 to 100000 do begin CurCount := i;//改gai变bian当dang前qian计ji数shu Synchronize(GetRestult);//显xian示shi结jie果guo if FCanSleep then//是shi否fou自zi动dong释shi放fang时shi间jian片pian begin //根gen据ju释shi放fang时shi间jian片pian的de不bu同tong方fang式shi进jin行xing相xiang应ying操cao作zuo case FSleepType of stSleep : Sleep(SleepMs);//睡shui眠mian stSwitch : SwitchToThread;//调tiao用yong其qi他ta线xian程cheng end; end; end;end;procedure TPriThread1.GetRestult;begin flb.Caption := IntToStr(CurCount);end;...{Form1的de主zhu要yao代dai码ma}procedure TForm1.btnPThread1CreateClick(Sender: TObject);begin //生sheng成cheng两liang个ge线xian程cheng MyPThread1 := TPriThread1.Create( not ckbx1State.Checked,lab1); MyPThread2 := TPriThread1.Create(not ckbx2State.Checked,lab2); //得de到dao他ta们men当dang前qian的de优you先xian级ji lb1p.Caption := inttostr(GetThreadPriority(MyPThread1.Handle)); lb2p.Caption := inttostr(GetThreadPriority(MyPThread2.Handle));end;procedure TForm1.btnPThread1ResClick(Sender: TObject);begin //执zhi行xing线xian程cheng MyPThread1.Resume; ckbx1State.Checked := true; MyPThread2.Resume; ckbx2State.Checked := true;end;procedure TForm1.btnPThread1SudClick(Sender: TObject);begin //挂gua起qi线xian程cheng MyPThread1.Suspend; ckbx1State.Checked := false; MyPThread2.Suspend; ckbx2State.Checked := false;end;procedure TForm1.btnUpPThread1Click(Sender: TObject);begin //在zai线xian程cheng挂gua起qi时shi，提ti高gao第di一yi个ge线xian程cheng的de相xiang对dui优you先xian级ji MyPThread1.Priority := tpHigher; //显xian示shi当dang前qian的de优you先xian级ji到dao屏ping幕mu lb1p.Caption := inttostr(GetThreadPriority(MyPThread1.Handle)); // MyPThread2.Priority := tpHigher;end;procedure TForm1.btnUpdateSleepClick(Sender: TObject);begin //修xiu改gai两liang个ge线xian程cheng的de时shi间jian片pian释shi放fang方fang式shi MyPThread1.CanSleep := ckbxAllowSleep1.Checked; case RadioGroup1.ItemIndex of 0 : MyPThread1.SleepType := stSleep; 1 : MyPThread1.SleepType := stSwitch; end; MyPThread2.CanSleep := ckbxAllowSleep2.Checked; case RadioGroup2.ItemIndex of 0 : MyPThread2.SleepType := stSleep; 1 : MyPThread2.SleepType := stSwitch; end;end; 窗chuang体ti效xiao果guo： 让rang我wo们men来lai用yong这zhe个ge程cheng序xu测ce试shi一yi些xie效xiao果guo： 1、基ji本ben执zhi行xing。程cheng序xu运yun行xing之zhi后hou，使shi用yong默mo认ren设she置zhi，点dian击ji【创chuang建jian线xian程cheng】按an钮niu，线xian程cheng将jiang被bei创chuang建jian，并bing且qie挂gua起qi，这zhe是shi你ni可ke以yi间jian隔ge的de点dian击ji【执zhi行xing线xian程cheng】和he【挂gua起qi线xian程cheng】按an钮niu，你ni会hui在zai屏ping幕mu上shang看kan到dao线xian程cheng的de当dang前qian计ji数shu，注zhu意yi这zhe两liang个ge计ji数shu之zhi间jian的de差cha值zhi，以yi及ji整zheng个ge界jie面mian的de执zhi行xing效xiao果guo（我wo指zhi的de是shi在zai你ni让rang线xian程cheng不bu断duan的de执zhi行xing和he挂gua起qi之zhi间jian界jie面mian是shi否fou会hui出chu现xian不bu刷shua新xin的de情qing况kuang），当dang线xian程cheng执zhi行xing完wan毕bi之zhi后hou，关guan闭bi程cheng序xu。 2、通tong过guoSleep(0)释shi放fang时shi间jian片pian演yan示shi线xian程cheng调tiao度du。运yun行xing程cheng序xu，使shi用yong默mo认ren设she置zhi，点dian击ji【创chuang建jian线xian程cheng】按an钮niu，然ran后hou将jiang两liang个ge线xian程cheng的de自zi释shi放fang时shi间jian片pian功gong能neng统tong统tong去qu掉diao（也ye就jiu是shi去qu掉diaockbxAllowSleep1 and 2的de勾gou勾gou），然ran后hou点dian击ji【修xiu改gai睡shui眠mian方fang式shi】按an钮niu，随sui后hou你ni可ke以yi进jin行xing间jian隔ge点dian击ji【执zhi行xing线xian程cheng】和he【挂gua起qi线xian程cheng】按an钮niu，多duo做zuo几ji次ci这zhe样yang的de操cao作zuo，观guan察cha两liang个ge计ji数shu之zhi间jian的de差cha值zhi，和he测ce试shi1的de差cha值zhi比bi较jiao一yi下xia。我wo想xiang你ni应ying该gai能neng想xiang到dao些xie什shen么me。然ran后hou，几ji乎hu可ke以yi肯ken定ding你ni的de界jie面mian将jiang会hui出chu现xian无wu法fa刷shua新xin的de情qing况kuang，并bing且qie你ni的de鼠shu标biao无wu法fa立li即ji在zai此ci界jie面mian上shang进jin行xing其qi他ta的de操cao作zuo。这zhe个ge时shi候hou，稍shao等deng一yi下xia，你ni会hui发fa现xian过guo了le一yi会hui儿er，两liang个ge当dang前qian计ji数shu都dou被bei刷shua新xin了le。为wei什shen么me？？这zhe时shi，我wo们men除chu了le考kao虑lv我wo们men创chuang建jian的de两liang个ge线xian程cheng之zhi外wai，你ni还huan要yao考kao虑lv的de你ni程cheng序xu本ben身shen的de主zhu线xian程cheng以yi及ji其qi他ta可ke能neng存cun在zai的de附fu属shu线xian程cheng，我wo们men再zai去qu程cheng序xu中zhong线xian程cheng的de那na段duan循xun环huan代dai码ma， CurCount := i;//改gai变bian当dang前qian计ji数shu Synchronize(GetRestult);//显xian示shi结jie果guo if FCanSleep then//是shi否fou自zi动dong释shi放fang时shi间jian片pian begin //根gen据ju释shi放fang时shi间jian片pian的de不bu同tong方fang式shi进jin行xing相xiang应ying操cao作zuo case FSleepType of stSleep : Sleep(SleepMs);//睡shui眠mian stSwitch : SwitchToThread;//调tiao用yong其qi他ta线xian程cheng end; end; 你ni应ying该gai看kan到dao线xian程cheng将jiang当dang前qian计ji数shu显xian示shi在zai屏ping幕mu上shang的de操cao作zuo是shi执zhi行xing了leSynchronize(GetRestult)，这zhe里li，因yin为wei我wo们men的de线xian程cheng和heVCL界jie面mian发fa生sheng了le交jiao互hu，我wo们men必bi须xu对duiSynchronize有you所suo了le解jie，去qu看kanVCL的de源yuan码ma，你ni会hui发fa现xian，当dang你ni在zai程cheng序xu中zhong第di一yi次ci创chuang建jian一yi个ge附fu属shu线xian程cheng时shi， VCL将jiang会hui从cong主zhu线xian程cheng环huan境jing中zhong创chuang建jian和he维wei护hu一yi个ge隐yin含han的de线xian程cheng窗chuang口kou。此ci窗chuang口kou唯wei一yi的de目mu的de是shi把ba通tong过guoSynchronize()调tiao用yong的de方fang法fa排pai队dui。Synchronize()把ba由youMethod参shen数shu传chuan递di过guo来lai的de方fang法fa保bao存cun在zaiTThread的deFMethod字zi段duan中zhong，然ran后hou，给gei线xian程cheng窗chuang口kou发fa一yi个geCM_EXECPROC消xiao息xi，并bing且qie把ba消xiao息xi的delParam参shen数shu设she为weiself(这zhe里li指zhi线xian程cheng对dui象xiang)。当dang线xian程cheng窗chuang口kou的de窗chuang口kou过guo程cheng收shou到dao这zhe个ge消xiao息xi后hou，它ta就jiu调tiao用yongFMethod字zi段duan所suo指zhi定ding的de方fang法fa。由you于yu线xian程cheng窗chuang口kou是shi在zai主zhu线xian程cheng内nei创chuang建jian的de，线xian程cheng窗chuang口kou的de窗chuang口kou过guo程cheng也ye将jiang被bei主zhu线xian程cheng执zhi行xing。因yin此ci，FMethod字zi段duan所suo指zhi定ding的de方fang法fa就jiu在zai主zhu线xian程cheng内nei执zhi行xing。 在zai我wo们men选xuan择ze释shi放fang时shi间jian片pian的de模mo式shi下xia，在zai这zhe里li，无wu论lun我wo们men是shi用yongSleep还huan是shiSwitchToThread，当dang前qian线xian程cheng都dou会hui立li即ji释shi放fang时shi间jian片pian，因yin为wei这zhe时shi我wo们men并bing没mei有you修xiu改gai线xian程cheng的de优you先xian级ji，他ta们men都dou在zai同tong样yang的de优you先xian级ji环huan境jing下xia运yun行xing，那na么me当dang占zhan用yongCPU的de线xian程cheng释shi放fang时shi间jian片pian后hou，其qi他ta线xian程cheng将jiang可ke以yi相xiang对dui轻qing松song的de得de到daoCPU，所suo以yi在zai使shi用yong释shi放fang时shi间jian片pian的de模mo式shi下xia，界jie面mian的de刷shua新xin会hui良liang好hao。并bing且qie调tiao度du相xiang对dui有you序xu。 3、Sleep和heSwitchToThread区qu别bie的de演yan示shi。运yun行xing程cheng序xu，使shi用yong默mo认ren设she置zhi，点dian击ji【创chuang建jian线xian程cheng】按an钮niu，然ran后hou点dian击ji【提ti高gao线xian程cheng1的de优you先xian级ji】按an钮niu，再zai点dian击ji【执zhi行xing线xian程cheng】这zhe是shi，两liang个ge线xian程cheng将jiang不bu再zai是shi同tong样yang的de优you先xian级ji，其qi他ta设she置zhi依yi然ran是shi默mo认ren的de（使shi用yongsleep方fang式shi释shi放fang时shi间jian片pian），你ni会hui看kan到dao线xian程cheng1首shou先xian执zhi行xing，线xian程cheng2处chu于yu可ke调tiao度du模mo式shi，但dan并bing没mei有you被bei调tiao度du（当dang前qian计ji数shu没mei有you刷shua新xin），并bing且qie屏ping幕mu也ye不bu刷shua新xin，在zai稍shao等deng一yi段duan时shi间jian之zhi后hou，屏ping幕mu刷shua新xin，线xian程cheng2也ye开kai始shi运yun行xing，并bing且qie此ci时shi屏ping幕mu刷shua新xin正zheng常chang。为wei什shen么me呢ne？回hui头tou去qu看kan本ben文wen上shang面mian的de内nei容rong，当dang线xian程cheng1的de优you先xian级ji提ti高gao之zhi后hou，系xi统tong会hui首shou先xian调tiao度du它ta，虽sui然ran它ta使shi用yongsleep(0)来lai释shi放fang时shi间jian片pian，但dan当dang时shi间jian片pian释shi放fang后hou，因yin为wei它ta的de优you先xian级ji相xiang对dui较jiao高gao，系xi统tong依yi然ran会hui调tiao度du线xian程cheng1，所suo以yi此ci时shi，线xian程cheng2将jiang不bu能neng执zhi行xing，界jie面mian也ye不bu能neng有you效xiao刷shua新xin。在zai这zhe个ge思si路lu下xia，再zai做zuo一yi个ge测ce试shi，使shi用yong同tong样yang的de方fang式shi，只zhi不bu过guo这zhe次ci，在zai线xian程cheng执zhi行xing之zhi前qian，除chu了le提ti高gao线xian程cheng1的de优you先xian级ji之zhi外wai，还huan将jiang线xian程cheng1释shi放fang时shi间jian片pian方fang式shi改gai为weiSwitchToThread，此ci时shi你ni就jiu可ke以yi看kan到dao两liang个ge线xian程cheng都dou有you机ji会hui执zhi行xing，并bing且qie界jie面mian也ye将jiang有you效xiao刷shua新xin。 4、你ni还huan可ke以yi做zuo其qi他ta配pei置zhi信xin息xi的de测ce试shi，相xiang信xin会hui加jia深shen对duiWIN32平ping台tai下xia线xian程cheng调tiao度du的de了le解jie。 参shen考kao文wen献xian 1、《DELPHI5开kai发fa人ren员yuan指zhi南nan》 2、《WINDOWS核gai心xin编bian程cheng》 注zhu：以yi上shang程cheng序xu在zaiD7+WINXP下xia测ce试shi通tong过guo 转zhuan载zai请qing著zhu名ming出chu处chu。【
原文】【
拼音】
![]()
兄弟共妻，我成了他们夜里的美食老钟家的两个儿子很特别，就是跟其他的人不太一样，魔一般的执着。兄弟俩都到了要结婚的年龄了，不管自家老爹怎么磨破嘴皮子，兄弟俩说不娶就不娶，老父母为兄弟两操碎了心...
![]()
如何磨出破洞牛仔裤？牛仔裤怎么剪破洞？把牛仔裤磨出有线的破洞
1、具体工具就是磨脚石，下面垫一个硬物，然后用磨脚石一直磨一直磨，到把那块磨薄了，用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...
![]()
我就是扫描下图得到了敬业福和爱国福先来看下敬业福和爱国福
今年春节，支付宝再次推出了“五福红包”活动，表示要“把欠大家的敬业福都还给大家”。
今天该活动正式启动，和去年一样，需要收集“五福”...
![]()
冰箱异味产生的原因和臭味去除的方法有时候我们打开冰箱就会闻到一股异味，冰箱里的这种异味是因为一些物质发出的气味的混合体，闻起来让人恶心。 产生这些异味的主要原因有以下几点。
1、很多人有这种习...
线程的调度
每个线程是拥有一个上下文结构的，这个结构维护在线程的内核对象中。这个上下文结构反映了线程上次运行时该线程的C P U寄存器的状态。每隔20ms左右，Windows要查看当前存在的所有线程内核对象。在这些对象中，只有某些对象被视为可以调度的对象。Windows选择可调度的线程内核对象中的一个，将它加载到C P U的寄存器中，它的值是上次保存在线程的环境中的值。这项操作称为上下文转换。Windows实际上保存了一个记录，它说明每个线程获得了多少个运行机会。
Windows被称为抢占式多线程操作系统，因为一个线程可以随时停止运行，随后另一个线程可进行调度。如你所见，可以对它进行一定程度的控制，但是不能太多。注意，无法保证线程总是能够运行，也不能保证线程能够得到整个进程，无法保证其他线程不被允许运行等等。
我在编写串口通讯程序的时候，起初，我有一个天真的想法，“在win32平台下，如何能够保证从串口传送过来的数据，在数据到达后1MS内开始运行？”。为此，我曾经做了许多试验，但当我真正了解了一些win32平台的知识，我得到了答案，办不到。只有实时操作系统才能作出这样的承诺，但Windows不是实时操作系统。实时操作系统必须清楚地知道它是在什么硬件上运行，这样它才能知道它的硬盘控制器和键盘等的等待时间。Microsoft对Windows规定的目标是，使它能够在各种不同的硬件上运行，即能够在不同的CPU、不同的驱动器和不同的网络上运行。简而言之，Windows没有设计成为一种实时操作系统。
Windows系统只调度可以调度的线程。那么什么是可以调度的线程，什么是不可以调度的线程呢？例如，有些线程对象的暂停计数大于1（记录在线程内核对象的上下文结构中）。这意味着该线程已经暂停运行，不应该给它安排任何C P U时间。还记得上文中曾经提到的CREATE_SUSPENDED标志吗？在创建一个线程的时候，createThread函数接收的倒数第二个参数中赋值CREATE_SUSPENDED就可以创建一个暂停的线程。除了暂停的线程外，其他许多线程也是不可调度的线程，因为它们正在等待某些事情的发生。例如，如果记事本程序，如果你不键入任何数据，那么它的线程就没有什么事情要做。系统不给无事可做的线程分配CPU时间。当移动它的窗口时，或者它的窗口需要刷新它的内容，或者将数据键入记事本，系统就会自动使它的线程成为可调度的线程。但切记，这并不意味着它的线程立即获得了CPU时间。它只是表示记事本的的线程有事情可做，系统将设法在某个时间（不久的将来）对它进行调度。
线程的暂停和执行
我们前面说过，在线程内核对象的内部有一个值，用于指明线程的暂停计数。当调用CreateThread函数时，就创建了线程的内核对象，并且它的暂停计数被初始化为1。这可以防止线程被调度到CPU中。当然，这是很有用的，因为线程的初始化需要时间，你不希望在系统做好充分的准备之前就开始执行线程。当线程完全初始化好了之后， 要查看是否已经传递了CREATE_SUSPENDED标志。如果已经传递了这个标志，那么这些函数就返回，同时新线程处于暂停状态。如果尚未传递该标志，那么该函数将线程的暂停计数递减为0。当线程的暂停计数是0的时候，除非线程正在等待其他某种事情的发生，否则该线程就处于可调度状态。
在暂停状态中创建一个线程，就能够在线程有机会执行任何代码之前改变线程的运行环境（如优先级）。一旦改变了线程的环境，必须使线程成为可调度线程。要进行这项操作，可以调用ResumeThread，将线程句柄传递给它,如果ResumeThread，函数运行成功，它将返回线程的前一个暂停计数，否则返回0xFFFFFFFF。注意这里，它返回的是前一个暂停计数。
单个线程可以暂停若干次。如果一个线程暂停了3次，它必须恢复3次，然后它才可以被分配给一个C P U。当创建线程时，除了使用CREATE_SUSPENDED外，也可以调用SuspendThread函数来暂停线程的运行。任何线程都可以调用该函数来暂停另一个线程的运行（只要拥有线程的句柄）。不用说，线程可以自行暂停运行，但是不能自行恢复运行。SuspendThread返回的是线程的前一个暂停计数。线程暂停的最多次数可以是MAXIMUM_SUSPEND_COUNT次。值得注意的是，SuspendThread与内核方式的执行是异步进行的，但是在线程恢复运行之前，不会发生用户方式的执行。在实际环境中，调用SuspendThread时必须小心，因为不知道暂停线程运行时它在进行什么操作。如果线程试图从堆栈中分配内存，那么该线程将在该堆栈上设置一个锁。当其他线程试图访问该堆栈时，这些线程的访问就被停止，直到第一个线程恢复运行。只有确切知道目标线程是什么（或者目标线程正在做什么），并且采取强有力的措施来避免因暂停线程的运行而带来的问题或死锁状态，SuspendThread才是安全的。
线程的睡眠
线程也能告诉系统，它不想在某个时间段内被调度。这是通过调用Sleep函数来实现的：
VOID Sleep(DWORD cMilliseconds)
该函数可使线程暂停自己的运行，直到cMilliseconds过去为止。关于Sleep函数，有下面几个重要问题值得注意：
• 调用Sleep，可使线程自愿放弃它剩余的时间片。
• 系统将在大约的指定毫秒数内使线程不可调度。不错，如果告诉系统，想睡眠100ms，那么可以睡眠大约这么长时间，但是也可能睡眠数秒钟或者数分钟。还是那个反复重申的概念， Windows不是个实时操作系统。虽然线程可能在规定的时间被唤醒，但是它能否做到，取决于系统
中还有什么操作正在进行。
• 可以调用Sleep，并且为cMilliseconds)参数传递INFINITE。这将告诉系统永远不要调度该线程。这不是一件值得去做的事情。最好是让线程退出，并还原它的堆栈和内核对象。
• 可以将0传递给Sleep。这将告诉系统，调用线程将释放剩余的时间片，并迫使系统调度另一个线程。但是，系统可以对刚刚调用Sleep的线程重新调度。如果不存在多个拥有相同优先级的可调度线程，就会出现这种情况。Sleep(0)是一个非常有意思的方法。要小心Sleep()神秘的时间调整问题。Sleep()可能会使你的机器出现特别的问题。这种问题在另一台机器上可能无法再现。
切换到另一个线程
系统提供了一个称为SwitchToThread的函数，使得另一个可调度线程（如果存在能够运行）。当调用这个函数的时候，系统要查看是否存在一个迫切需要C P U时间的线程。如果没有线程迫切需要C P U时间SwitchToThread就会立即返回。如果存在一个迫切需要C P U时间的线程，SwitchToThread就对该线程进行调度（该线程的优先级可能低于调用SwitchToThread的线程）。这个迫切需要C P U时间的线程可以运行一个时间段，然后系统调度程序照常运行。该函数允许一个需要资源的线程强制另一个优先级较低、而目前却拥有该资源的线程放弃该资源。如果调用SwitchToThread函数时没有其他线程能够运行，那么该函数返回FALSE，否则返回一个非0值。调用SwitchToThread函数与调用Sleep是相似的，差别是SwitchToThread允许优先级较低的线程运行。即使低优先级线程迫切需要CPU时间，而Sleep则可能因为优先级关系使得刚放弃CPU的线程被立即重新调度。
优先级
操作系统会负责为每个线程分配CPU时间。一个线程所分配到的CPU时间主要取决于该线程的优先级，而线程的优先级又取决于进程的优先级类和线程本身的相对优先级。
1. 进程的优先级类
进程的优先级类用来描述一个进程的优先程度。Win32支持四种不同的优先级类： Idle、Normal、High 和Realtime。其中，Normal是默认的优先级。在Windows单元中，每一种优先级类都对应着一个标志。当要进行进程的优先级设置时，可以用一种优先级类与CreateProcess()的参数dwCreationFlags进行或操作。另外，还可以动态地为一个已有的进程调整优先级类。这时候，通常你要用到下面API函数
bool SetPriorityClass(HANDLE hProcess,DWORD fdwPriority)，其中第一个参数是进程的句柄，你可以通过GetCurrentProcess来获得当前进程的句柄。每个优先级类也对应一个数字，值在4~ 24之间。注意在Windows NT/2000下，要有特殊的权限才能修改进程的优先类。默认的设置允许进程设置它们的优先级类，但是，这些都可以由系统管理员来关闭，尤其是在高负载的WinNT/2000服务器上。
大多数情况下，进程的优先级类不要被设为Realtime。因为，大多数操作系统本身的线程的优先级类比Realtime低。如果一个进程得到的C P U时间比操作系统本身还多，后果是无法想象的。即使将进程的优先级类设为High ,也可能引起问题。因为，当高优先级的线程没有大部分空时间或等待外部事件时，它要从低优先级的线程和进程中抢夺CPU时间，直到它被一事件阻塞或处于空闲状态或处理消息。所以，在抢占式多任务操作系统中如果不能合理地安排优先级，就很容易崩溃。
优先级类
说明
实时
进程中的线程必须立即对事件作出响应，以便执行关键时间的任务。
该进程中的线程还会抢先于操作系统组件之前运行。使用本优先级类
时必须极端小心
高
进程中的线程必须立即对事件作出响应，以便执行关键时间的任务。
Task Manager（任务管理器）在这个类上运行，以便用户可以撤消脱
离控制的进程
高于正常
进程中的线程在正常优先级与高优先级之间运行（这是Wi n d o w s
2 0 0 0中的新优先级类）
正常
进程中的线程没有特殊的调度需求
低于正常
进程中的线程在正常优先级与空闲优先级之间运行（这是Wi n d o w s
2 0 0 0中的新优先级类）
空闲
进程中的线程在系统空闲时运行。该进程通常由屏幕保护程序或后
台实用程序和搜集统计数据的软件使用
2. 相对优先级
决定一个线程全面的优先级的另一方面是相对优先级。优先级类是针对进程的，它对进程内部的
所有线程都有效。而相对优先级是针对某个线程的。一个线程的相对优先级可设为以下七种： Idle、Lowest、Below Normal、Normal、Above Normal、Highest 和Time Critical。
要设置一个线程的相对优先级，可以通过API函数SetThreadPriority来完成，再DELPHI中，你可以通过TThread对象的Priority属性来设置。获得线程相对优先级的API函数是int GetThreadPriority(HANDLE hThread);
系统何如根据优先级来调度线程
每个线程都会被赋予一个从0（最低）到31（最高）的优先级号码。当系统确定将哪个线程分配给CPU时，它首先观察优先级为31的线程，并以循环方式对它们进行调度。如果优先级为31的线程可以调度，那么就将该线程赋予一个CPU。在该线程的时间片结束时，系统要查看是否还有另一个优先级为31的线程可以运行，如果有，它将允许该线程被赋予一个CPU。只要优先级为31的线程是可调度的，系统就绝对不会将优先级为0到30的线程分配给C P U。这种情况称为渴求调度（starvation）。当高优先级线程使用大量的CPU时间，从而使得低优先级线程无法运行时，便会出现渴求情况。在多处理器计算机上出现渴求情况的可能性要少得多，因为在这样的计算机上，优先级为31和优先级为30的线程能够同时运行。系统总是设法使CPU保持繁忙状态，只有当没有线程可以调度的时候， CPU才处于空闲状态。
人们可能认为，在这样的系统中，低优先级线程永远得不到机会运行。不过正像前面指出的那样，在任何一个时段内，系统中的大多数线程是不能调度的。例如，如果进程的主线程调用GetMessage函数，而系统发现没有线程可以供它使用，那么系统就暂停进程的线程运行，释放该线程的剩余时间片，并且立即将CPU分配给另一个等待运行的线程。如果没有为GetMessage函数显示可供检索的消息，那么进程的线程将保持暂停状态，并且决不会被分配给CPU。但是，当消息被置于线程的队列中时，系统就知道该线程不应该再处于暂停状态。此时，如果没有更高优先级的线程需要运行，系统就将该线程分配给一个CPU。
高优先级线程将抢在低优先级线程之前运行，不管低优先级线程正在运行什么。例如，如果一个优先级为5的线程正在运行，系统发现一个高优先级的线程准备要运行，那么系统就会立即暂停低优先级线程的运行（即使它处于它的时间片中），并且将C P U分配给高优先级线程，使它获得一个完整的时间片。还有，当系统引导时，它会创建一个特殊的线程，称为0页线程。该线程被赋予优先级0，它是整个系统中唯一的一个在优先级0上运行的线程。当系统中没有任何线程需要执行操作时，0页线程负责将系统中的所有空闲R A M页面置0。
动态提高线程的优先级等级
通过将线程的相对优先级与线程的进程优先级类综合起来考虑，系统就可以确定线程的优先级等级。有时这称为线程的基本优先级等级。
系统常常要提高线程的优先级等级，以便对窗口消息或读取磁盘等I/O事件作出响应。
例如，在高优先级类进程中的一个正常优先级等级的线程的基本优先级等级是13。如果用户按下一个操作键，系统就会将一个WM_KEYDOWN消息放入线程的队列中。由于一个消息已经出现在线程的队列中，因此该线程就是可调度的线程。此外，键盘设备驱动程序也能够告诉系统暂时提高线程的优先级等级。该线程的优先级等级可能提高2级，其当前优先级等级改为15。系统在优先级为15时为一个时间片对该线程进行调度。一旦该时间片结束，系统便将线程的优先级递减1，使下一个时间片的线程优先级降为14。该线程的第三个时间片按优先级等级13来执行。如果线程要求执行更多的时间片，均按它的基本优先级等级13来执行。注意，线程的当前优先级等级决不会低于线程的基本优先级等级。此外，导致线程成为可调度线程的设备驱动程序可以决定优先级等级提高的数量。Microsoft并没有规定各个设备驱动程序可以给线程的优先级提高多少个等级。这样就使得Microsoft可以不断地调整线程优先级提高的动态等级，以确定最佳的总体响应性能。系统只能为基本优先级等级在1至15之间的线程提高其优先级等级。实际上这是因为这个范围称为动态优先级范围。此外，系统决不会将线程的优先级等级提高到实时范围（高于15）。由于实时范围中的线程能够执行大多数操作系统的函数，因此给等级的提高规定一个范围，就可以防止应用程序干扰操作系统的运行。另外，系统决不会动态提高实时范围内的线程优先级等级。
另一种情况也会导致系统动态地提高线程的优先级等级。比如有一个优先级为4的线程准备运行但是却不能运行，因为一个优先级为8的线程正连续被调度。在这种情况下，优先级为4的线程就非常渴望得到CPU时间。当系统发现一个线程在大约3至4s内一直渴望得到C P U时间，它就将这个渴望得到CPU时间的线程的优先级动态提高到15，并让该线程运行两倍于它的时间量。当到了两倍时间量的时候，该线程的优先级立即返回到它的基本优先级。
系统动态的改变优先级，在我们编程的时候会产生不良影响，为此，还有两个API函数可以使得系统的此功能不起作用。
bool SetProcessPriorityBoost(HANDLE hProcess,bool disablePriorityboost);
bool SetThreadPriorityBoost(HANDLE hThread,bool disablePriorityboost);
从名字你就应该可以看出，第一个API函数可以激活或停用指定进程所有线程的优先级提高功能，而后面一个则是针对特定线程的。
例子：关键的代码如下
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 作者：wudi_1982
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 联系方式:wudi_1982@hotmail.com
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 转载请著名出处
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/InBlock.gif[/img][/url] 本代码旨在演示线程的调度，很多位置没有加入适当的控制和资源释放，请按照后续操作执行
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockEnd.gif[/img][/url]}
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TSleepType=(stSleep,stSwitch);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //演示线程调度的TThread派生类
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TPriThread1=class(TThread)
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] private
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] CurCount : integer; //当前计数
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Flb : TLabel; //用来显示当前计数的label
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FCanSleep : Boolean; //是否自动释放时间片
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FSleepMs : integer;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FSleepType : TSleepType;//释放时间片的方式
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure GetRestult;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] protected
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure Execute;override;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] public
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] constructor Create(CreateSuspended: Boolean;ALabel : TLabel);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] property CanSleep : boolean read FCanSleep write FCanSleep;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] property SleepMs : integer read FSleepMs write FSleepMs;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] property SleepType : TSleepType read FSleepType write FSleepType;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]....
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{ TPriThread1的实现 }
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]constructor TPriThread1.Create(CreateSuspended: Boolean; ALabel: TLabel);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]//构造函数
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] flb := ALabel;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FSleepMs := 0;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FCanSleep := true;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FSleepType := stSleep;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] inherited create(CreateSuspended);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TPriThread1.Execute;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] i : integer;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] inherited;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] FreeOnTerminate := true;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] CurCount := 0;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] for i := 0 to 100000 do
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] CurCount := i;//改变当前计数
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Synchronize(GetRestult);//显示结果
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] if FCanSleep then//是否自动释放时间片
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //根据释放时间片的不同方式进行相应操作
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] case FSleepType of
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] stSleep : Sleep(SleepMs);//睡眠
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] stSwitch : SwitchToThread;//调用其他线程
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TPriThread1.GetRestult;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] flb.Caption := IntToStr(CurCount);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{Form1的主要代码}
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnPThread1CreateClick(Sender: TObject);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //生成两个线程
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread1 := TPriThread1.Create( not ckbx1State.Checked,lab1);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread2 := TPriThread1.Create(not ckbx2State.Checked,lab2);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //得到他们当前的优先级
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] lb1p.Caption := inttostr(GetThreadPriority(MyPThread1.Handle));
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] lb2p.Caption := inttostr(GetThreadPriority(MyPThread2.Handle));
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnPThread1ResClick(Sender: TObject);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //执行线程
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread1.Resume;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ckbx1State.Checked := true;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread2.Resume;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ckbx2State.Checked := true;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnPThread1SudClick(Sender: TObject);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //挂起线程
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread1.Suspend;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ckbx1State.Checked := false;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread2.Suspend;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] ckbx2State.Checked := false;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnUpPThread1Click(Sender: TObject);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //在线程挂起时，提高第一个线程的相对优先级
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread1.Priority := tpHigher;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //显示当前的优先级到屏幕
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] lb1p.Caption := inttostr(GetThreadPriority(MyPThread1.Handle));
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // MyPThread2.Priority := tpHigher;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.btnUpdateSleepClick(Sender: TObject);
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] //修改两个线程的时间片释放方式
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread1.CanSleep := ckbxAllowSleep1.Checked;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] case RadioGroup1.ItemIndex of
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 0 : MyPThread1.SleepType := stSleep;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 1 : MyPThread1.SleepType := stSwitch;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] MyPThread2.CanSleep := ckbxAllowSleep2.Checked;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] case RadioGroup2.ItemIndex of
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 0 : MyPThread2.SleepType := stSleep;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] 1 : MyPThread2.SleepType := stSwitch;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end;
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
窗体效果：
[url=http://www.wangchao.net.cn/bbs/hydetail_566835.html][img]http://p.blog.csdn.net/images/p_blog_csdn_net/wudi_1982/线程调度程序演示界面.JPG[/img][/url]
让我们来用这个程序测试一些效果：
1、基本执行。程序运行之后，使用默认设置，点击【创建线程】按钮，线程将被创建，并且挂起，这是你可以间隔的点击【执行线程】和【挂起线程】按钮，你会在屏幕上看到线程的当前计数，注意这两个计数之间的差值，以及整个界面的执行效果（我指的是在你让线程不断的执行和挂起之间界面是否会出现不刷新的情况），当线程执行完毕之后，关闭程序。
2、通过Sleep(0)释放时间片演示线程调度。运行程序，使用默认设置，点击【创建线程】按钮，然后将两个线程的自释放时间片功能统统去掉（也就是去掉ckbxAllowSleep1 and 2的勾勾），然后点击【修改睡眠方式】按钮，随后你可以进行间隔点击【执行线程】和【挂起线程】按钮，多做几次这样的操作，观察两个计数之间的差值，和测试1的差值比较一下。我想你应该能想到些什么。然后，几乎可以肯定你的界面将会出现无法刷新的情况，并且你的鼠标无法立即在此界面上进行其他的操作。这个时候，稍等一下，你会发现过了一会儿，两个当前计数都被刷新了。为什么？？这时，我们除了考虑我们创建的两个线程之外，你还要考虑的你程序本身的主线程以及其他可能存在的附属线程，我们再去程序中线程的那段循环代码，
CurCount := i;//改变当前计数
Synchronize(GetRestult);//显示结果
if FCanSleep then//是否自动释放时间片
begin
//根据释放时间片的不同方式进行相应操作
case FSleepType of
stSleep : Sleep(SleepMs);//睡眠
stSwitch : SwitchToThread;//调用其他线程
end;
end;
你应该看到线程将当前计数显示在屏幕上的操作是执行了Synchronize(GetRestult)，这里，因为我们的线程和VCL界面发生了交互，我们必须对Synchronize有所了解，去看VCL的源码，你会发现，当你在程序中第一次创建一个附属线程时， VCL将会从主线程环境中创建和维护一个隐含的线程窗口。此窗口唯一的目的是把通过Synchronize()调用的方法排队。Synchronize()把由Method参数传递过来的方法保存在TThread的FMethod字段中，然后，给线程窗口发一个CM_EXECPROC消息，并且把消息的lParam参数设为self(这里指线程对象)。当线程窗口的窗口过程收到这个消息后，它就调用FMethod字段所指定的方法。由于线程窗口是在主线程内创建的，线程窗口的窗口过程也将被主线程执行。因此，FMethod字段所指定的方法就在主线程内执行。
在我们选择释放时间片的模式下，在这里，无论我们是用Sleep还是SwitchToThread，当前线程都会立即释放时间片，因为这时我们并没有修改线程的优先级，他们都在同样的优先级环境下运行，那么当占用CPU的线程释放时间片后，其他线程将可以相对轻松的得到CPU，所以在使用释放时间片的模式下，界面的刷新会良好。并且调度相对有序。
3、Sleep和SwitchToThread区别的演示。运行程序，使用默认设置，点击【创建线程】按钮，然后点击【提高线程1的优先级】按钮，再点击【执行线程】这是，两个线程将不再是同样的优先级，其他设置依然是默认的（使用sleep方式释放时间片），你会看到线程1首先执行，线程2处于可调度模式，但并没有被调度（当前计数没有刷新），并且屏幕也不刷新，在稍等一段时间之后，屏幕刷新，线程2也开始运行，并且此时屏幕刷新正常。为什么呢？回头去看本文上面的内容，当线程1的优先级提高之后，系统会首先调度它，虽然它使用sleep(0)来释放时间片，但当时间片释放后，因为它的优先级相对较高，系统依然会调度线程1，所以此时，线程2将不能执行，界面也不能有效刷新。在这个思路下，再做一个测试，使用同样的方式，只不过这次，在线程执行之前，除了提高线程1的优先级之外，还将线程1释放时间片方式改为SwitchToThread，此时你就可以看到两个线程都有机会执行，并且界面也将有效刷新。
4、你还可以做其他配置信息的测试，相信会加深对WIN32平台下线程调度的了解。
参考文献
1、《DELPHI5开发人员指南》
2、《WINDOWS核心编程》
注：以上程序在D7+WINXP下测试通过
转载请著名出处。
免责声明：本文仅代表作者个人观点，与王朝网络无关。王朝网络登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
订阅
