无操作*秒后，退出

 procedure TFormMain.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
  vLockTime: integer;
begin
  StatusBar1.Panels[3].Text := '当前时间:' + FormatDateTime('yyyy年MM月dd日 HH:nn:ss', Now);
  if GLogined and GBLockFlag then
  begin
    vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(vLastInputInfo);
    vLockTime := GRRegisterInfo.LogoutDelayTime - (GetTickCount - vLastInputInfo.dwTime) div 1000;
    if vLockTime < 0 then
    begin
      Timer1.Enabled := False;
      pri_ChangeUser := True;
      Close;
    end
    else
    begin
      LabelLockTime.Caption := Format('系统将在%d秒无操作后自动注销！ ', [vLockTime]);
//      LabelLockTime.Font.Color := clMenuHighlight;
    end;
  end;
end;