如何编写.vxd文件屏蔽键盘和屏蔽F5,F8键,给段代码先,谢了
联系:[email protected]
联系:[email protected]
解决方案 »
- 点论坛的delphi主题,怎么总是升级通知啊?
- 怎样才能列出隐藏进程,并kill掉他?(内详)
- 请问在Fastreport中怎样动态显示图片???
- 高手来帮忙!
- 问一个很容易的算法问题,有四个数a,b,c,d..........
- 关于多个Button共用一个程序的问题,哪位给提个醒,谢了
- 关于网络计费实现的问题
- 如何引用另一个 .pas 单元?
- 有遇到这样情况的吗?关于DevExpress DBtree安装
- 为什么delphi里只有这么点发言,以前的呢?
- 初学请问:判断两个dbgrid是否修改了,怎么写,如何同时更新成功?
- 急!急!急!急!缓冲区中的数据如何和流建立关系?反之又是怎样编写??解决马上给分,在线。
在win98可以这样
//启动时屏蔽F4、F8等
procedure TSetup_Main.SetSysSettings(MsdosSysPathName:string);
var SysIni:TIniFile;
RegKey:TRegistry;
SystemDrive,WinDir:String;
begin
//以下修改Msdos.sys
SetFileAttributes(PChar(MsdosSysPathName),FILE_ATTRIBUTE_NORMAL);
SysIni:=TIniFile.Create(MsdosSysPathName);
SysIni.WriteInteger('Options','BootMulti',0);//不能进行多重引导
SysIni.WriteInteger('Options','BootGUI',1); //直接进入图形界面
SysIni.WriteInteger('Options','BootKeys',0); //启动时按键失效
SysIni.WriteInteger('Options','AutoScan',0); //启动失败也不进行磁盘扫描
SysIni.Free;
SetFileAttributes(PChar(MsdosSysPathName),FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_READONLY);
***********************
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1,NIL, 0);//屏蔽系统键
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0,NIL, 0);//恢复系统键