我使用ADO连接数据库,希望将ADOConnection中的ConnectionString中的信息存储到注册表中,请问如何能将其中的信息保存在注册表中???????
解决方案 »
- 模态窗体关闭问题,大家救救急!
- C语言必成Delphi
- 怎样给缓冲区加锁?
- 我用Delphi想做关于数据库(Oracle)的Web应用,查了下资料,WebBroker,Websnap,IntraWeb都可以实现,不知用什么好?哪位能详细说明一下
- 三层结构,客户端,ClientDataSet放在DATEMODEL中,但是在窗体上执行数据操作时,不能进行?急~~~~~~~
- 关于数据表的问题!(在线等...)
- 请问网络蚂蚁中的……
- 怎么给分???
- [300'求解!]**HELP**关于VB+ACCESS、嵌套查询的问题*********。
- delphi6的邦助也会发神精?
- 给分了!!
- duxbin 近来接分~~~~~~~~~~~~~~~~~~~~~~~
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry; // 记得要加入这个红色的。
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
Const
FPath = '\Software\Microsoft\Office\8.0\Word\InstallRoot';
FKey = 'Path';
FMyPath = '\Software\3hSoft';
FMyKey = 'MyData';
Var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
If Reg.OpenKey(FPath, False) then
ShowMessage(Reg.ReadString(FKey)); // 读出的 WinWord 的路径就显示出来了。
Reg.CreateKey(FMyPath); // 创建我们的主键
Reg.OpenKey(FMyPath, True); // 进入我们自己的主键中
Reg.WriteString(FMyKey, 'This is a registry operation test program.');
// 写进键值。
finally
Reg.Free; // 用 Try..Finally 结构确保 REG 变量能够释放。
end;
end;
end.