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

ÔÚDelphi³ÌÐòÖвÙ×÷×¢²á±í(ת)

   32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æȡע²á±íÎļþÖеÄÐÅÏ¢¡£     
  ¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó  
   
  ¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry   :=   TRegistry.Create£»  
   
  ¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏ󡣶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£  
   
  ¡¡¡¡¶þ¡¢Ö¸¶¨Òª²Ù×÷µÄ¼ü  
   
  ¡¡¡¡²Ù×÷×¢²á±íʱ£¬Ê×ÏÈÓ¦Ö¸¶¨²Ù×÷µÄÖ÷¼ü£ºÏȸøÊôÐÔRootKey¸³ÖµÒÔÖ¸¶¨¸ù¼ü£¬È»ºóÓ÷½·¨OpenKeyÀ´Ö¸¶¨Òª²Ù×÷µÄÖ÷¼üÃû¡£  
   
  ¡¡¡¡1.Ö¸¶¨¸ù¼ü(RootKey)¡£  
   
  ¡¡¡¡¸ù¼üÊÇ×¢²á±íµÄÈë¿Ú£¬Ò²×¢²á±íÐÅÏ¢µÄ·ÖÀ࣬ÆäÖµ¿ÉΪ£º  
   
  ¡¡¡¡HKEY-CLASSES-ROOT£º´æ´¢Õû¸öϵͳ¶ÔÏóÀàÐÅÏ¢£¬ÈçActiveX¶ÔÏó×¢²á¡¢Îļþ¹ØÁªµÈÐÅÏ¢¡£  
   
  ¡¡¡¡HKEY-CURRENT-USER£º´æ´¢µ±Ç°Óû§µÄÅäÖÃÐÅÏ¢¡£ÎªÊôÐÔRootKeyµÄĬÈÏÖµ¡£  
   
  ¡¡¡¡HKEY-LOCAL-MACHINE£º´æ´¢µ±Ç°ÏµÍ³µÄÈíÓ²¼þÅäÖÃÐÅÏ¢¡£Ó¦ÓóÌÐò×Ô¼ºµÄÐÅÏ¢¿ÉÒÔ´æ´¢Ôڸøù¼üÏ¡£  
   
  ¡¡¡¡HKEY-USERS£º´æ´¢ËùÓÐÓû§Í¨ÓõÄÅäÖÃÐÅÏ¢¡£  
   
  ¡¡¡¡»¹¿ÉÒÔÊÇHKEY-CURRENT-CONFIG¡¢HKEY-DYN-DATA¡£  
   
  ¡¡¡¡2.Ö¸¶¨Òª²Ù×÷µÄÖ÷¼ü¡£  
   
  ¡¡¡¡Function   OpenKey(const   Key:   string;   CanCreate:   Boolean):   Boolean;  
   
  ¡¡¡¡Key£ºÖ÷¼üÃû£¬ÊǼüÃûÈ«ÃûÖгýÈ¥¸ù¼üµÄ²¿·Ö£¬ÈçSoftware¡£  
   
  ¡¡¡¡CanCreate£ºÔÚÖ¸¶¨µÄÖ÷¼üÃû²»´æÔÚʱ£¬ÊÇ·ñÔÊÐí´´½¨¸ÃÖ÷¼ü£¬True±íʾÔÊÐí¡£  
   
  ¡¡¡¡·µ»ØÖµTrue±íʾ²Ù×÷³É¹¦¡£  
   
  ¡¡¡¡3.¹Ø±Õµ±Ç°Ö÷¼ü¡£  
   
  ¡¡¡¡ÔÚ¶ÁÈ¡»ò´æ´¢ÐÅÏ¢Ö®ºó£¬Ó¦¼°Ê±½«¹Ø±Õµ±Ç°Ö÷¼ü£ºprocedure   CloseKey¡£  
   
  ¡¡¡¡Èý¡¢´Ó×¢²á±íÖжÁÈ¡ÐÅÏ¢  
   
  ¡¡¡¡ReadϵÁз½·¨´Ó×¢²á±í¶ÁÈ¡Ö¸¶


Ïà¹ØÎĵµ£º

DelphiÀàÐÍת»»


Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û  
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ  
Round ×ª»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ  
Trunc ×ª»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ  
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö  
IntToStr ½«Êýֵת»»Îª×Ö· ......

delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ

delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
×÷Õß:seeker ÈÕÆÚ:2009-04-26
1£º{=====================´ò¿ª=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......

delphiÖйØÓÚ×Ö·û´®Êý×éµÄÒ»¸öСBUG

¿´ÈçÏ´úÂ룺
var
   buffer:array [0..6] of char;
begin
    buffer:='delphi';
end;
±àÒëͨ¹ý
ÔÙ¿´ÈçÏ´úÂ룺
var
   buffer:array [1..7] of char;
begin
    buffer:='delphi';
end;
±àÒë´íÎó£º
Incompatible types: 'Array' and 'String'
Õæ²»ÖªµÀ ......

ÔΣ¬delphi 7 ÓÐÁ½¸ö°æ±¾µÄ SelectDirectory

ÒÔÇ°Óùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬Ô­À´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
  var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ