Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉϰ࣬ѧϰµÄ×ܵÃÉϿΣ¬ÒåÎñÀͶ¯Â´ó¼Ò¶¼¿íÈÝһЩ°É£¬ÒÔ×ÔÖÎΪÖ÷
Ö§³Ö
ÔÂÁÁDZˮÉÏÀ´£¬¹À¼Æ´ó¶àÊýʱºò¶¼ÔÚɾÌû£¬»Ø¸´±È½ÏÉÙ
windindanceÊÇÔªÀÏÁË£¬Ó¦¸ÃÊÚÓèÈÙÓþ´ó°æ³ÆºÅ£¬ºÇºÇ
¶¼²»ÊÇÌ«Ô³À쵀 ºÙºÙ£¬×îÔ³µÄÎÒ¼û¹ý....ÍÛ¹þ¹þ¹þ
¸¡Ôê
ÔÂÁÁMM£¬´óÃæ»ýɾÌû£¬ÄãµÄÓÅÐã°æÖ÷¿¼ºË¾Í¹ýÁË...
ÄѹÖ
¹À¼ÆÒÔÇ°µ¶¾ÍÓõÄÕâÕУ¬Ã¿´Î¿¼ºË¶¼Í¨¹ý
ÔõôÓÖ¿ªÌÖÂÛÕâ¸öÎÊÌâÁË. ºÇºÇ
ËûÃǶ¼ÊÇÓÐÄÜÁ¦µÄÈË
ÔÂÁÁ¾³£ÔÚ¡£
Ö»ÊDZȽϵ͵÷¶øÒÑ
ÔÂÁÁÿÌ춼¼û,³ýÁËÏÂÓêÌì
ÎÒ¾õµÃD°æÏÖÔڵİæÖ÷ÃÇ£¬ÌرðÊǸ÷С°æµÄ°æÖ÷ÃÇ»¹ÊǺܳÆÖ°µÄ¡£ÎÞÂÛºÎʱ¶¼ÄÜ¿´µ½ËûÃǵÄÉíÓ°£¬Ïà½ÏÒ»ÏÂÒÔÇ°µÄD°æ¸÷С°æÖ÷µÄ¡°×Ù¼£ÄÑÃÙ¡±ÊǺÜÄѵõġ£ÓÐÁ˸÷λС°æÖ÷µÄÖ§³Å£¬´ó°æÖ÷ͶµãÏÐÒ²ÊÇÓ¦¸ÃµÄ£¬ËûÃÇËùÒª×öµÄÖ÷ÒªÊÇ·Å¿ªºÍÖ§³Ö¡£Èç¹ûÊÂʶ¼µÃ´ó°æÖ÷³öÃ棬·´µ¹ÏԵôó°æÖ÷ÓÐЩ²»³ÆÖ°ÁË¡£
ÁÁÃû¹ÊÇÄܼûµ½¼¸´ÎµÄ£¬
windindance ȷʵºÜÉÙ¼û
up
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃ溯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖÇ°±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
ʱ¼ä¿Ø¼þ 2¸ö
COMBOBOX¿Ø¼þÁ½¸ö£¨COMBOBOX1¶ÔÓ¦EDIT1,COMBOBOX2¶ÔÓ¦EDIT2£©
EDIT¿Ø¼þ2¸ö
DBGrid¿Ø¼þºÍÊý¾Ý¿â±í¸÷1¸ö
¡°²éÕÒ¡±°´¼ü1¸ö
ÈçºÎʵÏÖµã»÷¡°²éÕÒ¡±ºó£¬ÏÈ°´Ê±¼ä¿Ø¼þ×î´óʱ¼äºÍ×îСʱ¼äÅÐ ......