بستن برنامه با استفاده Thread بعد یک زمان مشخص

[fahimi]

سلام
چگونه می توان در صورتیکه کاربر ظرف یک زمان معین از موس و صفحه کلید استفاده نکرد با استفاده از Thread برنامه بصورت خودکاربسته شود

[Mask]

به این کار : محاسبه زمان IDLE سیستم گفته میشه.
یعنی زمانی که دست به موس و کیبورد نخوره . idle بوسیله خود سیستم عامل محاسبه میشه.
میشه در یک تایمر این زمان رو بررسی کرد.

function SecondsIdle: DWord;var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;

[یوسف زالی]

البته خود application هم یه رویداد براش داره