+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : غلق البرنامج تلقائياً عند مرور مدة معينة (/showthread.php?tid=4171)
غلق البرنامج تلقائياً عند مرور مدة معينة - SamirAloui - 07-05-2012
السلام عليكم و رحمة الله / أود إضافة خاصية غلق البرنامج ( أي إخفاء الفورم الرئيسي و إظهار فورم تسجيل الدخول ) لما يتوقف المستخدم عن العمل به لمدة أختارها أنا ولتكن مثلاً 10 دقائق
المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً / لمن لديه أي معلومات بهذا الخصوص فلسياعدني و له جزيل الشكر
غلق البرنامج تلقائياً عند مرور مدة معينة - Agmcz - 07-05-2012
وعليكم السلام
كود :
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 - 07-05-2012
شكراً / لكنك لم تفهم سؤالي بالضبط
أنا أتكلم عن مبدأ مشابه لشاشة التوقف الموجودة في windows / عند نشغيل البرنامج يبدأ العد و عند تحريك الفأرة أو الضغط على أي زر يرجع العد من البداية و هكذا ........
غلق البرنامج تلقائياً عند مرور مدة معينة - Agmcz - 08-05-2012
SamirAloui كتب :المشكل هي أني لم أجد الدالة التي أبدأ بها بتشغيل التايمر للمدة المطلوبة حتى يتم غلق البرنامج تلقائياً............
غلق البرنامج تلقائياً عند مرور مدة معينة - SamirAloui - 08-05-2012
قصدت هنا الدالة المتعلقة بتحريك الفأرة أو ضغط زر ما
غلق البرنامج تلقائياً عند مرور مدة معينة - m.rabee - 11-05-2012
وعليكم السلام ورحمة الله وبركاته
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 - 12-05-2012
جزاك الله خيرا اخي m.rabee هذا ما كنت ابحث عنه بالضبط