gn="justify"> Процедура CreateTrayIcon.
Заповнюємо структуру, необхідну для створення іконки в треї.
procedure TForm1.CreateTrayIcon (n: integer; Tip: string);: TNotifyIconData; icondata do: = SizeOf (TNotifyIconData);: = Self.Handle;: = n;: = NIF_ICON or NIF_MESSAGE or NIF_TIP;: = NOTIFY;: = Application.Icon.Handle; (szTip, Tip);; _NotifyIcon (NIM_ADD, @ icondata);
end;
Оброблювач Timer1Tick.
Отримуємо поточний час в змінні curHour (години) і curMin (хвилини). Якщо час спрацьовування сигналу встановлено, перевіряємо, чи збігається поточний час з встановленим. Якщо збігається, то вимикаємо будильник, видаємо введене повідомлення, програємо звук, показуємо вікно Form1 і видаляємо іконку з трея. p align="justify"> procedure TForm1.Timer1Tick (Sender: TObject);, curMin: word;: = HourOf (Now);: = MinuteOf (Now); AlarmSetbegin (curHour = AlarmHour) and (curMin = AlarmMin) begin . Show;: = false;. Play; EMCIDeviceError do;; (Edit1.Text); (1); Label2.VisibleLabel2.Visible: = FalseLabel2.Visible: = True;;
end;
В
Малюнок 6. Робота таймера будильника
Процедура DeleteTrayIcon.
Заповнюємо структуру ініціалізації іконки і видаляємо з трея іконку з заповненою структурі.
procedure TForm1.DeleteTrayIcon (n: integer);: TNotifyIconData; icondata do: = SizeOf (TNotifyIconData);: = Self.Handle;: = n;; _NotifyIcon (NIM_DELETE, @ icondata);
end;
програмний файл звукової специфікація
2.2 Специфікація програми
Виконавчий файл Будильник має назву Project1.exe і розташований на змінному носії в каталозі Projects. Склад проекту (Таблиця 1).
Таблиця 1 - Склад проекту.
НаименованиеОбозначениеПримечаниеUnit1.pasФайл програмного модуля для форми № 1Определяет функціональність форми № 1Unit1.dfmФайл форми № 1Содержіт список всіх компонентів, включених у форму № 1Unit1.ddpФайл взаємозв'язків форми № 1Содержіт графічні схеми, наочно пояснюють взаємозв'язку між компонентами. Unit1.dcuОб'ектний файл для Unit1.pasОткомпілірованная версія Unit1.pasProject1.resФайл ресурсовСодержіт піктограми, графічні ізображеніяProject1.dprФайл проектаСвязивает всі файли, з яких складається пріложеніеProject1.dofФайл параметрів проектаСодержіт поточні установки проекту: настройки компілятора і компонувальника, імена службових каталогів, умовні діректівиProject1.cfgФайл налаштувань проектаСодержіт налаштування для консольного варіанту компілятора
2.3 Текст програми
unit Unit1;