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
- Непонятные файлы. Откуда ?