如何获取操作系统的状态? 如题!比如正在运行全屏程序,正在看碟,鼠标或键盘已有一段时间未作任何动作了等等! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 >>鼠标或键盘已有一段时间未作任何动作了等等!function LastInput: DWord; 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; 急急急~求高手幫我看下什麽錯誤 麻烦帮看看这个循环错在哪里了,感谢 COM+高手进 是平台问题吗? 请教一个数据库表结构问题! 一个关于string字段的排序问题 关于Socket问题,有点难度 菜鸟问题:请问DBGrid控件如何获取数据? 我的application.Minimize不起作用 我想用记录型二进制文件做数据库,如何才能删除文件中指定的记录?? 一个关于cxdrid的问题?? 大哥,能否一条语句求出三个表中某字段的最大值/最小值.
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;