Согласитесь приятно, когда что-то делается автоматически. Например, дверь закрывается по средствам автодоводчика, в магазине по средствам считывателя штрихкода можно определить цену товара, телевизор самостоятельно настраивается на оптимальное качество приема сигнала, ну и так далее - ведь в век всеобщей автоматизации продолжать список можно бесконечно. А как приятно, когда твоя собственная программа, сама закрвается через определенный, удобный тебе промежуток времени.
И сделать себе приятно, оказывается, не сложно - всего пара строк на delphi. Каких? Давайте посмотрим. Следуя вполне очевидному алгоритму: задали время в EditMs:TEdit, естественно в милисекундах, нажали кнопку btnSet. По нажатию кнопки запустился таймер TTimer (подробнее о компоненте жмите и читайте) и закрыл программу через установленное время.
Исходники Delphi:
procedure TForm1.btnSetClick(Sender: TObject);
begin
Timer1.Interval:=StrToInt(EditMs.text);
Timer1.Enabled:=true
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=false
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
close
end;
Задавайте в TEdit различные значения для .interval и получите несказанное удовольствие от того, что прикоснулись к автоматизации процесса закрытия программки.
Более сложные вариации на тему могут быть реализованы в программе на заказ. Мои контакты.
| 