说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi中实现对WIN9X应用程序使用权限的设置

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi中实现对WIN9X应用程序使用权限的设置

在学校机房的管理中

让老师和机房管理人员头痛的一个问题是

学生不按照老师的要求完成本节课的内容

而在玩游戏或运行一些非法程序(若大一个机房靠一两个教师是难与控制学生的)。

本人经过对策略编辑器的分析,与及对注册表的反复推敲,找出了WIN9X中控制对未授权用运行程序的限制,希望能对你有所帮助。

原理:在注册表中有一个关键字('Hkey_current_usersoftwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'),当此关键字存在,且此关键字中有一个二进制数(restrictrun),当把二进制数的值为设置为1时,表明可限制当前用使用权限,在注册表中还不一关键字('softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'),此关键字中,存放有字符串值,字符串的值为授权可以使用的程序名(注、此名字只能是程序名,不能含路径),字符串名字可按数值序列新建,在WIN9X中,你只需要通过

“Regedit.exe”程序添加('softwaremicrosoftwindowscurrentversionpoliciesexplorer')关键字,然后在添加('softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun')关键字,在此关键字中添加相应的程序名就可以设置WIN9X中应用程序的使用权限。

在Delphi 实现

步骤:

1、新建一个窗口,在窗口中加入一个BUTTON,名字为BUTTON1功能为设置使用在WIN9X程序权限。在BUTTON1click中加入如下代码。

procedure TForm1. BUTTON1 Click(Sender: TObject);

var

myReg:TRegistry;

i:integer;

begin

myreg:=tRegistry.Create ;

myreg.RootKey:=HKEY_CURRENT_USER;

myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorer'

true);//如果没有这个关键字则新建并打开。

myreg.writeinteger('restrictrun'

1);//把restrictrun的值设置为1。

myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorerrestrictrun'

true);

if opendialog1.Execute then

begin

assignfile(right_file

opendialog1.FileName );

reset(right_file);//通过权限文件设置WIN9X使用程序权限。

readln(right_file

s_r);

myreg.WriteString('1'

s_r);//写入一个可以使用程序

//

例:myreg.WriteString('1'

’winword.exe’)

i:=1;

while not eof(right_file) do

begin

i:=i+1;

readln(right_file

s_r);

myreg.WriteString(inttostr(i)

s_r);

end;

i:=i+1;

while myreg.ValueExists(inttostr(i)) do

begin //删除在注册表中添加进的多余的程序。

myreg.DeleteValue(inttostr(i));

i:=i+1;

end;

end;

closefile(right_file);

myreg.CloseKey;

end;

2、可以在窗口(FORM)中加入另一个BUTTON,名字为BUTTON2,功能为取消使用在WIN9X程序权限。在BUTTON2click中加入如下代码。

procedure TForm1.BitBtn2Click(Sender: TObject);

var

myReg:TRegistry;

begin

myreg:=tRegistry.Create ;

myreg.RootKey:=HKEY_CURRENT_USER;

myreg.OpenKey('softwaremicrosoftwindowscurrentversionpoliciesexplorer'

true);

myreg.writeinteger('restrictrun'

0);

myreg.CloseKey;

end;

Google云平台或将成为Amazon最大竞争对手 Camera360宣布完成1800万美元B轮融资 利用ZK Ajax框架 高效扩展Web App Web开发者需养成的8个好习惯 GitHub工程师专访:奶昔+海象+游泳池=开源 Paymill发布移动SDK,实现应用内直接支付 免费到付费:全球第二开源Web Server Nginx“堕入”商业化 乐视发布新版智能电视操作系统LetvUI 2.3—Schnauzer 进步还是灾难的开始?科学家首次通过互联网实现“心灵感应” 叫板Apple TV 谷歌发布Chromecast的iOS应用 性能提升100倍的秘密武器:一行SQL代码的妙用 60个开发者不容错过的免费资源库 专门针对初学者的Node.js教程 初创公司Parse.ly:1年内捕获1.6亿独立访问用户,收入增5倍 融资新方式:用未来10年收入的6%融资10万美元 小米手机-HAXLR8on:创客32小时全纪实 图文:看苹果下一代iPhone细节 能吸引你购买吗? [开源推荐]Intention.js:通过HTML进行响应式开发 Android副总裁Hugo Barra将加盟小米 三星将召开首届开发者大会 推新SDK和S Pen 15个步骤创立技术公司,并收获千万用户(三) H3Cloud:为企业提供最优化IaaS方案 VMware、红帽对决云管理平台 大数据辅助决策,构建智慧城市 所见即所得:四款免编程移动游戏开发引擎推荐 PaaS乱局:Container的新机遇 IDC再度下调2013年全球PC销量预期 平板电脑中枪 Waze联合创始人做FeeX 用众包方式增加银行服务透明度 Ripple CTO Stefan Thomas:Bitcoin与未来支付应用开发 第二届Coding For Fun编程马拉松实时快报→→ 数字化你的脸:14个智能眼镜开发平台 借一个问题!XP里面网卡怎么工作不正常 请问有什么办法破VBA的密码 CEdit 背景色的问题 100 分 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 了解jpeg的请进 高分急求数据库解决方案! 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 存储类 在MainFrame里怎么得到一个指向MyDoc类的指针? 上海的弟兄前来领分!!!! 能ping通代理服务器,但不能上网(ftp等都不能用)。有那些原因! 谁有api做的串口通讯例子 很简单的Temporary used 问题,就是搞不清,请哪位详细点拨一下,铭谢 DataGrid中使用HyerLinkColumn,请怎样动态传递多个参数或改变DataNavigateUrlFormatString的值(在线等待答复) 在winsock1.1下怎样监听网络事件。(请给个API 的 sample ) 高分急求数据库解决方案! 高分求助软件稳定性问题! 高分请教exej4的问题!~ 我的代码可以被编译吗? 十万火急(在线等)关于发邮件问题!多谢了(最后50分了) 感谢各位的鼎力支持!!! 急:如何让sqlload使用命令行方式,把数据库中的指定几个表导出?(在线) 单元全局变量与工程全局变量有什么区别 问一个关于JSP和XML结合的问题. 请问怎样用ASP连接Mysql数据库,急! 有没有j2ee的qq群??? win2k里的smtp服务器,怎么是需要身份验证的? 怎样让智能ABC记住输入的词组呢? 你在delphi中,用到了多少面向对象的知识? Dragover事件什么情况下触发 北京还是深圳 如何实现两个类互相访问--急! <Code Complete>怎么翻译好呢? 急!!!!!在dcom中向数据源添加数据报错,为什么? 有哪些方法可以在ASP.NET设计文件.aspx(html格式WEB)与脚本文件.aspx.cs(.aspx.vb)中传递数,或者说传递变量的值!!! 我用CDONTS.NewMail发邮件,怎么判断邮件发送成功或者是不成功呢? asp.net的客户端键盘的事件处理的有关问题? 请问怎么在程序里随机产生CLSID代码?$$$$$$$$$$$$$$$$ 急! 如何定义一个全局的类的实例,请高手指招? 到底怎么创建桌面快捷方式? 给点参考吧! ADO连接带密码的数据库时出现的错误!!! (在线求助),哪位老大知道怎样写一个字符串在一个iframe内框架里? zzxxdd过来接分? 刚才没说清楚再问一下救急 allforly(白衣胜血) 请进,其他人解答也可以。 windows 2003 关于fso问题,求救! 请问通过表单上传文件是否有大小限制? 关于函数的返回类型 JavaScript在使用showModalDialog的问题,急!!!!!! 急!datagrid中的Checkbox问题? 湖北省荆州市公安县的房价如何想买房子、不知道行情.呵呵 haskell iomonad问题想要从控制台输入一个数字以下代码报错do{input 大()大() 那两个字要是近义词的哦 湖北省 荆州市 公安县 我女朋友是公安县的.过年的那段时间准备去公安玩,公安有什么地方好玩的?吃 住 行 .最好是多介绍几个地方给我.价格不用太高.准备玩3 - 4 天 haskell怎么定义取整 觉得、认为的近义词是什么?必须是两个字的 党的十八大提出了全面建成小康社会的新要求,其主要内容是什么? 茶叶,苹果碱性,而胃是酸性的,那为什么不会酸碱中和酸碱会中和,那为什么吃了碱性食品对胃会有很强的负面影响? 财会类的英文词典哪个好最好说清 出版社 主编 还有英文名字 一个平行四边形的一条内角平分线把它的一条边分成3和6两段,那么这个平行四边形的周长是 类似惊爆价的词形容我的东西这几天搞活动,价格很便宜 我想买本中日英会计词典,不知道哪里有卖我需要买本中日英会计词典,就是会计专用语的词典.找了好久都找不到. 一字师的含义 达人现在表示什么意思 求春节英语小报的内容,用英语说春节能干什么,最好有翻译,帮小妹一把! 14.如何把握马克思主义法律观的基本内容和科学原理? 一字师>的译文 某校科学兴趣小组的同学在网上看到:茶叶是碱性食品,喝茶可以溶解脂肪而减肥某校兴趣小组的同学在网上看到:茶叶是碱性食品,喝茶可以溶浴解脂肪而减肥,他们设计了探究的课题是:比较 身有伤 怡亲忧 得有伤 怡亲羞 一字师的译文 我们是一所招收12-16孩子的国际性学校 we are____ _____ school____children of 12-16我哥哥经常在晚上和周末上班my brother often works____ and____在周末,他喜欢和同学一起参加体育活动on____,she likes____ _____with 已知平行四边形的三个顶点A(-1,3),B(3,-2),C(6,-1),试用两种方法求顶点D的坐标 如果一个平行四边形的周长为50,那么它的对角线长x的取值范围是你们说的答案 咋都 觉得怪的 12.5 李庄今年春季植树1480棵,比张庄植树少245棵,李,张两庄今年共植树多少钱? 地球上最丑恶的生物 是什么?他不值得存在!多么希望真的有神,来净化这个世界.我真觉得人太多余了,杀也杀不完, 下列不属于显示标准的是 ( ) A.VGA B.CGA C.MGA D.LCD ..嫣﹖这个字念什么? 地球上最丑陋的生物是什么? 揶揄什么意思 求大神给我做一个字,和这个字一样颜色一样心形或者不同心形的昊和嫣, 很多的近义词有一个词语,感触bo多,郁闷, 讽刺的意思是? 谁能帮我把“心”这个字组成一个心型?字数99个. 身有伤,贻亲忧;德有伤,贻亲羞 有感 有所不为,才有所为.的意思 迅猛的近义词 英雄联盟德玛西亚之力出装 d=40cm 求周长和面积 占工作,摇出《易经》第二十七卦 颐 山雷颐 艮上震下,农历4月25(已巳月甲子日)摇出山雷颐六三,六四,九六三个爻动,测工作.农历4月19(已巳月戊午日)摇出山地剥六一,六四,两个爻动,测工 Je est un 求周长d=40cm 迅猛的近义词有? C'est un jour mémorable 达人请进... 揶揄是什么意思? 张村计划植树2000棵,用25天完成.实际每天比计划多植10棵实际用了多少天? Un jour,tout ce qui est triste 这个图标代表着什么? 张村今年计划植树3500棵,已经植了2975棵,要超额完成计划的20分之3,还要植多少棵? 湖北省荆州市石首有锹甲买吗? 倒逼的近义词是什么啊 请问这个字是什么,有这个字么…… 跃跃欲试近义词?翘首期盼近义词?抓耳挠腮的近义词?要多点哦, 装逼的近义词是什么?本人写作文,不能用网络流行语——求文明点的 集合A={k平方-k,2k}k得取值范围 Quelqu'un qui décide lui-même ce qu'il doit faire à un moment comme à un autre帮解释解释诺.尤其是 à un moment comme à un 带我装逼带我飞的近义词 汉子经过了7种演变过程,汉子字形的总变化是(),汉字不断趋于(). 请问一下,君子有所为,有所不为是什么意思. 给这些词换个部首,再组词:雳__( )__( ) 价__( )__( )快!"___"填字,"( )"填词语 两个字互为近义词 国际反恐会议在伊斯坦布尔召开纽约油价24日小幅反弹美元对主要货币24日继续低位徘徊纽约股市三大股指24日上涨报收埃及又一次缩短宵禁时间人民币即期汇率连破四关口 逼近“5时七部委9负责人“应考”科技经费使用北京地铁10号线一个月故障五回 官方南宁:警方在拆违现场遇暴力抗法被迫用美“杀死中国人”节目被删 万人在白宫北京脖颈卡护栏女子恢复呼吸 丈夫否认印度少女回家途中遭轮奸 事后遭歹徒焚沈阳“土豪别墅”未批先建 系村委会主部分赣南脐橙由青果催熟 染色打蜡后上星巴克CEO对中国媒体抱怨咖啡售价高四川平江县一粮站站长组织公款旅游被撤“神医”胡万林医死人细节:每天喝汤后院士揭露伪大师治病行骗:治疗效果系心法国之后是德国 媒体调侃下一个愤怒盟美遭盟友“愤怒围城” 昔日帝国实力大土硬顶别买中国导弹警告 已用中方导弹穗商场购物卡销量下降两三成京珠北降温至0.6℃部分护栏结薄冰企业求贤若渴 “揾工”者盼高薪冬奥首金 花落美国希望驻粤金融监管机构 着力推动改革创望美政策调整 利于地区和平体现地方特色 助推振兴崛起以10亿欧元购得80%股权持枪射伤民警 嫌犯湖南落网用经济社会发展成果检验成效市民意见诉求 可以在线反映确保取得实效 加快跨越赶超南方大部将现雨雪冰冻 农业部强调保农“积分状元”终圆城市梦疑似醉酒男企图劫机飞索契新疆鄯善县沙漠女尸已排除他杀 家属无习近平接受俄罗斯电视台专访武汉遭情妇发裸照举报官员已被免职并接女性养生:女人“那个部位”的6个秘密菲方拟付慰问金解决人质事件 香港家属河北省委召开常委会决定成立省委全面深
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘