Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Console Application

Автор: KIPISH 26.4.2004, 12:21

Всем привет,у ня прога в определённое время выводит время и играет музыку и всё,а как написать
её в консольном приложении,ведь нужно чтоб время кажный раз проверялось,а в консоли она закрывается и всё
как зделать???

Автор: Cashey 26.4.2004, 13:15

Вот, простейший пример, который выводит на экран, через каждые 10 мин. информацию о времени. Здесь только сложность придусмотреть выход из программы по нажатию на какую-нибудь клавишу.

Код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  label Lbegin;
  var
  t: TDateTime;
  Hour, Min, Sec, MSec: Word;
begin
t := time();
writeln(timetostr(t));
Lbegin:
DecodeTime(t, Hour, Min, Sec, MSec);
if time() = EncodeTime(Hour, Min+10, Sec, MSec) then begin
        writeln(timetostr(time()));
        t := time()
end;
goto Lbegin;
end.

только не рекоммендую ставить с точностью до секунды.

Автор: KIPISH 26.4.2004, 21:02

Спасибо...