如何在win2000下禁止切换任务,禁止alt+ctrl+del,禁止开始菜单?(200分)

  • 主题发起人 主题发起人 Bxch_1000
  • 开始时间 开始时间
B

Bxch_1000

Unregistered / Unconfirmed
GUEST, unregistred user!
我以前的一个win98下的程序,现在要在win2000下用,但禁止任务切换等功能全部不行了,
在win2000下应该怎么做?
 
帮你提前!关注!!
 
讨论了很多,没有什么好方法,只有达底层主意;
 
GZ,我也想知道!!!!!!!!
 
up

我同样关注
 
禁止任务切换有简单办法:
将Form的FormStyle属性设为fsStayOnTop
将Form的WindowState属性设为wsMaximized
在Form的OnCreate事件处理过程中为Windows发送一个屏幕保护程序正在运行的消息当程序结束时清除屏幕保护程序运行标志。
示例代码:
procedure TForm1.FormCreate(Sender: TObject);
var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
temp: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;
 
在2000下屏蔽Ctrl-Alt-Del例程 下载地址
http://www.8421.org/download.php?id=163&down=1
 
使用HOOK
setwindowshookexw([red]WH_KEYBOARD_LL[/red],Keyboardproc,hinstance,0);
 
to nicklung 你的方法只对win9.x有效

to xialin2 例程我已经下了,正在看,谢了

to 大梦 用底层键盘钩子的方法我试过,按道理应该是可以的,但居然不行,我正在
找原因,你有例子吗?
 
我的帖子:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1464951
下载例程:
http://www.iligia.com/chinese/documents/program/dishotkey.htm
再不行,留邮箱,发给你。
 
我现在就在2000server下运行的呀,没问题啊!
 
已经用底层键盘钩子的方法解决了,SystemParametersInfo在肯定是不行的
我以前就是这样做的,只能在win98下
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部