delphi 制作一个用户离岗锁屏程序

当用户的键盘和鼠标无操作超过才一个时间值时,执行锁屏程序

 

//使用TTimer控件的OnTime事件
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //锁屏.当用户设置了自动锁屏,并且锁屏程序没有启动时,这两个都是自定义变量
  if UserInfo.UserLockFlg and (LockWindowState = False) then
  begin
//    if GetIdleTime >= UserInfo.UserLockTime * 60 * 1000 then
    if GetIdleTime >= 10 * 1000 then          //10秒测试
     {这里执行锁屏程序的代码}
  end;
end;

//以下是核心代码
function TForm1.GetIdleTime: Cardinal;
var
  pill: TLastInputInfo;
begin
  //使用前记得初始化结构体TLastInputInfo，并给cbSize赋值，否则函数将返回False
  ZeroMemory(@pill, SizeOf(pill));
  pill.cbSize := SizeOf(pill);
  //GetLastInputInfo是一种函数，功能是获取上次输入操作的时间
  GetLastInputInfo(pill);
  Result := GetTickCount - pill.dwTime;   //返回值的单位为毫秒
end;