if timer2.Enabled = False then
begin
BlockInput(True); //键盘与鼠标锁定,但ctrl alt del 还是有效
ShowCursor(False); //光标不显示
heip := TfrmHeiPing.Create(self);
heip.Show; //黑屏窗口显示
Heip.label1.Top := screen.Height div 3; //显示 请同学们认真听讲! 等信息
Timer2.Enabled := True;
end;
end;
当要解除锁定时,教师发一道命令过来,学生关闭定时器
36: //黑屏取消指令
begin
ShowCursor(True);
if timer2.Enabled = True then
begin
BlockInput(False);
ShowCursor(True);
Timer2.Enabled := False;
try
heip.Close;
except
end;
end;
end;
定时器里面的代码:
procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
if (FindWindow(0,'错误')=0) and (FindWindow(0,'Windows 任务管理器')>0)then
begin
sendMessage(FindWindow(0,'Windows 任务管理器'),WM_CLOSE,0,0);
BlockInput(True);
ShowCursor(False);//隐藏mouse
end;