刚刚试过,新出炉的!
procedure TForm1.FormCreate(Sender: TObject);
var
reg : TRegistry;
s : String;
begin
//s是在"网上邻居"看到的目录名字
s := 'Rainy';
//建立一个只读,无密码共享目录
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', 'C:/MSSQL' )
//放置"备注"
reg.WriteString( 'Remark', '' )
//不明
reg.WriteInteger( 'Type', 0 )
//重启系统
ExitWindowsEx( EWX_FORCE and EWX_SHUTDOWN , 0 );
end;
