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

DelphiÖж¯Ì¬Á´½Ó¿â(DLL)µÄ½¨Á¢ºÍʹÓÃ

¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øDLLÔÚ±à³ÌʱӦÓýÏΪ¹ã·º,±¾ÎĽ«½éÉÜÈçºÎÔÚ Delphi Öн¨Á¢ºÍʹÓÃDLL¡£
Ò»£®DLL ¿âÄÚ´æ¹²Ïí»úÖÆ
´ÓʹÓÃЧ¹û¿´,DLLºÍunit ºÜÏñ,ËüÃǶ¼¿ÉÒÔ±»±ðµÄ¹¤³ÌÄ£¿éËùµ÷ÓÃ,µ«¶þÕßÔÚÄÚ²¿µÄʵÏÖ»úÖÆÉÏÈ·´æÔÚ×Ųî±ð¡£Èç¹ûÒ»¸ö³ÌÐòÄ£¿éÖÐÓÃusesÓï¾äÒýÓÃÁËij¸öunit,±àÒë³ÌÐòÔÚ±àÒë¸ÃÄ£¿éʱ,±ã»áÁ¬Í¬unitÒ»Æð±àÒë,²¢°Ñ±àÒëºóµÄ¿ÉÖ´ÐдúÂëÁ´½Óµ½±¾³ÌÐòÄ£¿éÖÐ,Õâ¾ÍÊÇÒ»¸ö³ÌÐòÄ£¿éÄܹ»µ÷ÓÃËùÒýÓÃunitÖйý³ÌºÍº¯ÊýµÄÔ­Òò¡£µ±Í¬Ò»¸öunit±»¶à¸ö¹¤³ÌËùÒýÓÃʱ,Ôòÿ¸ö¹¤³ÌÖж¼º¬ÓиÃunitµÄ¿ÉÖ´ÐдúÂë,µ±º¬ÓиÃunitµÄ¶à¸ö¹¤³ÌͬʱִÐÐʱ,unitµÄ¿ÉÖ´ÐдúÂë»áËæ²»Í¬¹¤³Ì¶ø¶à´Î±»µ÷ÈëÄÚ´æ,Ôì³ÉÄÚ´æ×ÊÔ´µÄÀË·Ñ¡£DLLÔò²»Í¬,Ëü¼´Ê¹±»Ä³¸ö¹¤³Ìµ÷ÓÃ,±àÒëºóÈÔÊǶÀÁ¢µÄ,Ò²¾ÍÊÇ˵±àÒëºó,Ò»¸öDLL¿âÐγÉÒ»¸öµ¥¶ÀµÄ¿ÉÖ´ÐÐÎļþ,¶ø²»ÓëÈÎºÎÆäËüµÄ¿ÉÖ´ÐÐÎļþÁ¬½ÓÔÚÒ»Æð,Òò¶øDLL¿â²¢²»´ÓÊôÓÚij¸öÌØ¶¨µÄ¹¤³Ì,µ±¶à¸ö¹¤³Ìµ÷ÓÃͬһ¸öDLL¿âʱֻÓеÚÒ»¸ö¹¤³Ì°ÑDLL¿âµ÷ÈëÄÚ´æ,ÆäÓ๤³Ì²¢²»Öظ´µ÷Èëͬһ¸öDLL¿âµ½ÄÚ´æ,¶øÊǵ½Í¬Ò»¸ö¹²ÏíÄÚ´æÇø¶ÁÈ¡¡£²¢ÇÒ,DLLµÄÖ´ÐдúÂëÊÇÔÚ³ÌÐòÔËÐÐÆÚ¼ä¶¯Ì¬µ÷ÈëµÄ,¶ø²»ÊÇÈçunitÔÚ³ÌÐòÔËÐÐʱ¾ÍÓëÕû¸ö¹¤³ÌÒ»Æðµ÷ÈëÄÚ´æ¡£ÕâÑù±ã¿ÉÏû³ýunit´øÀ´µÄÏàͬ´úÂë¶à´¦Õ¼ÓÃÄÚ´æµÄ±×²¡¡£
¶þ DelphiÖÐDLL¿âµÄ½¨Á¢
¡¡ÔÚDelphi»·¾³ÖÐ,±àдһ¸öDLLͬ±àдһ¸öÒ»°ãµÄÓ¦ÓóÌÐò²¢Ã»ÓÐÌ«´óµÄÇø±ð¡£ÊÂʵÉÏ×÷ΪDLLÖ÷ÌåµÄDLLº¯ÊýµÄ±àд,³ýÁËÔÚÄÚ´æ¡¢×ÊÔ´µÄ¹ÜÀíÉÏÓÐËù²»Í¬Íâ,²¢²»ÐèÒªÆäËüÌØ±ðµÄÊֶΡ£
¡¡¡¡¡¡¡¡Ò»°ã¹¤³ÌÎļþµÄ¸ñʽΪ:
¡¡¡¡program¡¡¡¡¹¤³Ì±êÌâ;¡¡
¡¡¡¡uses¡¡¡¡¡¡¡¡×Ó¾ä;¡¡
¡¡¡¡³ÌÐòÌå
¡¡¡¡¶øDLLs¹¤³ÌÎļþµÄ¸ñʽΪ:
¡¡¡¡library ¹¤³Ì±êÌâ;¡¡
¡¡¡¡uses ×Ó¾ä;¡¡
¡¡¡¡exprots ×Ó¾ä;¡¡
¡¡¡¡³ÌÐòÌå
¡¡¡¡ËüÃÇÖ÷ÒªµÄÇø±ðÓÐÁ½µã:
¡¡¡¡1.Ò»°ã¹¤³ÌÎļþµÄÍ·±êÓÃprogram¹Ø¼ü×Ö,¶øDLL¹¤³ÌÎļþÍ·±êÓÃlibrary ¹Ø¼ü×Ö¡£²»Í¬µÄ¹Ø¼ü×Ö֪ͨ±àÒëÆ÷Éú³É²»Í¬µÄ¿ÉÖ´ÐÐÎļþ¡£ÓÃprogram¹Ø¼ü×ÖÉú³ÉµÄÊÇ.exeÎļþ,¶øÓÃlibrary¹Ø¼ü×ÖÉú³ÉµÄÊÇ.dllÎļþ;
¡¡¡¡2.¼ÙÈçDLLÒªÊä³ö¹©ÆäËüÓ¦ÓóÌÐòʹÓõĺ¯Êý»ò¹ý³Ì,Ôò±ØÐ뽫ÕâЩº¯Êý»ò¹ý³ÌÁÐÔÚe


Ïà¹ØÎĵµ£º

Delphi to Excel һЩ·½·¨

Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨   
  
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'  ......

Delphi²Ù×÷×¢²á±íµÄÒ»°ã²½Öè

Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......

Delphi²Ù×÷INIÎļþµÄÒ»°ã²½Öè

Delphi²Ù×÷INIÎļþ²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓiniFileµ¥Ôª£»
2£©ÉùÃ÷TiniFile¶ÔÏó£»
3£©´´½¨TiniFile¶ÔÏó£»
----------------try------------------
4£©INIÎļþ¶Áд²Ù×÷£»
--------------finally----------------
5£©ÊÍ·ÅTiniFile¶ÔÏó£»
---------------end--------------- ......

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨

DelphiÖÐʵÏÖÎļþ¿½±´µÄÈýÖÖ·½·¨
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRe ......

ÔÚDelphiÓ¦ÓóÌÐòÖÐʹÓÃDLL

ÔÚDelphiÓ¦ÓóÌÐòÖÐʹÓÃDLL
¡¡¡¡Delphi²»½ö¿Éµ÷ÓÃC£«£«²úÉúµÄDLLÄ£¿é£¬Í¬ÑùC£«£«³ÌÐòÒ²¿Éµ÷ÓÃDelphiËù²úÉúµÄDLL²¿¼þ¡£ÕâÑù½»»¥µ÷Óã¬ÎÞÐëÖØ¸´¿ª·¢£¬´ó´óËõ¶ÌÁËÉú²úÖÜÆÚ¡£ 
¡¡¡¡DelphiÓëVisualBasic¡¢VisualFoxProµÈÈí¼þÒ»Ñù£¬ÊôÓÚRAD¹¤¾ß£¨¿ìËÙÓ¦Óÿª·¢¹¤¾ß£©¡£ÊʺϿª·¢32λ»ò16λ£¯32λ»ìºÏÓ¦ÓóÌÐò¡£DelphiËùÊ¹Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ