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

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

一些达成共识的JavaScript编码风格约定 语义技术——微软、谷歌和Facebook的必争之地 初创公司PlumGrid:前思科工程师的“逆袭之战” Firefox OS智能手机继续扩张 德国市场今日开售 如果让莎士比亚、海明威编写JavaScript代码 开源的数据可视化JavaScript图表库:ECharts 已迭代1.3亿年的分布式系统——Anternet 软硬整合:14个可改变世界的Kickstarter项目 是时候放弃MySQL的五大理由 比特币钱包Coinbase推出即时交易功能,无需银行转账手续 回收不活跃邮箱续:雅虎高管称能保证前用户信息和数据安全 移动周报:IT民工携娇妻转战传统行业,黄太吉的移动互联网营销 独立游戏开发的传奇!LIMBO开发商Playdead公司CEO专访 Firefox OS模拟器4.0正式发布 支持模拟触摸事件 莫轻言已成功部署大数据,也许你离达标还相去甚远! 基于Java的四大开源测试工具 Firefox OS:称霸移动市场?我们的计划更长远! 支撑5亿用户、1.5亿活跃用户的Twitter最新架构详解及相关实现 传苹果为iWatch招兵买马 以确保明年发布新产品 降价高达1200元的Surface RT,并不值得你购买 Daux.io:开源的项目文档生成器 避免代码注释的五大理由 安徽农信:30人,13轮测试,完成日均270万笔交易的综合业务系统架构调整 研究员带来5D光存储技术:容量达360TB,寿命高于百万年 LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 为什么SQL SERVER的 BOKK ONLINE的目录有问题 如何取消sendmail 8.9.3的第三方邮件转发权限? SelectDirectory函数打开的是英文对话框,但是我的程序需要向用户发布,怎样才能中文界面 111222(), 你已经被剿灭了么 ? 请教如何把一个Project移植到另一台机器的不同目录下编译? ListView 的 OnColumnClick 要实现items 的升降序排列 ,怎么办?还有,点击单元Item,出现该Item 的 编辑Panel? 刚学java,请问。。。 怎样用猫来传文件 有没有谁有D6光盘,刻张给我 到底要怎样学 新手请教问题 我的安装老是不能成功,那一位大虾能告诉我,谢了 各位大虾,谁能给我提供,匿名发送邮件的程序代码啊。。。。 那位打下知道有什么针对BMP图像的压缩算法? 怎样使WAV播放的幅度表达出来?象WINDOWs的录音机显示一致? 窗口的问题(稍后加分,100分) 大家是如何解决数据库平台无关性的问题的? 呦,阿紫,你真的改名啦,红袖添香夜读书的小乖乖,太长了,你还当斑竹吗? vb开发进程?Hook技术? 所谓的基础的是什么 识别上网状态问题,请教各位大虾。 再问:请问可以在applet中使用MenuBar吗?(昨天的已经给分了) 统计一下win2000下可以玩的游戏 *.chm文件能作在线帮助吗?在窗体的helpfile、和helpcontext如何设置??? 如何根据列名用object来取出字段,急!!!! 关于箭头在数据窗口移动的问题? 再问个菜鸟问题,showmodaldialog的title怎样控制 javascript中如何取整? ALT和MFC的区别是什么?? 试用DELPHI6,BUG太多了! 我是新手,请问在delphi5中如何建库(orcle和sybase)? 问一个比较弱智的问题 js文件里如何使用另一个js文件里的函数30? 哪位大虾知道可以在哪里下载mpeg-1的codec,谁先告诉有效地址谁先得分!(不给分是小狗!) 可能很菜的问题,送分的问题!! 一个关于CDaoTableDefInfo的问题 ado的问题??求救!!!高分!!! 有关代码重用的问题,对Form的继承。 一个关于CString.Format的问题 学习编程时学图算法怎么学好? 一个很简单的CREATE TABLE语句为什么出错呢?向大家请教! jbuilder5运行需要最低配置 ,傻傻的问 Delphi6的盗版已经到了@_@ 喂,为什么我提问只能给最多37分,原先可比这要多的多 一个关于派生类的问题 关于页面关闭的问题 用new JTalbe(10, 20)创建了一个table,如何设置该table列(column)的宽度 请教一个关于用VC6开发outlook\exchange的问题。急!急! 时间服务器 请问一下,用DBM,如果用户注册的数量多了以后,程序的速度很一般的文本速度比较哪个快 纯数学问题:如何求模逆元? 光明小学航模数人数是生物组的4/5,生物组人数是美术组人数的三分之一,航模组有八人,美术组有多少人? 小刚让我才他参加了什么兴趣小组,我说:“( )美术组,( )航模组.”关联词 去鲁迅故里的春游作文(五年级)400字以上 光明小学航模组人数是生物组的4/5,生物组人数是美术组的1/3,航模组有8人.美术组有多少人? 美术小组有25人,比航模小组多4分之1人,航模小组多少人.(列出数量关系式并解答) 小学五年级作文《话春游》400字 光明小学航模作人数是生物组的5分之4,生物组人数是美术组的3分之1.航模组有8人,美术组有多少人?要步骤,5年级数学 美术小组有25人,美术小组比航模小组的人数多四分之一.航模小组有多少人? 春游 (我们去的是上海科技馆)400〜500字 五年级作文 光明小学航模作人数是生物组的5分之4,生物组人数是美术组的3分之1.航模组 某小学航模小组有20人,比美术小组的人数少了五分之一.小学美术小组有多少人?非常急急急急急急急急急啊 要用方程来解!(我会算但不会解) 每8人分一组多6人,每7人分一组多5人,五年级一共有多少人参加春游? 少年宫美术小组有36人,航模小组的人数是美术小组的三分之二,微机小组的人数是航模小组的六分之五,微机小组有多少人 光明小学航模组有30人,美术组的人数是航模组的4/5,又是生物组的人数的1/3.美术组有多少人? 同学们去春游,六年级去了150人,五年级去的的人数是六年级的五分之一,四年级去的人数是五年级的四分之三,同学们去春游,五年级去的的人数是六年级的五分之四, 少年宫里,参加航模组人数占五分之一,参加书法组人数占四分之一,又知书法组比航模组多三十人,少年宫多少人? 东风小学航模组人数是生物组的4/5,美术组人数是生物组的5/6,航模组有24人.美术组有多少人? 三年级共有师生306人 春游包了6辆车,问每辆车坐多少人?怎样安排? 学校舞蹈队有35人,航模小组有10人,围棋小组有25人.航模小组的人数比围棋小组的人数少百分之几 某校有数学,气象,航模三个兴趣小组,其中数学小组是三个小组2分之1,气象组人数是航模组人数的3分之4,航模组比数学组少3人.三组一共多少人? 某校五年级的学生人数是六年级的90%,四年级的学生人数比五年级得多10%.四年级的学生人数和六年级的比较,哪个年级的学生人数多?为什么? 六年级共有37名学生参加航模组和舞蹈组,航模组每5人一组,舞蹈组每3人一组正好分了9组,参加航模组和舞蹈组的共有多少人.(别有方程) 某校有数学,气象,航模三个兴趣小组,其中数学小组是三个小组人数的1/3,航模小组比数学小组3人,气象小组人数与航模小组人数的比4:3,数学小组有多少人? 某校五年级的学生人数是六年级的90%,四年级的学生人数比五年级的多10%.数和六年级的相比较,哪个年级学生人数多?为什么? 航模小组与舞蹈小组人数的比是四:一,航模小组比舞蹈小组多90人,舞蹈小组有多少人 5.一个车间有工人360人,其中女工占五分之三,后来招进一批女工,这时女工人数占全车间工人总人数的五分之八.有招进女工多少人? 光明小学六年级有学生220人.急 某科技兴趣小组中女生占7/12,后来又转来15名女生,这样女生占总人数的3/5,这个兴趣小组原有学生多少人某科技兴趣小组中女生占 7/12 ,后来又转来了15名女生,这样女生占总人数的 3/5 .这个兴趣 学校的航模小组与舞蹈小组人数的比是四比一,航模组比舞蹈组多90人,舞蹈组有多少人? 某车间有工人120人,其中男工人数与女工人数的比是3比2.后来又招了一批女工,这时女工人数与车间总人数的比是3比7.现在女工有多少人? 某科技发明兴趣小组中女生占7/12,后来又转来15名女生,这时,女生占总人数的3/5.这时兴趣组男生有多少人 航空模型小组共有26人,其中男生有16人.航空模型小组男女生人数的比是( ):( ),航空模型小组共有26人,其中男生有16人.航空模型小组男女生人数的比是( ):( ),比值是( ).女生人数与小组总人数 一个车间有360人女工占3/5,后来又招进一批女工这时女工占全车间的5/8又招进多少人 学校开展课外兴趣小组活动,文艺组与体育组人数的比是4:3,后来文艺组又增加了4人,这时,体育组人数是文艺组人数的2/3,文艺组现在有多少人? 光明小学航模小组男生咋还能全组人数的三分之二,女生人数占男生人数的几分之几?1,这道题能列积等式吗,要确定.2,如过用方程的话,希望给写出过程,3,用算式也行. 某车间有工人120人,其中女工人数是男工人数的2/3.后来又招收了一批女工人,这时女工人数占车间总数的3/7现在女工人有多少人?今天回答! 学校开展兴趣小组活动,数学小组的人数是文艺小组的5/3,数学小组有24人,文艺小组和体育小组的人数比4:3,体育小组有多少人? 学校美术组有35人,其中男生是女生的2/3.女生有多少人? 希望小学五年级学生360人,其中男生占7/12,后来又转来几名男生,这时男生占五年级总人数的60%,转来的男生有多少? 学校开展课外兴趣小组活动,文艺组与体育组人数比是4:3,后来从体育组调了2人到文艺组,这时文艺组人数是体育组人数的2分之3,你认为两组一共多少人? 美术兴趣小组有男生5人,女生6人.女生人数是男生人数的几分之几?男生人数是女生人数的几分之几?快我要答案,不要只写算式,好的最多加200财富值 五年级原来的学生,其中女生占十五分之七,后来又转来8名女生,这样女生人数就占总人数的三十一分之十五,原来有几名学生? 学校展开了课外兴趣小组活动,文艺组的人数是体育组的3分之4,后来文艺组又增加了4人.这时文艺组人数是体育组的2分之3,文艺组现在有多少人? 学校美术组的人数在40..50人之间,男生人数和女生人数人数的比是5:4,美术组男生和女生各多少人? 某工厂年初有职工630人,男工人数比女工多3分之1,后来招进一批女工,这时女工占总数的7分之4招进多少女工?正确率100%【只写算式】 学校数学兴趣小组原来男生人数占七分之四,后来又有6名男生参加进来,这样男生就占数学兴趣小组的5/8现在数学兴趣小组有男生多少人 学校美术小组女生人数是男生人数的90%,科技小组又有15名女生到美术小组,这时女生人数是男生人数的120%.学校美术小组有男生多少人? 人民路小学六年级上学期有学生360人,其中男生占十二分之七,本学期又转来若干名男生,这样男生人数占六年级总人数的五分之三,本学期转来多少名男生? 学校数学兴趣小组原来男生人数占7/4,后来又有6名男生参加进来,这样男生占数学兴趣小组的8/5现在数学兴趣小组有男生多少人? 报名参加航模兴趣班的男生人数比女生人数的4倍少8人,比女生人数的3倍多24人.报名的女生有多少人? 光明小学六年级女生占7/12,后来转来15名女生,这样女生占全班人数的3/5,六年级原有学生多少人?用抓不变量法做!THANK YOU! 学校数学兴趣小组有60人,写作兴趣小组的人数相当于数学兴趣小组的十二分之五兴趣小组增加多少名同学,就是数学兴趣小组人数的5分之4? 前进小学航模队有女生24人占全队人数的八分之三少6人六年级男生多少人 光明小学六年级(1)班学生中女生占7/3,后来又转来了14名女生,这时女生占全班人数的7/4.六年级(1)班原有人?光明小学六年级(1)班学生中女生占3/7,后来又转来了14名女生,这时女生占全班 学校数学兴趣小组原来男生人数占七分之四,后来又有6名男生参加进来,这样男生就占数学兴趣小组的八分之五要式子 学校美术兴趣组和电脑兴趣组共102人,美术兴趣组人数的2/9和电脑兴趣组人数的25%相等.学校美术兴趣组和电脑兴趣组各有多少人?【求算数解 小学春游作文,400字,广州滨海公园4月份之前回答,过期不算 学校开展课外兴趣小组活动.文艺组人数是体育组的3分之4.后来文艺组又增加了4人,这时体育组人数是文艺组的3分之2,体育组有多少人? 学校兴趣小组活动,六年级有美术小组,航模小组和文学小组共有158名同学,其中美术小组人数比航模小组多20%,文学小组人数比美术小组少20%,求个兴趣小组的人数?7点之前 (加解释 列式) 快 学校组织春游,五年级去的学校组织春游,8倍,五年级去的人数与一年级相差40人.如果每人交活动费70元,两个年级各收多少元?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn