到底如何才能实现程序的锁定？

Question

我现在在做一个东西，也就是在程序运行后，如果用户有一段时间未动计算机（时间可以给定），则弹出要求输入密码的对话框。希望大家来帮帮忙。真的很急的！！！

Answer 1

为Application.OnMessage事件建立一个句柄，检测中断屏幕保护的条件是否满足。在Main_Form的Private中加入以下代码： 
procedure Detect(var Msg:TMsg;var Handled:boolean);
在implementation中加入以下代码：
procedure TSav_Form.Detect(var Msg:TMsg;
var Handled:boolean);
Var
Done:boolean;
begin
Done:=false;
if （Msg.message=WM_KEYDOWN or
Msg.message=WM_MOUSEMOVE) then
done:=true;
if done then
begin
close;
end;
end在定时器中检测，下面的工作就是看你的了