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

Delphi¶àÏß³Ìѧϰ£¨5£©£º»¥³âÁ¿Mutex

»¥³âÁ¿ÊÇϵͳÄں˶ÔÏó£¬Ë­ÓµÓоÍË­Ö´ÐС£ËüÓëÁÙ½çÇø¹¤×÷ºÜÀàËÆ¡£²»Í¬´¦ÔÚÓÚ£º1¡¢»¥³âÁ¿¿ÉÒÔ¿ç½ø³Ì±ß½çͬ²½Ï̡߳£2¡¢¿ÉÒÔ¸ø»¥³âÁ¿È¡¸öÃû×Ö£¬Í¨¹ýÒýÓû¥³âÁ¿µÄÃû×ÖÀ´Ê¹ÓÃÒ»¸öÒÑÖªµÄ»¥³âÁ¿¶ÔÏó¡£
     ʹÓû¥³âÁ¿Ö®ÀàµÄ¶ÔÏóÐèÒª·´¸´µ÷ÓÃϵͳÄںˣ¬ÆÚ¼äÐèÒª½øÐнø³ÌÉÏÏÂÎÄת»»ºÍ¿ØÖƼ¶±ðת»»£¬´ó¸ÅÐèÒªºÄ·Ñ400µ½600¸öʱ¼äÖÜÆÚ¡£
      ÓÖÊÇͼÊé¹ÝµÄ±ÈÓ÷£¬ÏÖÔÚÊǸãÒ»¸öËø£¬°ÑÔ¿³×£¨»¥³âÁ¿¾ä±ú£©½»¸ø¹ÜÀíÔ±£¨²Ù×÷ϵͳ£©£¬Ã¿Ò»¸öÈË£¨Ị̈߳©ÏëÒª½èÊéµÄʱºò£¬¶¼ÒªÏò¹ÜÀíÔ±ÄÃÔ¿³×¡£µ±ÓÐÈËÔÚʹÓõÄʱºò£¬ÁíÒ»È˱ØÐëµÈ´ý£¬µÈµ½Ô¿³×ÓпյÄʱºò£¨»¥³âÁ¿½øÈëÐźÅ״̬£©£¬²ÅÄÜÄõ½Ô¿³×£¨ÓµÓÐÁ˾ä±ú£©°ìÀí½èÊéÒµÎñ£¨´Ëʱ»¥³âÁ¿½øÈë·ÇÐźÅ״ֱ̬µ½°ìÍêÒµÎñ£©¡£
   ʹÓû¥³âÁ¿µÄ²½Ö裺
1¡¢ÉùÃ÷Ò»¸öÈ«¾ÖµÄ»¥³âÁ¿¾ä±ú±äÁ¿£¨var hMutex: THandle;£©£»
2¡¢´´½¨»¥³âÁ¿£ºCreateMutex(
                          lpMutexAttributes: PSecurityAttributes;
                          bInitialOwner: BOOL; 
                          lpName: PWideChar   ): THandle;
  £¨lpMutexAttributes²ÎÊý£ºÖ¸ÏòTSecurityAttributesµÄÖ¸Õ룬°²È«ÊôÐÔ£¬Ò»°ãÓÃȱʡ°²È«ÊôÐÔnil£»
    bInitialOwer²ÎÊý£º±íʾ´´½¨µÄ»¥³âÁ¿Ïß³ÌÊÇ·ñÊÇ»¥³âÁ¿µÄÊôÖ÷£¬Èç¹û¸Ã²ÎÊýΪFalse»¥³âÁ¿¾ÍûÊôÖ÷£¬Ò»°ãÀ´½²Ó¦ÉèΪFalse£¬·ñÔòÈç¹ûÉèΪTrueµÄ»°£¬Òªµ±Ö÷Ï߳̽áÊøÆäËûÏ̲߳ųÉΪËüµÄÊôÖ÷²ÅÄÜÔËÐУ»
   lpName²ÎÊý£ºÊÇ»¥³âÁ¿µÄÃû×Ö£¬Èô´òËãÈ¡ÃûµÄ»°£¬Ôò´«Èënil¡££©
3¡¢Óõȴýº¯Êý¿ØÖÆÏ߳̽øÈëͬ²½´úÂë¿é£ºWaitForSingleObject(
                                       &n


Ïà¹ØÎĵµ£º

Delphi Êý×éºÍ½á¹¹Ìå

¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].

¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......

Delphi ×Ô¼ºÐ´¸öTimerÍæÍæ

¼¼Êõ½»Á÷,DH½²½â.
Ã÷ÌìÈ¥×ø»ð³µ,»Ø¼Ò,½ñÌì¾ÍûÓÐÊÂ×ö,±¾À´ÔÚŪһ¸ö¿ç½ø³Ì»ñÈ¡ÆäËû³ÌÐòÀïÃæ×é¼þ,ÈçListView,ListBox,ButtonµÈµÄÐÅÏ¢,ͻȻÓиöÏë·¨×Ô¼ºÐ´¸öTimer,²»ÓÃSetTimerº¯Êý,ÎÒÃÇ×Ô¼ºÓøö¶àÏß³ÌÒ²ÕýºÃʵÏÖÕâ¸ö.·´Õýǰ¶Îʱ¼ä¶àÏß³ÌҲŪµÃ±È½Ï¶à,±¾À´Ïëµ¥¶À½²½²µÄ,ÏÖÔÚ¾ÍÓøöÀý×ÓÀ´ËµÃ÷°É.
д³ÉÒ»¸ö¿Ø¼þ:utTimer.pas
v ......

ÔÚDelphiÖУ¬×Ö·û´®²éÕÒ º¯Êý

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 ×ÊÔ´ÎļþʹÓÃ


DelphiʹÓÃ×ÊÔ´ÎļþÈ«¹¥ÂÔ
   ÔÚͨ³£Çé¿öÏÂʹÓÃdelphiÉè¼Æ³ÌÐò£¬¶¼Êǽ«×Ö·û´®¡¢Í¼ÏñµÈ×ÊÔ´Ö±½ÓʹÓÃdelphiÌṩµÄvcl¿Ø¼þ¼Óµ½*.dfmÖУ¬ÕâÑù×ö»áºÏÐÞ¸ÄÕâЩ×ÊԴʱ´øÀ´²»±ã£¬Èç¹û×ÊÔ´±»¶à´ÎÒýÓã¬ÕâЩ×ÊÔ´ÔÚ³ÌÐòÆô¶¯Ê±¶¼±»¼ÓÔØµ½ÄÚ´æÖУ¬·Ç³£ºÄ·Ñϵͳ×ÊÔ´¡£Òò´Ë£¬Õâ¾ÍÐèÒªÒ»ÖÖеÄÒýÓÃ×ÊÔ´µÄÎļþ£º×ÊÔ´Îļþ¡£×ÊÔ´ ......

Delphi¶àÏß³Ìѧϰ£¨2£©£ºDelphiÖеĶàÏß³ÌÀàTThread¡£

2010-02-22 17:08:46
Delphi°Ñ¶àÏß³ÌÏà¹ØµÄAPI·â×°ÔÚTThreadÕâ¸öÀàÖУ¬¿ÉÒÔ·½±ãʵÏÖ¶àÏß³ÌÔËÓá£Ê×ÏÈ¿´ÏÂTThreadµÄÉùÃ÷£º
TThread = class

private
FHandle: THandle;
FThreadID: THandle;
FCreateSuspended: Boolean;
FTerminated: Boolean;
FSuspended: Boolean;
FFreeOnTerminate: ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ