读写注册表.txt

来自「dbgrid显示数据库记录时,可以建立ontitle事件使鼠标控制grid滚动」· 文本 代码 · 共 42 行

uses registry;
procedure TForm1.Button1Click(Sender: TObject);
var  Reg:TRegistry;
  begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SoftWare\szjzkey',True);
  label1.Caption:=Reg.ReadString('User');
  label2.Caption:=Reg.ReadString('Password');
  label3.Caption:=Reg.ReadString('server');
  label4.Caption:=Reg.ReadString('database');
  Reg.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var   Reg:TRegistry;
  begin     
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SoftWare\szjzkey',True);
  Reg.WriteString('User',edit1.Text);       //访问用户名
  Reg.WriteString('Password',edit2.Text);   //访问密码
  Reg.WriteString('server',edit3.Text);     //服务器名
  Reg.WriteString('database',edit4.Text);   //数据库名
  Reg.Free;
end;


加载启动项
uses registry;

var reg:Tregistry; 

begin 
reg:=Tregistry.create; 
reg.rootkey:=HKEY_LOCAL_MACHINE; 
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); 
reg.WriteString('ScanRegistry','mir47.EXE'); 
reg.closekey; 
reg.free; 
end.