DELPHI怎样读写注册表??

DELPHI怎样读写注册表??请给我语句。 问题点数：20、回复次数：6Top

1 楼zfpcb（我是你的传说）回复于 2002-11-25 11:51:25 得分 2

uses   registry  
   
  procedure   xxx  
  var  
      reg   :   Tregistry;  
  begin  
      reg   :=   TRegistry.create;  
      reg.//很多的东西，你就可以看帮助了  
  end;Top

2 楼zsy_good（只要坚定不移的走下去，那一定会成功）回复于 2002-11-25 11:52:46 得分 5

uses   registry  
   
  var  
      reg:   TRegistry;  
      bData   :   array[   0..0   ]   of   byte;  
      DrvPath   :   string;  
  begin  
      reg   :=   TRegistry.Create;  
   
   
   
      reg.RootKey   :=   HKEY_LOCAL_MACHINE;  
      if   reg.OpenKey('SOFTWARE\ODBC\ODBC.INI\'+AODBCName,True)   then  
          begin  
              reg.writestring('Database',ADataBaseName);  
              reg.writestring('Driver','sqlsrv32.dll');  
              reg.writestring('Server',ASqlServerName);  
              reg.writestring('Description',ADescription);  
              reg.writestring('LastUser',username);  
          end;  
          if     reg.OpenKey('\SOFTWARE\ODBC\ODBC.INI\ODBC   Data   Sources\',false)   then  
          begin  
              reg.writestring(AODBCName,'SQL   Server');  
              result   :=   True;  
          end  
          else  
              result   :=   false;  
          reg.closekey;  
          reg.free;Top

3 楼InvidentXp（InvidentXp）回复于 2002-11-26 17:12:57 得分 1

TRegistry   看帮助  
  Top

4 楼ghyghost（爱国人士-许愿池里的希腊老石头）回复于 2002-11-26 17:20:58 得分 6

procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
  reg:=tregistry.create;  
  reg.RootKey:=hkey_users;  
  reg.OpenKey('S-1-5-21-329068152-484763869-1343024091-500\Software\Microsoft\Internet   Explorer\Main',true);  
  reg.WriteString('Start   Page',edit1.text);  
  reg.free;  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
   
  begin  
  reg:=tregistry.create;  
  reg.RootKey:=hkey_users;  
  reg.OpenKey('S-1-5-21-329068152-484763869-1343024091-500\Software\Microsoft\Internet   Explorer\Main',true);  
  edit1.text:=reg.ReadString('Start   Page');  
  reg.free;  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
  edit1.text:='您想要的网址1';  
  end;  
   
  procedure   TForm1.Button3Click(Sender:   TObject);  
  begin  
  edit1.text:='您想要的网址2';  
  end;  
   
   
  祝：身体健康，分数和答案同样重要：)Top

5 楼yxlab（）回复于 2002-11-26 17:21:55 得分 1

up  
  Top

6 楼jackie168（http://soft.eastrise.net）回复于 2002-11-27 08:38:19 得分 5

uses   Registry  
   
  假如你的程序是project1.exe，那麼  
  procedure   TForm1.FormCreate(Sender:   TObject);  
  var  
      myReg:TRegistry;  
  begin  
      myReg:=TRegistry.Create;  
      myReg.RootKey:=HKEY_LOCAL_MACHINE;  
      myReg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\Run',True);  
      myReg.WriteString('Project',ExtractFilePath(Application.ExeName)+'Project1.exe');  
      myReg.CloseKey;  
      myReg.Free;  
  end;  
  Top

相关问题

• software
• reg
• writestring
• tregistry
• openkey
• odbc
• begin
• create
• true

• 帖主：itk
• zfpcb
• zsy_good
• InvidentXp
• ghyghost
• yxlab
• jackie168

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载