修改注册表后，为什麽win98没有相应的变化？(100分)

各位高手：

你好，我想想问问，我用程序修改注册表后，为什麽win98没有相应的变化？

重新启动也没有变化？

将程序代码贴出来看看，可能是修改没有成功！

修改了什么?
希望有什么变化?

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
s : String;
begin
//s是在"网上邻居"看到的目录名字
s := 'Public';

//建立一个只读,无密码共享目录
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey( 'Software/Microsoft/Windows/CurrentVersion/Network/LanMan/'+ s, true );
//标志位, 访问权限
//401代表只读访问
//258代表完全访问
//259代表有密码访问
reg.WriteInteger( 'Flags', 401 );
//参数2,放置完全访问密码,已加密
reg.WriteInteger( 'Parm1enc', 0 );
//参数2,放置只读访问密码,已加密
reg.WriteInteger( 'Parm2enc', 0 );
//放置要共享的目录的绝对路径
reg.WriteString( 'Path', 'd:/public' );
//放置"备注"
reg.WriteString( 'Remark', '' );
//不明
reg.WriteInteger( 'Type', 0 );

我是说说！

..

还要家Reg.Closekey;我已经测试通过。

完整代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
s : String;
begin
//s是在"网上邻居"看到的目录名字
s := 'Public';

//建立一个只读,无密码共享目录
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey( 'Software/Microsoft/Windows/CurrentVersion/Network/LanMan/'+ s, true );
//标志位, 访问权限
//401代表只读访问
//258代表完全访问
//259代表有密码访问
reg.WriteInteger( 'Flags', 401 );
//参数2,放置完全访问密码,已加密
reg.WriteInteger( 'Parm1enc', 0 );
//参数2,放置只读访问密码,已加密
reg.WriteInteger( 'Parm2enc', 0 );
//放置要共享的目录的绝对路径
reg.WriteString( 'Path', 'd:/public' );
//放置"备注"
reg.WriteString( 'Remark', '' );
//不明
reg.WriteInteger( 'Type', 0 );
reg.closekey;
end;

对不起，会错意了......

还是不能共享啊！

以下程序已经测试通过，不过要重起计算机。可能要发消息给系统告诉
共享发生变化，可我不知道次消息。不过70分到手了. {B-)

1,2处得WINAMP 必须完全一样。否则将失败。

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
s : String;
buf:array [0..10]of byte;
begin
//s是在"网上邻居"看到的目录名字
s := 'WINAMP'; //1

//建立一个只读,无密码共享目录
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey( 'Software/Microsoft/Windows/CurrentVersion/Network/LanMan/'+ s, true );
//标志位, 访问权限
//401代表只读访问
//258代表完全访问
//259代表有密码访问
reg.WriteInteger( 'Flags', 401 );
//参数2,放置完全访问密码,已加密
reg.WriteBinaryData( 'Parm1enc', Buf,0 );
//参数2,放置只读访问密码,已加密
reg.WriteBinaryData( 'Parm2enc', Buf,0 );
//放置要共享的目录的绝对路径
reg.WriteString( 'Path', 'D:/WINAMP'); //2
//放置"备注"
reg.WriteString( 'Remark', '' );
//不明
reg.WriteInteger( 'Type', 0 );
reg.closekey;
end;

沈前卫：谢谢你的帮助，但问题还是没有解决！

希望你解决后，发电子邮件通知我！airh2o@sohu.com

给你50分意表感谢！

不要怪别人不理你，看看你自己能记住自己的帐号么？？
说说,shuoshuo,sh1,sh2……,sh8,sh9……
该结束的题自己结束吧！！！！！！