📄 导出注册表.txt
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -