|
求xp下屏蔽Ctrl_Alt_Del的delphi代码
直接操作键位: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System] "DisableTaskmgr"=dword:00000000 //输入0解除 "DisableTaskmgr"=dword:00000001 //输入1屏蔽 屏蔽时:出现这个消息:“任务管理器已被系统管理员停用”真是多此一举,谁能屏蔽消息提示呢? |
|
求xp下屏蔽Ctrl_Alt_Del的delphi代码
打开delphi,在窗体上放置两个Button1和Button2 把里面的全部代码删除,把上面的代码复制过去,运行后 点击Button1为解除 点击Button2屏蔽(可以移植到TForm1.FormCreate过程里面,启动程序就屏蔽,然后按需要设置某个Button1解除) 很好用! |
|
求xp下屏蔽Ctrl_Alt_Del的delphi代码
xp或win2000下屏蔽ctrl+alt+del的新方法:操作注册表即可^_^ 全部源代码如下: unit Unit1; interface uses Windows, Forms, Classes, Messages, SysUtils, Menus, shellapi, ExtCtrls, ShlObj, Registry, Controls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure EnableCTRLALTDEL(YesNo : boolean); const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System\',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1); //任务管理 WriteInteger('DisableLockWorkstation',1);//用户锁定计算机 WriteInteger('DisableChangePassword',1);//用户更改口令 end; True: begin WriteInteger('DisableTaskMgr',0); WriteInteger('DisableLockWorkstation',0); WriteInteger('DisableChangePassword',0); end; end; end; CloseKey; if OpenKey(sRegPolicies+'\Explorer\',True) then begin case YesNo of False: begin WriteInteger('NoChangeStartMenu',1); //开始菜单 WriteInteger('NoClose',1); // 关闭系统菜单 WriteInteger('NoLogOff',1);//注销菜单 WriteInteger('NoRun',1);//运行菜单 WriteInteger('NoSetFolders',1);//设置菜单 end; True: begin WriteInteger('NoChangeStartMenu',0); WriteInteger('NoClose',0); WriteInteger('NoLogOff',0); WriteInteger('NoRun',0); end; end; end; CloseKey; finally Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin EnableCTRLALTDEL(true); SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL); //刷新系统 end; procedure TForm1.Button2Click(Sender: TObject); begin EnableCTRLALTDEL(false); SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL); end; end. ======盟动力网站================================ [Delphi & Kylix][系统编程] 真正的屏蔽ctrl+alt+del 资源编号:19908 上传时间:2004-08-20 发布者:太阳雨 210.98KB 2887 5 [Delphi & Kylix][系统编程] win2000下屏蔽ctrl+alt+del的新方法 资源编号:19907 上传时间:2004-08-20 发布者:太阳雨 180.95KB 3496 3 [Delphi & Kylix][系统编程] W2K 屏蔽ctrl+alt+del 资源编号:11103 上传时间:2003-12-09 发布者:kinsunc |
|
可不可以把两个exe文件合并为一个文件?
我试试看^_^ |
|
求xp下屏蔽Ctrl_Alt_Del的delphi代码
要XP的^_^ |
|
杀死自己的进程再重新启动自己(delphi语句)
求xp下屏蔽Ctrl_Alt_Del的delphi代码 |
|
可不可以把两个exe文件合并为一个文件?
例如:有a.exe和b.exe,把b.exe写入a.exe尾部,能给出具体语句吗?delphi的,或是反汇编的,我还没做过这件事^_^ |
|
系统窗口出现后就先启动我的程序,怎么加注册表位置?
软件名称:AUTORUNS 软件版本:8.53 汉化文件:HA_AUTORUNS853_CNNNC.ZIP 运行环境:9X/ME/2K/XP/2003 软件性质:免费 E-mail:cnnnc@163.com 软件简介: AUTORUNS 能够很容易地显示出在系统启动或登录时配置运行了什么程序, 并顺序显示出 Windows 处理的项目。 这些程序包含在启动文件夹、Run、RunOnce和其它注册表键。 选项“隐藏通过验证的微软项目”可帮助您来放大已经添加到您的系统的第三方自启动映像。 您一定会惊讶竟有那么多的自启动的可执行文件! 仅翻译主程序 AUTORUNS.EXE 命令行程序 AUTORUNSC.EXE 、帮助文件及原版权说明文件未作汉化。 修正了无法保存的错误,感谢网友"柯" <xysck@126.com>提出。 安装说明: 直接解压到任意目录即可使用,注意保持文件的完整性 |
|
|
|
系统窗口出现后就先启动我的程序,怎么加注册表位置?
提心吊胆的运行了包里的autoruns.exe文件,结果是惊喜!居然能双击打开运行程序的注册表条目位置。不错,谢谢。能通过分析找到相关位置,我也就能用delphi自己在相关位置加注册表了。 |
|
delphi取网页内容
谢谢,控件WebBrowser1.Navigate('http://www.163.com');方式很好用^_^ |
|
delphi取网页内容
试试看^_^ |
|
可不可以把两个exe文件合并为一个文件?
写在另一个的结尾?怎么写?那么多代码^_^ |
|
可不可以把两个exe文件合并为一个文件?
是异步执行,因为是个补丁类的,我不想让人给删除了,所以要捆在一起,不被删除,是异步执行,怎么加在文件尾部? |
|
求xp下屏蔽Ctrl_Alt_Del的delphi代码
不要98的,而是要XP的^_^ |
|
杀死自己的进程再重新启动自己(delphi语句)
通杀!可以杀自己也可以杀别人。 /调用函数杀程序进程 KillTask('1.exe'); KillTask('2.exe'); KillTask('3.exe'); //启动程序 WinExec('1.exe',SW_SHOW); WinExec('2.exe',SW_SHOW); WinExec('3.exe',SW_SHOW); |
|
可不可以把两个exe文件合并为一个文件?
谢谢你。。。。。。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值