غلق البرنامج تلقائياً عند مرور مدة معينة

[SamirAloui]

السلام عليكم و رحمة الله / أود إضافة خاصية غلق البرنامج ( أي إخفاء الفورم الرئيسي و إظهار فورم تسجيل الدخول ) لما يتوقف المستخدم عن العمل به لمدة أختارها أنا ولتكن مثلاً 10 دقائق

المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً / لمن لديه أي معلومات بهذا الخصوص فلسياعدني و له جزيل الشكر

[Agmcz]

وعليكم السلام

كود :

var TS: TDateTime; procedure TForm1.FormCreate(Sender: TObject); begin TS := Now; end; procedure TForm1.Timer1Timer(Sender: TObject); var n: string; begin n := FormatDateTime('n', Now - TS); if StrToInt(n) >= 10 then Application.Terminate; end;

بالتوفيق.

[SamirAloui]

شكراً / لكنك لم تفهم سؤالي بالضبط

أنا أتكلم عن مبدأ مشابه لشاشة التوقف الموجودة في windows / عند نشغيل البرنامج يبدأ العد و عند تحريك الفأرة أو الضغط على أي زر يرجع العد من البداية و هكذا ........

[Agmcz]

المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً

............

[SamirAloui]

قصدت هنا الدالة المتعلقة بتحريك الفأرة أو ضغط زر ما

[m.rabee]

وعليكم السلام ورحمة الله وبركاته

PHP كود :

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


PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Format('System Idle since %d ms', [LastInput]);
end; 


كود :

http://www.swissdelphicenter.ch/torry/showcode.php?id=2018

[SamirAloui]

جزاك الله خيرا اخي m.rabee هذا ما كنت ابحث عنه بالضبط