Delphi уроки. Временное ограничение на работу программы.

В этом уроке я покажу вам 2 способа поставить временное ограничение на работу программы.

Способ №1 Более интересный.

Первое что нам нужно сделать это кинуть на форму 2 компонента label с закладки Standart и один компонент timer с закладки system.
Объявляем переменные: для реализации данного способа нам понадобиться две глобальные переменные:

1) Opentime
2) Closetime тип у них будет tDateTime

В общем если кто не понял то после ключевого слова var пишем вот такую строчку:
closetime, opentime: tdatetime; сразу скажу что если вы хотите чтобы информационная безопасность фирмы или вашей программы была на высоте, данный способ придется в разы усложнить, здесь показан лишь простой пример...

Идем дальше, теперь создаем обработчик событий на форме OnCreate - для этого просто кликаем на форме 2 раза
между begin end пишем следующий код:

opentime:= time; //Функция time выдает нам время в данный момент
closetime:= opentime+strtotime('00:00:30');
//Здесь мы добавляем к времени старта нужное время.
//В данном случае - в формате чч:мм:сс
label1.Caption:=timetostr(opentime);

С формой разобрались, переходим к таймеру также создаем обработчик событий на нем OnTime
Между begin end; пишем:

if time > closetime then //Если текущее время > времени окончания //программы то
begin
showmessage('Время работы программы истекло ! '); //Показываем //сообщение
close; //закрываем программу
end;
Label2.Caption:=timetostr(opentime-closetime); // иначе показываем время //до завершения программы

Вот в принципе и все, осталось только выставить true в свойстве Enabled у таймера.

Способ №2 Более простой.

Кидаем на форму компонент timer с закладки system. Свойство Enabled выставляем на true. Свойство Interval ставим равное 30000 (через 30 сек программа закроется).
Создаем обработчик событий Ontime в нем прописываем следующий код

showmessage('Время работы программы истекло ! ');
close;

Вот и все!

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.

Похожие материалы

• Уроки Delphi: DBGrid передать все значения в строке в другую форму
• Непонятные файлы. Откуда ?
• Delphi уроки: Динамически (программно) создаем новую форму.
• Выбор лотка принтера для печати
• Delphi уроки - Загружаем в BitBtn картинку формата jpg

Последние из рубрики

• Уроки Delphi: DBGrid передать все значения в строке в другую форму
• Возможности Delphi 2007
• Непонятные файлы. Откуда ?