如何使应用程序在一段时间内没有用户输入时自动锁定?
解决方案 »
- ado连接Ora9的数据读写的循环报错!困惑中!!
- 为什么程序开机自动启动会出现动态连接库函数调用异常
- 求助:一个form中有大量数据需要录入,有七八十个之多
- TClientSocket 和TServerSocket 组件 在DELPHI7中怎么没有,请各位帮忙
- 帮我转c语言delphi语言给100分
- DBGRID中显示密码字段的问题
- 帮帮忙,为什么,有的.DB文件用ACCESS和DATABASE DESKTOP 都打不开呢?
- ADO存图片的几种方法,我都试过了,如下:但都不行,怎么回事,晕,请教高手。(一直在线)
- 如何能从RichEdit中取出有关文字和图片的信息!!!
- Delphi6好用吗???
- 怎样用程序修改winXp的外观?
- SQL SERVER 数据库备份后成一个文件,请问怎么样可以对此文件加密呢?
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := GetTickCount - LInput.dwTime;
end;
//Example:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('System Idle since %d ms', [LastInput]);
end;