السلام عليكم و رحمة الله / أود إضافة خاصية غلق البرنامج ( أي إخفاء الفورم الرئيسي و إظهار فورم تسجيل الدخول ) لما يتوقف المستخدم عن العمل به لمدة أختارها أنا ولتكن مثلاً 10 دقائق
المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً / لمن لديه أي معلومات بهذا الخصوص فلسياعدني و له جزيل الشكر
وعليكم السلام
كود :
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;
بالتوفيق.
شكراً / لكنك لم تفهم سؤالي بالضبط
أنا أتكلم عن مبدأ مشابه لشاشة التوقف الموجودة في windows / عند نشغيل البرنامج يبدأ العد و عند تحريك الفأرة أو الضغط على أي زر يرجع العد من البداية و هكذا ........
SamirAloui كتب :المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً
............
قصدت هنا الدالة المتعلقة بتحريك الفأرة أو ضغط زر ما
وعليكم السلام ورحمة الله وبركاته
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
جزاك الله خيرا اخي m.rabee هذا ما كنت ابحث عنه بالضبط