DELPHI怎样读写注册表??

Question

DELPHI怎样读写注册表??请给我语句。

Answer 1

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

Answer 2

uses registryvar
  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;

Answer 3

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;
祝：身体健康，分数和答案同样重要：)

Answer 4

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;