Модератор: Модераторы
Sniper писал(а):хочу написать программу, которая бы напоминала мне что прошли 45 минут работы за компьютером и порабы сделать перерыв.
Код: Выделить всё
uses sysutils;
begin
writeln(DateTimeToStr(now));
end.Интерфейс простой, форма, кнопка, label (время показывает оставшееся)
Т.е я запускаю программу в начале рабочего дня и она работает весь день дальше сама. Каждые 45 минут она пишет "Пора прерваться и сделать кофе с бутербродом" а через 15 минут после этого пишет "За работу пора!" и всё повторяется сначала.
Код: Выделить всё
{$LONGSTRINGS ON}
{$RANGECHECKS ON}
{$SMARTLINK ON}
uses SysUtils;
var
t : TSystemTime;
begin
while true do begin
Sleep(1000);
GetLocalTime(t);
WriteLn(t.hour, ':', t.minute);
end; {wend}
end.
А то это напоминает изобретение велосипеда.
Replicator писал(а):Кстати, под винду недавно написал программу, которая XP блокирует. Я к тому, что при необходимости перерыва, надо заблокировать комп, а через 15 минут разблокировать. Чтоб не отвертеться от перерыва
Если надо, могу поделиться исходниками.
