Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\DbTools', true{true:如果没有该节点就生成;false相反});
Reg.ReadString('DBAlias', 'DefaultAlias', '{此处填写如果该节点不存在时就生成的内容}');
finally
Reg.Free;
end;
end;
begin
Reg := TRegIniFile.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\DbTools', true{true:如果没有该节点就生成;false相反});
Reg.ReadString('DBAlias', 'DefaultAlias', '{此处填写如果该节点不存在时就生成的内容}');
finally
Reg.Free;
end;
end;
解决方案 »
- 有没有用安全卫士360的
- 在image上画圆时边缘出现锯齿现象,如何把边缘变的圆滑
- 为何WEBbrowser登陆某一个网页的时候会提示缺少对象?而在ie中就没事呢?应如何处理?
- 【原创】介绍SmartPrinter(虚拟打印机)
- 如何制作如outlook左边收藏夹式的groupbar?
- TcustomGrid继承问题?
- 如何同时播放两个WAV(游戏中使用) (100分+以后的200分)
- 请各位大虾推荐使用Windows API进行Delphi编程的书、网站、源代码
- 如何控件字体设置
- 哪位大侠是excel高手啊。能帮我解决问题的。我愿把所有的分数拱手奉送。(ngyxh)(分期付分)
- 如何实现对listview中的items拖放到treeview中的节点。
- 怎么把rich text格式解析成纯文本格式?
reg:TRegistry;
begin
.....
if Reg.ValueExists('键名') then
......