Delphi Òþ²Ø´°¿Ú±íµ¥
ÎÒÒ»¿ªÊ¼ÒÔΪ£¬½«±íµ¥ÉèÖÃΪÒþ²Ø£¬¿ÉÒÔÔÚ±íµ¥´´½¨Ê¼þÖм´FormCreate(Sender:TObject)È¥ÉèÖÃ
Òò´Ë£¬ ÎÒÔÚÕâ¸öprocedure TForm.FormCreate(Sender:TObject)ÖУ¬
ÏëÓÃÒ»ÏÂÁ½ÖÖ·½Ê½ÊµÏÖ
¼´£º
µ÷ÓÃ from.Hide
»òÉèÖÃ form.Visible:=false;
È»¶ø£¬ ÁîÈ˾ÚÉ¥µÄÊÇ£¬´°¿Ú±íµ¥»¹ÊÇÏÔʾµÄ£¬Ò»µã±ä»¯¶¼Ã»ÓУ¬
¸üÁîÈ˾ÚÉ¥·¢¿ñµÄÊÇ£¬ÍøÉϲé×ÊÁÏ£¬¶¼ËµÕâôÉèÖþͿÉÒÔ
˹³ÏÍ´ÔÕ
ÔÚ²é×ÊÁÏ
ÖÕÓÚÖªµÀÁËÎÊÌâËùÔÚ£º>
ÔÀ´£¬ ÔÚFormCreateʼþÖÐÉèÖÿɼûÐÔÊÇÎÞЧµÄ£¬±ØÐëÁíдһ¸öʼþ£¬±ÈÈ簴ťʼþ£¬ÔÚÕâ¸öʼþÀÔÙÉèÖÃHide»òvisible ¾Í¿ÉÒÔÁË
¹À¼ÆÔÒò£º
FormCreate ÊÇ¶Ô±íµ¥¸÷Ïî½øÐгõʼ»¯£¬´Ëʱ±íµ¥»¹Î´½¨Á¢£¬ËùÒÔ»¹²»ÄÜ¶Ô±íµ¥ÊôÐÔ½øÐÐÉèÖã¨ËäÈ»±àÒëÆ÷²»Ìáʾ´íÎóÐÅÏ¢£©
Ïà¹ØÎĵµ£º
Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
......
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 ......
¶¯Ì¬Á´½Ó¿âÊÇÒ»¸öÄܹ»±»Ó¦ÓóÌÐòºÍÆäËüµÄDLLµ÷ÓõĹý³ÌºÍº¯ÊýµÄ¼¯ºÏÌå,ËüÀïÃæ°üº¬µÄÊǹ«¹²´úÂë»ò×ÊÔ´¡£ÓÉÓÚDLL´úÂëʹÓÃÁËÄÚ´æ¹²Ïí¼¼Êõ,ÔÚijЩµØ·½windowsÒ²¸øÁËDLLһЩ¸ü¸ßµÄȨÏÞ,Òò¶øDLLÖпÉÒÔʵÏÖһЩһ°ã³ÌÐòËù²»ÄÜʵÏֵŦÄÜ,ÈçʵÏÖwindowsµÄHOOK¡¢ISAPIµÈ¡£Í¬Ê±,DLL»¹Îª²»Í¬ÓïÑÔ¼ä´úÂë¹²ÏíÌṩÁËÒ»Ìõ·½±ãµÄ;¾¶¡£Òò¶øD ......
¿ª·¢²½Ö裺
1¡¢´´½¨ActiveX Library¹¤³Ì¡£
2¡¢´´½¨COM Object¡£
3¡¢´´½¨Type Library£¬²¢´´½¨ÏàÓ¦½Ó¿Ú¡£
4¡¢´´½¨½Ó¿Ú¶ÔÓ¦µÄº¯ÊýºÍʵÏÖ¡£
¾ßÌåÈçÏ£º
1¡¢´´½¨COM Object¡£
new|other|activeX|com object
ÔÚClass Name(±¾ÀýÀïÀàÃûÀïÌîObject£¬¿É°´×Ô¼ºÐèÒªÌîд) ÌîдÀàÃû.(Instancing:ʵÀý´´½¨·½Ê½,Threading Model:Ï ......