50急求: 如何实现判断当前程序不运行,则1分种后,弹出登陆框!

Question

我要实现delpi程序,如果1分钟了没有操作, 则弹出登陆框!   请问如何实现,是判断鼠标事件和键盘事件么?! 非常感谢!

Answer 1

function LastInput: DWord; //检测无操作时间
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

Answer 2

放个timer组建上去，然后双击他，在里面写就行，当然将他的interval属性设置为60000（表示1分钟）

Answer 3

用这个函数和timer组件一起用，timer是无法检测系统有没有操作的。