Eyesaver

type Tstate = (work, pause);
var
  Form1: TForm1;
  TimeStart: TTime;                         //начальное время
  TimeNow: TTime;                           //время сейчас
  WorkMin: integer;                         //Время работы
  PauseMin: integer;                        //Время паузы
  Path: string;                             //Путь
  State: TState = work;                     //Статус работа или пауза
  Autorun: boolean;                         //есть ли мы в автозапуске
  Warning: integer;                         //время предупреждения
  WarningDoes: boolean = false;             //было ли предупреждение
  FirstStart: boolean = false;              //является ли запуск первым
  f:TForm;
 
const
  ProgName = 'Eyesaver';
  WorkMinValue = 'WorkMin';
  PauseMinValue = 'PauseMin';
  AutorunValue = 'Autorun';
  SectionName = 'Default';
  WarningValue = 'Warning';
  IconFile = 'tray.ico';

procedure TForm1.SpinEdit1Change(Sender: TObject);
var reg: TRegistry;                         //Настройки будем хранить в реестре
begin
  reg := TRegistry.Create;
  reg.RootKey := hkey_current_user;
  reg.OpenKey('software\Eyesaver',false);
  WorkMin := form1.SpinEdit1.Value;         //соответственно, PauseMin и Warning в зависимости от спинэдита
  reg.writeinteger(WorkMinValue,WorkMin);
  reg.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Path := ExtractFilePath(ParamStr(0));    //это будет нужно для добавления в автозапуск
  TimeStart := now;                           //Берём начальное время
  TimesCheck;                                 //читаем время из реестра
  AutorunCheck;                               //проверяем, есть ли мы в автозапуске
  Application.OnMinimize := ApplicationMinizme;       //это событие будет сворачивать программу в трей
  form1.Left := (screen.Width div 2) - (form1.Width div 2);     //выносим форму в центр экрана
  form1.Top := (screen.Height div 2) - (form1.Height div 2);
  Label7.Caption := 'Предупре-'+#10#13+'ждение';
  if state = work then                                         //если сейчас работаем,
  begin                                                        //то ставим соответствующий enabled
    form1.Button2.Enabled := false;                            //кнопкам Остановить или Запустить
    form1.Button1.Enabled := true;
    form1.N2.Enabled := true;
    form1.N3.Enabled := false;
  end;
  if FirstStart then             //Если программа запущена впервые,
  begin                          //Отобразить подсказки
    ShowHints(1);                //и остановить отсчёт времени
    form1.Button1Click(self);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TimeNow := now;                  //берём время
  label3.Caption:=inttostr(MinuteOf(TimeNow-TimeStart))+'    '+IntToStr(SecondOf(TimeNow-TimeStart));
  if MinuteOf(TimeNow - TimeStart) = WorkMin then      //если время вышло,
  begin
    TimeStart := TimeNow;                              //Обнуляем секундомер
    Timer1.Enabled := false;                           //и включаем второй таймер
    Timer2.Enabled := true;
    DoPause;                                          //Затемняем экран и сообщаем об истечении времени
    state := pause;
  end;
  if MinuteOf(TimeNow - TimeStart) = Warning then   //Здесь обрабатывается предупреждение об истечение времени
  begin
    TimeNow := now;
    if WarningDoes = false then DoWarning;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  TimeNow := now;                 //смотрим время
  label6.Caption:=inttostr(MinuteOf(TimeNow-TimeStart))+'    '+IntToStr(SecondOf(TimeNow-TimeStart));
  if MinuteOf(TimeNow - TimeStart) >= PauseMin then   //если время вышло
  begin
    TimeStart := TimeNow;                             //обнуляем секундомер
    Timer2.Enabled := false;                          //включаем первый таймер
    Timer1.Enabled := true;
    DoWork;                                           //убираем затенение и возвращаемся к работе
    state := work;
    WarningDoes := false;
  end;
end;