var reg : TRegistry name : String //s是在网上邻居里的文件夹名
begin
name := 'DirName';//建立一个只读,无密码共享目录
reg := TRegistry.Create
reg.RootKey := HKEY_LOCAL_MACHINE
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\'+name,true )
reg.WriteInteger( 'Flags', 401 ) //权限:401代表为访问,258为完全访问,259为密码访问
reg.WriteInteger( 'Parm1enc', 0 ) //参数2,放置完全访问密码,已加密
reg.WriteInteger( 'Parm2enc', 0 ) //参数2,放置只读访问密码,已加密
reg.WriteString( 'Path', 'C:\MYDIR' ) //放置要共享的目录的绝对路径
reg.WriteString( 'Remark', '' )
reg.WriteInteger( 'Type', 0 )
end
上文是建立文件共享,删除共享反向操作就可以了。缺点就是要重启系统,可以ExitWindowsEx( EWX_FORCE and EWX_SHUTDOWN , 0 )来重启。
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)