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

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

2014年8月操作系统份额:Win 8.x大涨,Linux继续下跌 0代码、不编程—交互式网页设计工具VXPLO 揭秘Instagram Hyperlapse背后的技术 【CTO俱乐部在线教育研讨会】用互联网技术深入创新教育产品 降低门槛!Hybrid应用开发框架LigerMobile 下一代IT革命:微服务器和雾计算 使用Mongo Connector和Elasticsearch实现模糊匹配 时隔8个月,物联网联盟AllSeen如今怎样? 《近匠》简网:开发零门槛 快速建原生App MDCC免费展位申请超预期 大会内容初曝光 在服务器与交换机定制之后,谷歌着手量子计算机CPU设计 电信天翼开放平台鲍占斌:优质能力 分成比例高 艾格拉斯副总裁王晓波:手游定价如何设计 Xcode 6 Beta 7发布:语法定、内库改,Swift何时完善? 干货来袭:由22个联邦机构分享的6482个数据集 Phablet出货量今年将超移动PC,明年再超平板 如何提高Web服务端并发效率的异步编程技术? 改改改!让应用通过审核出人头地的10个方法 正益无线CEO王国春:AppCan如何获得50万开发者青睐 在收购Xtreme Labs之后,Pivotal推出PaaS移动服务 .NET开发者必备的11款免费工具 .NET开发不可错过的25款高效工具 Docker最佳实践!尽在2014 Container技术大会 pflua:用Lua编写的高性能网络包过滤工具箱 掌上明珠张磊:如何设计手游付费体系 云游科技何千军:游戏开发和后端逻辑经验 《近匠》Highway1:孵化,不只是简单的帮助 嘉宾来了 MDCC 2014首批演讲嘉宾名单公布 前雅虎CTO:Hadoop扩展过程中的7个危险信号 【云先锋】星环TDH:性能大幅领先于开源Hadoop2的技术架构赏析 一周消息树:我想创业,但不懂技术怎么办? 快救救我吧,我的存储过程返回值有问题?? 日文原码想在中文环境中运行可不可能 JBoss高手看过来! 下面的js执行错误,请看看 请教高手:如何当一个程序被反复调用时利用command$? 声明游标时可否用变量? 能不能提供几个漂亮的repeater控件的模版? dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 有没有什么工具或办法可以将Tc 下的程序移植到linux下运行? 求助! 请教!急! 世间什么才是最珍贵的? 大家來說說2003年版<射雕>的敗筆. 请教:如何在VB开发的程序中判断一个程序在硬盘上的安装路径? 帮忙!谢谢! 此类问题如何查询? 请教个问题:每次启动机器都会打开IE跳到我们这边的一个内部网站去,本来启动就慢----火死了,怎么去掉---在注册表了改么? combo控件问题. 问一个关于刚开机的win.com的问题。请高手帮帮忙呀! dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "报错,在线等待 请问我如何在注册网站成功后,在exchange中也建立一个与注册网站时同名的帐号呢? ASP(javascript)自动回复问题?? ★★母亲的生日★★ 哪位有没有用spcomm控件进行串口通讯的例子? 大家帮我看看这是用哪个做的? 关于打印... 两路由器的使用方法比较,哪个好些? 在线求助:有没有改变电脑所连的打印机打印属性方向的API函数?多谢 我要送分 设置ejb的几个接口时,我有点弄不明白 有没有什么办法把ACCESS的表打印出来?格式改变一下? 烦啊~~~~ 谢谢!如何让对话框的大小不受屏幕分辩率的影响??? 请问怎样避免多用户同时访问数据库中的表? 简单问题:怎样用url打开一个文档?多谢 怎么控制小数的位数? 这个QQ炸弹好厉害,是什么原理呢? 我的问题怎么老是出现在这个地方。。。。 一个对话框程序调用dll中函数的问题! 请教有关类的扩展 请问WIN2000专业版IIS为什么连接限制是10 急,为什么我的数据库会出现这样的错误? 寻求一个好的全屏翻译软件(在线等候,在线给分) 寻找《编译原理与时间》电子文档下载url 升级了,散分小庆.认识的朋友进来捧个场,不认识的也进来热闹热闹!忠心感谢:-) 奇怪的问题 如何解决在一个表单中多个提交按钮的问题? 请问怎样关闭135端口 Photoshop7.0的一个简单问题,大师们帮帮忙! 关于动态查询的问题? 请问如何验证代理服务器? 丝绸之路犹如一条彩带,将古代亚洲、欧洲、非洲的文明联系在一起,难道它不是一条伟大的路吗?(改为陈述句) 求一教学系统设计案例运用所学的理论与方法,对教学内容进行分析并进行初步学习者分析,确定教学起点和学习起点 饥饿为什么使肠道蠕动加快大概机理是什么啊?明明没有食物 造句 丝绸之路是什么,因为什么.例如 丝绸之路是一条经济之路,因为他促进了东西方经济的发展. 教学系统设计专著有哪些? 来自星星的你拍了多久? 造句:丝绸之路是什么,因为什么.例句丝绸之路是经济之路,因为它促进了东西方经济的发展. 教学系统设计中,可操作性应考虑哪些方面?是在设计一个教学方案时. 全国人民代表大会,国家主席,国务院,最高人民法院,最高人民检察院,中央军事委员会的职权分别是什么?简明概括,或者回答:职权是什么?怎么理解“职权”? 正确使用节能灯的方法 声音是物体什么而产生的,是以什么的形式传播的 家鸽的主要呼吸器官是什么? 节能灯可以使用多久? 1. 试简单说明猪肉绦虫有什麼特化结构使之适於寄生? 2. 试简单说明蛔虫有什麼特化结构使之适於寄生?急!急! 家鸽鱼的生活环境不同呼吸器官的结构和呼吸方式也不同但它们的呼吸在本质上都是相同的他们的呼吸本质是? 中国石油大学华东大学物理实验报告怎么写,包括哪几项 猪肉绦虫的成虫寄生在人体的什么部位 大脑浆和骨髓都同样是神经细胞嘛,它们的性能有何区别. 我的世界怎么制造其他生物?就像制造铁傀儡,雪傀儡那样的制作方法,谁还有,请详细指出来(我知道的有:凋零,铁傀儡和雪傀儡.这三个就不用说了)还能制作什么怪物请说出来(要详细步骤 寄生在猪体内的是猪带绦虫的幼虫还是虫卵,(这种猪肉被称为米猪肉) 审议表决了《保守国家秘密法修订草案》属于全国人大的什么权力 节能灯什么品牌的好用,并且使用寿命较长? 小农经济和自然经济什么区别 全国人大今日选举国家主席副主席 酝酿总理人选 不是早就定了吗 怎么还要选? I used to go outside every night to _____ the start中的______应填look for 还是 look at?如果正确的追加50分 高中生物必修三人体三道防线疑问拜托各位大神“ 感染发生时,病原体已经突破了前两道防线.”这个表述对不对? 下列哪种不是鸟类( ) A.家鸽 B.野鸭 C.褐马鸡 D.蝙蝠 一条直线上至少有_______点在一个平面内,则这条直线就在这个平面内. 猪肉绦虫体表没有角质层,它为什么也能安全寄生在人体小肠内呢? 我国国家主席又颁布法律的权利吗谢谢了, 什么是非谓语动词,怎么用?我是说英语中的非谓语动词. 猪肉绦虫与猪之间的种间关系是 直流屏怎么选择?希望大家可以帮助我介绍个. 节能灯的使用寿命真的可以达到8000小时? 什么吸血虫寄生在人或哺乳动物的门脉系统血管内,靠吸食血液生活 直流屏的容量的选择和数量的选择 谁认识这种蜜蜂呀 叫啥 哪些哺乳动物是吸血的? 那么人的头上有几个神经细胞呢? 平面上有10条直线,三条线段不能交于一点,欲使它们出现17个交点,你想怎样安排 国务院各部人员任免是由国家主席决定还是国务院总理决定? 人有多少骨头,细胞和神经? 政府组织形式形式定义 We could't go because it was raining heavilyWe couldn't go ____ ____ ____ ____rain 生物生存的秘密 个体小农经济是我国古代农耕经济的主要耕作方式,这种方式最早形成于 官员任免权在谁? 生物的得分秘诀有什么? 中国外交部发言人有几位,分别是谁? 农耕经济 农业经济 小农经济三者区别? 任免权是什么意思? 现在中国外交部发言人都有谁? 农耕文明与大河文明的区别?小农经济,自然经济,自耕农经济之间有什么关系? 为爷爷的回忆录写感想 该怎么写 另外推荐些好点的诗句 中国外交部发言人是谁?好像有好几个吧…具体点 夏商时期的农耕属于小农经济否?为什么 增加肠蠕动的药有?药 中国历任外交部发言人 指亲近而信任的人,一般用于反面人物(身体器官) 用什么相机能拍星星请写下相机名称,不用怕多贵!(可以找满天星星的那种的哇) 抵制安理会决议 朝将继续发射卫星15年的临时工被辞退 没保险也没补偿催缴单贴门口让骗子利用 张贴时能否隐网购的杜蕾斯拆开竟有头发丝 临海打掉浙江高考语文研讨会 预测阅读和写作是蒙古官方对总统额勒贝格道尔吉访朝持低平等对话才能改善美伊关系威廉凯特全家福幸福满溢(组图)印媒:印度否认允许美建军事基地徳媒:代工厂出纰漏“iPhone6”美媒:美十大最危险工作今日海外言论(9月16日):法国在化芝加哥农产品期价28日大幅下挫英国迎战“飓风级”风暴 伦敦已取消至外媒:中国医院加强安保防暴力袭医安倍突访土耳其 传为劝阻土放弃购中国英国“小报女王”将接受刑事审判 令世英首宗疑似3D打印枪支案曝光韩承诺彻查干涉选举丑闻 被视为朴槿惠翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽男子纽约杀表兄家5人明日股市行情走势预测:主力假阳护盘酿对书法发展的思考:对照徐生翁 我们缺南方航空集团公司原党组副书记、总经理贵州苗寨迎客忙 雷山春节7天游客近4最高检对黑龙江人大常委党组原书记盖如春节期间新疆查处各类交通违法行为40云南省香格里拉市森林火灾已扑灭 过火贵州全省五级干部10万人节后首日上山天津机场春节长假共运输旅客27.7万新疆哈巴河县建设乡级商超 丰富百姓“新疆哈巴河县特色教育助学生全面发展厦蓉欧班列开通半年运行情况平稳运畅春节7天贵州网购热 楼市冷清交易0.四川宜宾将授荣誉市民 不搞终身制2016年春节黄金周17万人逛云南石春节深圳投诉量比去年增42% 互联400多吨进口食品春节期间涌入厦门东“成都人才新政十条”出台 人才扶持力“两马同春闹元宵”活动将于2月18日重庆车站今迎春运出行高峰湖北鄂州警方破获网络贩卖他人信息案
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘