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

delphi procedure ÔËÐÐÖÐ;ÈçºÎÖÕÖ¹ ?


ÓÐÒ»¸ö½Ð  Taking()  µÄprocedure,

Óжþ¸ö°´Å¥,


  ÎÊÌâ, µãµÚÒ»¸ö°´Å¥µÄ´úÂëÊǵ÷ÓÃTaking()µÄ, Ôõô²ÅÄܵãµÚ¶þ¸ö°´Å¥°ÑTaking()ÖÕÖ¹»ò³·Ïú
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit

RT£¬¾ÍÊÇÕâÑù£¬µÚÒ»¸ö°´Å¥ÅжÏÖµ£¬µÚ¶þ¸ö°´Å¥µÄʼþ°ÑÖµÉèÖÃΪfalse

ÒýÓÃ
¼Ó¸ö±äÁ¿£¬×öÅжϣ¬ÎªFalseʱ£¬Exit



ÎÊÌâÕâ¸ö¹ý³ÌÒªÖ´Ðж೤ʱ¼ä£¬²ÅÄܸÐÖªÄãÕâ¸ö±êÖ¾!?
¶øÇÒµÚ¶þ¸ö°´Å¥µÄÏûÏ¢´«µÝ¸øÏûÏ¢¶ÓÁÐÒ²ÊÇÔÚÕâ¸ö¹ý³ÌºóµÄÊ£¬
Â¥Ö÷ÄãÕâ¸ö¹ý³Ìû˵Çå³þ£¬Î޽⣡
Èç¹ûÑ­»·µÄ»°ÔÚÀïÃæ¼Ó
Delphi(Pascal) code:

Application.ProcessMessages



Exit;


proceduce TakingÊÇÒ»¸öforÑ­»·×öijЩÊÂ,

ËäÈ»¿ÉÒÔÓÃExitÍ˳ö,  Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ­»·Àï, ÿѭ»·Ò»´Î¾ÍÅжÏÒ»´Î°É

so good

ÒýÓÃ
proceduce TakingÊÇÒ»¸öforÑ­»·×öijЩÊÂ,

ËäÈ»¿ÉÒÔÓÃExitÍ˳ö,  Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ­»·Àï, ÿѭ»·Ò»´Î¾ÍÅжÏÒ»´Î°É

Ϊʲô²»¿ÉÒÔ£¿
¿ÉÒÔÓÃwhileÌæ´úfor
»òÕßÔÚforÖеÚÒ»ÐÐÏÈÅжϴËÖµ£¬Èç²»Âú×㣬ÔòÍ˳ö

ÒýÓÃ
proceduce TakingÊÇÒ»¸öforÑ­»·×öijЩÊÂ,

  ËäÈ»¿ÉÒÔÓÃExitÍ˳ö,  Èç¹ûÓÃij¸öÖµÅжÏÊÇÐв»Í¨µÄ, ²»¿ÉÄÜÔÚÑ­»·Àï, ÿѭ»·Ò»´Î¾ÍÅжÏÒ»´


Ïà¹ØÎÊ´ð£º

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphiµ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ