怎样用delphi在注册表中追加一个文件夹，(10分)

怎样用delphi在注册表中追加一个文件夹，

delphi在注册表先定义一个变量ARegistry
var ARegistry::TRegistry;
然后在程序中
ARegistry:=TRegistry.Create;
ARegistry.RootKey:=HKEY_LOCAL_MACHINE; //确定根健
If ARegistry.OpenKey('SoftWare/nslglDB',true) and (ARegistry.ReadString('tip')='') then
ARegistry.WriteString('tip','0');
//判断此文件夹是否在，否则添加一个[]

追加一个文件夹是什么意思啊！是创建键吧
{ 注意应在USES语句中包含Registry }
procedure TForm1.Button1Click(Sender: TObject);
var
registerTemp : TRegistry;
begin
registerTemp := TRegistry.Create; //建立一个Registry实例
with registerTemp do
begin
RootKey:=HKEY_LOCAL_MACHINE;//设置根键值为HKEY_LOCAL_MACHINE
if OpenKey('Software/ODBC/ODBC.INI/ODBC Data Sources',True) then
begin //注册一个DSN名称
WriteString( 'MyAccess', 'Microsoft Access Driver (*.mdb)' );
end
else
begin//创建键值失败
exit;
end;
CloseKey;

假如software文件没有，而我现在要在software下追加一个主键lzg microsoft access (*.mdb),
现在是怎样新建一个software文件夹

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1018713

OpenKey('SoftWare/nslglDB',true) 当openkey的参数为true时可以自动建立
delphi在注册表先定义一个变量ARegistry
var ARegistry::TRegistry;
然后在程序中
ARegistry:=TRegistry.Create;
ARegistry.RootKey:=HKEY_LOCAL_MACHINE; //确定根健
ARegistry.OpenKey('SoftWare/lzg microsoft access ',true) ；
//这样既可以了，
//判断此文件夹是否在，否则添加一个[]