请问怎样在2000下屏蔽任务栏(包括键盘操作),我是新来的,多多关照。(0分)

  • 主题发起人 主题发起人 kxboy
  • 开始时间 开始时间
K

kxboy

Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎样在2000下屏蔽任务栏(包括键盘操作)[:(!]
 
怎么没有分呀?
procedure LockPC;
var OldValue: LongBool;
begin
SystemParametersInfo(97, Word(Bool), @OldValue, 0);
WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);
WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部