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

在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;

谷歌新产品Chromecast:一夜之间价格从35美元飙至100美元 移动周报:苹果5周年限免神作,BADLAND开发者访谈 开源平台Cloud Foundry获IBM和百度支持,步入高速发展的“黄金期” GDK仍未发布 谷歌鼓励Glass开发者可提前用Android SDK开发 Adobe发布PhoneGap 3.0 支持命令行工具 初级vs.高级开发者 哪个性价比更高? 一周观察:Cloud Foundry生态圈渐成型 数据分析中的10个注意点,让你更了解用户体验、行为及需求 压不垮就奋行!Dropbox Datastore API给初创NimbusBase带来的启示 史上14大最具创新意义的科技发明 亚马逊应用商店:给应用开发者一个国际舞台 白帽黑客英年早逝:R.I.P,Barnaby Jack 苹果发布支持iTunes Radio服务的iTunes 11.1测试版 诺基亚将发布Treasure Tag配件 让你再也不怕丢东西 从三大互联网巨头布局,看移动时代的商业逻辑 亚马逊应用商店:一个开发者走向世界的机会? 企业级App探索:开发者们的正途在哪里? 如何有效地在海外市场推广产品? 网站转化率统计分析及优化方案 从资深设计师那我们能学到什么? 原作者使用Go开发memcached替代版,现已扎寨谷歌多个项目 像证券一样交易云资源,Zimory一年内收入翻两番并获德国证交所青睐 移动SDK崛起:未来会不会整合成一大坨? 关于 VS2010 异常捕获 在线编程教育平台Treehouse推免费iPad应用 微软发布Windows 8.1企业预览版 功能更强劲 如何管理和优化日益增长的代码复杂度? SDCC 2013大会讲师名单议题更新 8月1日前3.8折优惠截止 IBM Rational首席技术官:DevOps是一门哲学 Mozilla联手黑莓推进Web安全技术,推出开源测试平台Minion 苹果如何培养SOHO一族高效工作 下面两个操作,哪种效率高一些?或者还有什么更好的方法,谢谢! 简单问题,马上结账 ^在Delphi中是什么操作符? 各们兄台,小弟有急事相求,在线等~~~~~~~~~~~~~~~~~ 关于新闻发布时内容显示的问题 请教Tab Control的使用 microsoft jdbc for sqlserver2000 result 如何将指针移到首位!!在线等急!!! 谁有CVS下载?我去官方网站的下载,根本没有安装文件。 JSP中新建文件夹的问题 关于地图的问题,谁能解决啊? 怎样获取点击或按下winform上 [×]按钮时的事件 在服务器端执行一个 在客户端弹出对话框的程序? 如何不让局域网上的其他机用二级代理上网. oracle 表空间问题 哪位老大知道DBF的格式。 新手想请问关于刚学图象处理先学哪些?即先从哪入手? 请问关于函数挂接的问题 学习中的、已经学好的、准备学习java的朋友来看看 如何在一个线程里创建一个窗体? 难题,,,,(马上结) 怎样使windows service能接受其他程序的调用? ADO+ACCESS问题 十万火急!怎样在ASP.net(C#)中调用OCX对象 如何填充一个封闭的区域 吉林延边发生多起朝鲜警备队员越境抢劫杀人案件 perl有比较好的ide吗????? FilenameFilter用声明吗?? 怎样将两张表中相关数据绑定到DropDownList 请问java 中如何实现大小写不敏感的字符串替换???谢谢 超级头痛:如何找到DataList里的RadioButton? 权限设定时奇怪问题? 200分相送,如何写一个divx的编码过滤器 求一 SQL 语句的写法 高手来看!!!!如何在BCB程序中打开Oracle数据库 在串口通信中怎样解除waitcommevent()的等待 快三十岁了,适合再当程序员么? 小弟急着连数据库,搞不明白怎样连,拜托 怎么得到一个进程的句柄 ADO+ACCESS问题 谁能告诉我windows server 2003的显卡驱动到哪里下载 用DataOutPutStram的writeUTF写文件时开头总出现两个字符的乱码? 关于IMAIL6.0外发邮件问题 是个关于表单的问题? 小问题,在线等 谁能告诉我windows server 2003的显卡驱动到哪里下载 global文件竟然没有,为何???---waiting!!! Direct3D中关于渲染(render)的问题? 各位高手,win2000和xp共享的问题 如何获取foxpro数据库的某张表的结构???? BCB是超级大垃圾,遇到大一点的工程就晕!~ 急,500 人民币 求解一codec 属性设置问题。 请问,如何分页????? “最后一个字”这句话用英文怎么说? 帮我译成英文“晚食当肉,安步当车;谨口胜于服药;爽口物多终作疾;节饮食而后得健康;美食不可多用”谢 维德思有什么用? 由看花、忆花、思花三部分,在文章中有什么作用? 绿树间……还可以写……什么间 汉献帝是不是汉高祖?十常侍的王是谁? 从汉高祖到汉献帝,这些皇帝都叫什么名字或尊号?3Q可以说他们的尊号,如汉武帝…,也可以说名字 从汉高祖到汉献帝,这些皇帝都叫什么名字或尊号?可以说他们的尊号,如汉武帝…,也可以说名字 汉献帝死后,怎么在九泉之下面见汉高祖? 警察这词的由来以前看电影里面 经常管大陆的警察叫公安 港台地区叫警察现在大陆也叫警察了 警察这词莫非是我们地大物博 文化悠久大陆地区 向港台地区学的? “警察”这个词的来历?以前都叫“捕快”,后来解放了叫“公安”,那么“警察”这个词又是从何而来呢? 世界主要城市11月5日天气预报专访南非副部长:从中国发展看到非洲繁中信泰富在澳投资陷纠纷 或赔29亿元俄国防出口公司:俄近半武器出口均面向纽约地铁推出化妆品贩卖机 可据衣着推安倍2014年1月将访问非洲三国 意叙利亚中部城市发生自杀式炸弹袭击 致数万伊朗抗议者举行“占领美国使馆”集法国两名记者马里遇害 已有多名嫌疑人2013年11月4日外交部发言人洪磊外交部:巴基斯坦的主权和领土完整应当红周五悬念究竟有多大?散户不得不知!律师说法:快递员没有劳动合同该如何维20万就能让你的Jeep情怀落地P2P行业依然坚挺 瑕不掩瑜OPEC:俄要为30美元油价做好准备12月25日(明日)股市大盘走势预测男人专属的长寿秘诀,独家的哦!\"万万没想到\"!库存报告\"立功大盘不上攻你的真实意图是什么?外媒:iPhone总销量即将突破10台媒:起火陆客大巴发现5瓶汽油 不排仙真道让天再睡一万年斗仙记出尘记剑帝刀皇录之流云传网梦武心朝堂异世修神路异界公敌孤独小子异世修魔异界修炼记海月广场旅游南山旅游旺豪超市旅游解放路步行街旅游百花谷商业街旅游乐山睡佛旅游海宁中国皮革城旅游青海省博物馆旅游冰沟丹霞旅游扎尕那旅游法源寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘