Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - ³Ð§@½g |
Jade <fortek@ms8.hinet.net>u wrote:
§Ú¥Î RegisterWindowMessage µù¥U¤F¤@Ó°T®§, ¦ý«o¤£ª¾¹D¦p¦ó¦b Delphi ¤¤ÄæºI, ÁÙ¦³¦p¦óµ{¦¡µ²§ô®É¥hµù®ø³oÓ°T®§
³o¨Çµù¥Uªº°T®§¦b Windows 95 µ²§ô«á·|¦Û°Ê®ø¥¢, ¤£»Ýnµù¾P.
¥t¥~. ³oÓµù¥Uªº°T®§½s¸¹·|¤@ª½ºû«ù¨ì Windows µ²§ô. §Y¨Ï app1..appX ³£µ²§ô¤F, ¦A¥H¥t¤@¤ä AppN µù¥U, ¥un¦r¦ê¬Û¦P, ¶Ç¦^ªºµù¥U°T®§½s¸¹¤]ÁÙ¬O¤@¼Ë. ¦ý MS-Windows «·s±Ò°Ê¤§«á,³oÓÈ¥i¯à´N»P¤W¦¸¤£¦P¤F, ¦ýApp1..AppN©Ò±oªº°T®§½s¸¹ÁÙ¬O·|¤@¼Ë.
°£¤F DDE, OLE µ¥¤è¦¡¤§¥~, ¨â¤äÀ³¥Îµ{¦¡¤]¥i¥H³z¹L¤¬¬Û¶Ç°e°T®§¨Ó·¾³q¦X§@, ¤ñ°_ DDE »P OLE ©Òn¤F¸Ñªº§Þ³N»P¹ê§@²Ó¸`, ¹ï©ó¤¬°ÊÃö«Y²³æªº¨â¤äÀ³¥Îµ{¦¡¦Ó¨¥, ³oºØ¤¬³q´Ú¦±ªº¤è¦¡Ë¤£¥¢¬°¤@ºØÂ²©úªºªk¤l.
§YµMn°e¥X°T®§, ´N»Ýn¤@Ó©¼¦¹¬ù©w»{¦Pªº°T®§½s¸¹, ¥H«K¯à°÷¥H¤§ÃѧO-- ©ó¬O, °£¤FWindows¼Ð·Çªº¨º¨Ç°T®§½s¸¹¤§¥~, ´N¦³¥²n¥t¥~©w¸q¤@Ó (¤@¨Ç)°T®§, ¦ý¬O½Ð·Q¤@¤U, §Oªºµ{¦¡¥i¯à¤]·|³o»ò§@,¨º½s¸¹¸U¤@«ÂФF«ç»ò¿ì©O? ¹ï¦¹, ¨t²Î´£¨Ñ¤F¤@Ó RegisterWindowMessage()¨ç¼Æ, ³oÓ¨ç¼Æ·|¦^¶Ç¤@Ó¦w¥þªºÁÙ¨S¦³¥Î¹Lªº°T®§½s¸¹.
¦n¤F, ²{¦b§Ú̦³¤F¤@Ó½s¸¹¤F, ¦ý¥t¥~¤@¤äÀ³¥Îµ{¦¡«ç»òª¾¹D³oÓ°T®§½s¸¹, ¥H«K¦b°»´ú¦¬¨ì³oÓ½s¸¹®É§@¥X¹w´Áªº¤ÏÀ³©O? ³oÓ°ÝÃDªºµª®×¤]¦b RegisterWindowMessage(), ¥¦¥u¦³¤@ӶǤJ¦r¦ê«ü¼Ðªº¤Þ¼Æ, ¦pªG§OªºÀ³¥Îµ{¦¡¤§«e¤w¸g¥Î¬Û¦Pªº¦r¦êµn°O¹L, ¥¦´N¶Ç¦^¨ºÓµn°O¹Lªº¬Û¦P°T®§½s¸¹¦^¨Ó.
´«¥y¸Ü»¡, ¨â¤äµ{¦¡¥un¥Î¬Û¦Pªº¦r¦ê¦V¨t²În¨Dµù¥U°T®§½s¸¹, ¨t²Î«K·|µ¹¨âªÌ¤@Ó¬Û¦Pªº¦w¥þ°T®§½s¸¹. ¦Ü¦¹, §Ú̸ѨM¤F°T®§½s¸¹ªº°ÝÃD.
±µ¤U¨Ón°e¥X°T®§¤F, ¥i¬O, n°eµ¹½Ö©O? ¶â, M$ªº§@ªk¬O: ²Ä¤@¦¸¥ý¥Î¼s¼½ªº, ¹ï¨C¤@Ӯ౤W popup µøµ¡³£³qª¾¤@¦¸, ¨Ã¥B¦b°T®§ªºµu°Ñ¼Æ(wParam)¤¤µù©úµo°TªÌªº Handle È, ¨ü°TªÌ¦]¦¹¥i¥H±oª¾½Ö¬O¦X§@¹ï¶H,¦P®É, ¨ü°TªÌ¤]·|¦^°e¤@Ó°T®§ªí¥Ü¦¬¨ì, ¦P¼Ëªº, °T®§ªºµu°Ñ¼Æ¤]·|µù©ú¦Û¤vªºHandle, ©ó¬O, ¦X§@ªº¨âºÝ´N³£ª¾¹D¤F©¼¦¹ªºHandle. ´N¤£¦A¥Î¥þ±¼s¼½³oºØ loading «Ü«ªº¤è¦¡, ¦Ó¥i¥Hª½±µµo¸Üµ¹¹ï¤è¤F.
¦n·¥¤F, ¥Î Delphi «ç»ò¼g©O?
¤j®a¥i¯à³£ª¾¹D¤F, ¦b Delphi Äd°T®§®É¥i¥H¹³³o»ò¼g:
procedure wmXXX(var Message: TMessage); message wm_XXX;
«Ü¥i±¤¦b³oùجO¦æ¤£³qªº, ¦]¬°¬ù©wªº°T®§½s¸¹¨Ã¤£¬O±`¼Æ, ¦Ó¬O¦bµ{¦¡°õ¦æ®É¤~¥Ñ¨t²Î¬£µo¨M©wªº.
¦]¦¹, »Ýn¦A©¹¤W´å¤@ÂIªº¦a¤è°»´ú¬O§_»P§Ú̬ù©w¦nªº°T®§½s¸¹¬Û¾D¹J.§Ú¼g¤F¤@Ó¥éMSDN¤WÃþ¦ü½d¨Òªºµ{¦¡. ¬O±N¤§¹ê§@©ó WndProc ¤¤. (©ÎªÌ¤]¥i¥H¥Î Application.OnMessage ¸Õ¸Õ(³oÂI§Ú¨S¦³¹êÃÒ¹L))
¤U¸ü¸Óµ{¦¡ÀÉ®×(TWinApp.zip).
¹F´¼¡D¤@¤E¤E¤»¡D¤Q¤@¤ë
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |