µçÄÔ°®ºÃÕßÖ®¼Ò

DelphiµÄ×¢²á±í²Ù×÷(3)

ʱ¼ä:2013-02-15 21:06À´Ô´:δ֪ ×÷Õß:ÐÜèÊñÊò µã»÷: ´Î
Îå¡¢¼üֵά»¤ ³ýÁËÔÚ×¢²á±íÖжÁÈ ¢´æ´¢Í⣬³ÌÐò¿ÉÄÜ»¹ÐèÒªÔö¼ÓÖ÷¼ü¡¢É¾³ýÖ÷¼ü¡¢Ö÷¼ü¸ÄÃû¡¢Êý¾ÝÖµ¸ÄÃûµÈ¡£ 1.´´½¨ÐÂÖ÷¼ü£ºfunction CreateKey(const Key: string): Boolean¡£ Key¼´ÎªÖ÷¼üÃû£¬·µ»ØÖµTrue±íʾ²Ù×÷³É¹¦

¡¡¡¡Îå¡¢¼üֵά»¤
¡¡¡¡³ýÁËÔÚ×¢²á±íÖжÁÈ¡¡¢´æ´¢Í⣬³ÌÐò¿ÉÄÜ»¹ÐèÒªÔö¼ÓÖ÷¼ü¡¢É¾³ýÖ÷¼ü¡¢Ö÷¼ü¸ÄÃû¡¢Êý¾ÝÖµ¸ÄÃûµÈ¡£
 
¡¡¡¡1.´´½¨ÐÂÖ÷¼ü£ºfunction CreateKey(const Key: string): Boolean¡£
  ¡¡¡¡Key¼´ÎªÖ÷¼üÃû£¬·µ»ØÖµTrue±íʾ²Ù×÷³É¹¦¡£
 
¡¡¡¡2.ɾ³ýÖ÷¼ü£ºfunction DeleteKey(const Key: string): Boolean¡£
  ¡¡¡¡Key¼´ÎªÖ÷¼üÃû£¬·µ»ØÖµTrue±íʾ²Ù×÷³É¹¦¡£
     ɾ³ý¼üÖµ£ºfunction DeleteValue(const Key : string) : Boolean;
    ʹÓÃDeleteKey·½·¨É¾³ýÖ¸¶¨µÄ¹Ø¼ü×Öʱ£¬Èç¹û±»É¾³ýµÄ¹Ø¼ü×ÖÔÚÈκβã´ÎÓÐ×ӹؼü×Ö£¬ËüÃǽ«Í¬Ê±±»É¾³ý¡£ÉÏÃæÁ½¸ö·½·¨ÔÚÖ´ÐÐʱ£¬Èç¹ûɾ³ý³É¹¦£¬Ôò·µ»ØTrue£»·ñÔò·µ»ØFalse¡£

¡¡¡¡3.¸´ÖÆ»òÒƶ¯Ö÷¼ü£ºprocedure MoveKey(const OldName, NewName: string; Delete: Boolean)¡£
¡¡  ¡¡OldName¡¢NewName·Ö±ð±íʾԴÖ÷¼üÃûºÍÄ¿±êÖ÷¼üÃû£»Delete±íʾÊÇ·ñɾ³ýÔ´Ö÷¼ü£¬True±íʾɾ³ý£¬False±íʾ±£Áô¡£
¡¡¡¡  ¸´ÖÆ»òÒƶ¯Ò»¸öÖ÷¼ü½«¸´ÖÆ»òÒƶ¯¸Ã×Ó¼üϵÄËùÓÐÊý¾ÝÖµºÍ×Ó¼üÄÚÈÝ¡£
 
¡¡¡¡4.ÅжÏÖ¸¶¨Ö÷¼üÊÇ·ñ´æÔÚ£¬ÆäÏÂÊÇ·ñÓÐÖ÷¼ü£¬²¢»ñÈ¡Ö÷¼üÃû³Æ¡£
¡¡ 
    KeyExistsÓÃÓÚÅжÏÖ¸¶¨Ö÷¼üÊÇ·ñ´æÔÚ£º
¡¡¡¡function KeyExists(const Key: string): Boolean;//·µ»ØֵΪTrue±íʾÖ÷¼ü´æÔÚ¡£
¡¡¡¡  HasSubKeysÓÃÓÚÅжÏÖ¸¶¨Ö÷¼üÏÂÊÇ·ñÓÐ×Ó¼ü£ºfunction HasSubKeys: Boolean;
¡¡  ¡¡·µ»ØֵΪTrue±íʾÖ÷¼üÏÂÓÐ×Ó¼ü¡£
  ¡¡
    GetKeyNamesÓÃÓÚ»ñÈ¡×Ó¼üÃû³Æ£º
    procedure GetKeyNames(Strings: TStrings);
  ¡¡  StringsÓÃÓÚ·µ»Øµ±Ç°Ö÷¼üϸ÷×Ó¼üµÄÃû³Æ¡£
 
¡¡¡¡5.»ñÈ¡Ö÷¼üϵÄÊý¾ÝÖµÃû³Æ£º
    procedure GetValueNames(Strings: TStrings)¡£
¡¡¡¡  StringsÓÃÓÚ·µ»Øµ±Ç°Ö÷¼üϸ÷ÊýÖµÃû³Æ¡£
¡¡  ¡¡ÈçÒª»ñÈ¡µ±Ç°ÏµÍ³ÖеIJ¦ºÅÁ¬½ÓÃû³Æ£¬¿ÉÀûÓûñÈ¡Ö÷¼üHKEY_USERS\.DEFAULT\RemoteAccess\AddressesϵÄÊýÖµÃû³ÆµÄ·½·¨À´½øÐС£
 
¡¡¡¡6.ÅжÏÊýÖµÃû³Æ´æÔÚ¡¢ÊýÖµÃû³Æ¸ÄÃû¡£
¡¡¡¡ValueExistsÓÃÓÚÅжÏÊýÖµÃû³ÆÊÇ·ñ´æÔÚ£º
¡¡¡¡function ValueExists(const Name: string): Boolean;
  ¡¡¡¡·µ»ØֵΪTrue±íʾÊýÖµÃû³Æ´æÔÚ¡£
¡¡
  ¡¡RenameValueÓÃÓÚÊýÖµÃû³Æ¸ÄÃû£º
¡¡¡¡procedure RenameValue(const OldName, NewName: string);
 
  ¡¡ÒÔÉÏÊÇ×¢²á±í³£ÓòÙ×÷Ëù¶ÔÓ¦µÄTRegistryµÄ·½·¨ºÍÊôÐÔ£¬ÆäËü·½·¨ºÍÊôÐÔÇë²Î¼ûDelphiÁª»ú°ïÖúÎļþ¡£
    ÒÔÉϳÌÐòÔÚPWIN 98£«Delphi 3.0ϵ÷ÊÔͨ¹ý¡£
 
    Áù¡¢×¢²á±íÖжԱà³Ì³£Óõļ¸ÏODBC/BDE/Internet/Windows£©  
  
    1¡¢¹ØÓÚ ODBC ºÍ DBE£º
    HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC File DSN
      ÓÐÄãµÄ COMPUTER ÉÏ ODBC µÄ FILE DSN µÄ´æ·ÅµÄȱʡ·¾¶£¬Èç¹ûÄ㽨Á¢ FILE DSN µÄʱºòÑ¡ÔñÁË×Ô¼ºµÄ·¾¶£¬ÄÇÄã¾ÍµÃСÐÄÁË£¬ÏµÍ³²»»áΪÄã±£´æ¸Ã·¾¶£¬ÄãµÄ×Ô¼º¼ÇסËü£¬£º-£¨£»
   
    HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers
      ÁгöÁËÄãµÄËùÓÐ ODBC DRIVER£¬¹ØÓÚ ODBC DRIVER µÄÃû³Æ£¬ÓÐÒ»¸ö±È½ÏÓÐȤµÄµØ·½£º²»Öª´ó¼ÒÓÖûÓÐÓÃTSession.GetDriverNames È¡¹ýϵͳ ODBC DRIVER Ãû£¬ÎÒÓõÄʱºò DRIVER Ãû×ֻÄÜÈ¡
µ½ 31 ¸ö×Ö·û£¬Ê£Ïµľͱ»½ØµôÁË£¬²»ÖªÊÇÎÒ±à³ÌÓÐÎÊÌ⻹ÊÇ DELPHI µÄ BUG£»
    HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI
      ÁгöÁËÄãµÄËùÓÐ ODBC DRIVER µÄÏêϸÅäÖã»
    HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI
      ÁгöÁËÄãµÄËùÓÐ SYSTEM DSN ÒÔ¼°ËüÃǵÄÅäÖÃÇé¿ö£»
    HKEY_CURRENT_USER\Software\ODBC\ODBC.INI
      ÁгöÁËÄãµÄËùÓÐ USER DSN ÒÔ¼°ËüÃǵÄÅäÖÃÇé¿ö£»
    ÖªµÀÁËÒÔÉϵļ¸¸öÖ÷¼üºó£¬Äã¾Í¿ÉÒÔÔÚ³ÌÐòÖÐʵÏÖ %SystemRoot%\system32\odbcad32.exe µÄ´ó²¿·Ö¹¦ÄÜÁË¡£
    HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine
      ÏÂÃæÊÇÄãµÄ DBE µÄÅäÖã¬ÎҾͲ»¶à˵ÁË£¬´ó¼ÒÄÃËüºÍ BDE Óû§½çÃæÒ»±È½Ï¾ÍÃ÷°×ÁË¡£
 
    2¡¢¹ØÓÚ INTERNET ±à³Ì£º
    HKEY_CLASSES_ROOT\htmlfile
      ϵͳ¶Ô HTMLFILE µÄ´¦Àí¶¨Ò壻
    HKEY_LOCAL_MACHINE\SOFTWARE\Clients
      INTERNET Option ÖÐ INTERNET PROGRAM µÄÉ趨£¬ÓÈÆäÖØÒªµÄÊÇÆäÖеÄ
    HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail¡£
    3¡¢¹ØÓÚ WINDOWS ±à³Ì
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
      ÿ´Î¸ÃÓû§Æô¶¯ WINDOWS ±Ø¶¨Ö´ÐÐÏÂÃæµÄÃüÁÈç¹ûÓУ¬µ±È»Ò»°ã¶¼ÓУ©£¬
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Runonce
      ¸ÃÓû§Æô¶¯ WINDOWS ±Ø¶¨Ö´ÐÐÏÂÃæµÄÃüÁÈç¹ûÓУ©£¬Ö´ÐÐÍêºóÓÉ WINDOWS °ÑÃüÁîɾµô£¬°²×°Èí¼þµÄʱºòÌرðÓÐÓã¬
    ÒÔÉÏÁ½´¦ÊÇÕë¶ÔÌض¨Óû§µÄ£¬ÔÚHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion Ï»¹ÓÐÀàËƵĵط½£¬ÊÇÕë¶ÔËùÓÐÓû§µÄ£¬ÎҾͲ»ÂÞàÂÁË¡£
(ÔðÈα༭£ºÐÜèÊñÊò)

Ö¯ÃζþάÂëÉú³ÉÆ÷
¶¥Ò»ÏÂ
(1)
100%
²ÈÒ»ÏÂ
(0)
0%
------·Ö¸ôÏß----------------------------
·¢±íÆÀÂÛ
Çë×Ô¾õ×ñÊØ»¥ÁªÍøÏà¹ØµÄÕþ²ß·¨¹æ£¬ÑϽû·¢²¼É«Çé¡¢±©Á¦¡¢·´¶¯µÄÑÔÂÛ¡£
ÆÀ¼Û:
񡀂:
Óû§Ãû: ÑéÖ¤Âë:µã»÷ÎÒ¸ü»»Í¼Æ¬