Free for PREMIUM members
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
function MilliSecondsIdle: DWord;
liInfo.cbSize := SizeOf(TLastInputInfo) ;
Result := GetTickCount - liInfo.dwTime;
function SecondsIdle: DWord;
Result := MilliSecondsIdle Div 1000;
procedure TForm1.tmrIdleTimer(Sender: TObject);
lblLastInput.Caption:=Format('Last Input %f s',[MilliSecondsIdle/1000]);
Open in new window
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.