导出注册表.txt

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

implementation
uses registry;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var root,s,s1,s2,s3,s4,filename:string;
f:textfile;
begin
  root:='[HKEY_LOCAL_MACHINE\SOFTWARE\delphikey]';
  s:='Windows Registry Editor Version 5.00';
  s1:='"user"="sa"';
  s2:='"password"="szjz"';
  s3:='"server"="szjz2"';
  s4:='"database"="jzquery"';
  FileName:=ExtractFilePath(ParamStr(0))+'Ado.reg';
   AssignFile(f,FileName);
    Rewrite(f);
      Writeln(f, s);
      Writeln(f, '');
      Writeln(f, root);
      Writeln(f, s1);
      Writeln(f, s2);
      Writeln(f, s3);
      Writeln(f, s4);
      CloseFile(f);
end;