Delphi获得计算机系统配置,DELPHI获取电脑系统空闲时间

用Delphi获取电脑系统空闲时间

主要代码：

function GetLastInput: integer; //获取闲置时间

var

LInput: TLastInputInfo;

begin

Result := 0;

try

LInput.cbSize := SizeOf(TLastInputInfo);

GetLastInputInfo(LInput);

Result := ((GetTickCount - LInput.dwTime) div 1000);

except

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if GetLastInput > 10 then

Label1.Caption :='你已经'+ inttostr(GetLastInput) + '秒没有操作计算机了！'

else

Label1.Caption :='';

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

Label2.Caption :='电脑空闲时间：' + inttostr(GetLastInput) + '秒';

end;