Delphi´úÂë»»³ÉVB´úÂë ¼±¼±
type SFPRDA=packed record
¡¡¡¡¡¡¡¡¡¡¡¡czmm:Word;¡¡¡¡¡¡¡¡¡¡¡¡//²Ù×÷ÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sqcz:array[1..8] of packed record dm:Byte; mm:Word end;¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//8¸öÊÚȨ²Ù×÷Ô±´úÂëºÍÃÜÂë¡£dm´úÂ룬mmÃÜÂë¡£
¡¡¡¡¡¡¡¡¡¡¡¡sdje:array[0..3] of packed record dz,jz:Word end;
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//4¸öʱ¶ÎµÄĬÈ϶¨ÖµºÍ¼ÇÕʽð¶î¡£dz¶¨Öµ£¬jz¼ÇÕÊ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_xffs:Byte;¡¡¡¡¡¡ //¿ª»úȱʡÏû·Ñ·½Ê½¡£0ÆÕͨ£¬1¶¨Öµ£¬2¼ÇÕÊ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_menu:Byte;¡¡¡¡¡¡ //¿ª»úȱʡ¼üÅÌ·½Ê½¡£0½ð¶î£¬1Æ·ÖÖ¡£
¡¡¡¡¡¡¡¡¡¡¡¡open_online:Byte;¡¡¡¡ //¿ª»úȱʡÔËÐз½Ê½¡£0ÍÑ»ú£¬1Áª»ú¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_jz:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐí¼ÇÕÊ£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_mu:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÆ·ÖÖÇл»£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_zk:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÍⲿÕÛ¿Û£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_qk:Byte;¡¡¡¡¡¡¡¡¡¡//1ÔÊÐíÈ¡¿î£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_glf:Byte;¡¡¡¡¡¡¡¡ //1ÔÊÐíÊäÈë¹ÜÀí·Ñ£¬0²»ÔÊÐí¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_cont:Byte;¡¡¡¡¡¡¡¡//1¶¨Öµ¼ÇÕÊÁ¬ÐøË¢¿¨·½Ê½£¬0²»Á¬Ðø¡£
¡¡¡¡¡¡¡¡¡¡¡¡ena_ord:Byte;¡¡¡¡¡¡¡¡ //1¿Û¿îÏû·ÑÏÔʾÐòÊý£¬0²»ÏÔʾ¡£
¡¡¡¡¡¡¡¡¡¡¡¡btph,syrq:Word;¡¡¡¡¡¡ //btph²¹ÌùÅúºÅ¡£syrqͬ²½ÈÕÆÚ¡£
¡¡¡¡¡¡¡¡¡¡¡¡xfjb:Byte;¡¡¡¡¡¡¡¡¡¡ //ÔÊÐíÏû·Ñ¼¶±ð¡£8λ´ÓµÍµ½¸ßÒÀ´Ë±íʾÊÇ·ñÔÊÐí¼¶±ð0µ½8µÄ¿¨Ïû·Ñ¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡//1ÔÊÐí£¬0½ûÖ¹¡£
¡¡¡¡¡¡¡¡¡¡¡¡max_xf:Word;¡¡¡¡¡¡¡¡¡¡//ÿ´Î×î´óÏû·Ñ½ð¶î¡£0²»ÏÞÖÆ¡£
¡¡¡¡¡¡¡¡¡¡¡¡max_cz:Integer;¡¡¡¡¡¡ //ÿ´Î×î´ó³äÖµ½ð¶î¡£0²»ÏÞÖÆ¡£ <
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......