مدت زمان

[Tasnim]

سلام دوستان
میخاستم بدونم چطور میشه مدت زمانی رو که سیستم بدون استفاده است رو تشخیص داد(مثل اسکرین سیور)
ممنون:متفکر:

[Hamid_PaK]

//This function will do tha job
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

function LastWork: DWord;
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := GetTickCount - LInput.dwTime;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
memo1.lines[0] := Format('System Idle since %d ms', [LastWork]);
end;

منبع : دلفی 3000 (http://www.delphi3000.com/articles/article_4243.asp?SK=)
یا حق ...