|
#1
|
||||
|
||||
DevilBell
DevilBell (Дьявольский будильник) - программка-будильник, создаёте будильник, он вам "прозвенит" как вы захотите (в данной версии 2 способа оповещения - звуковой файл и спикер). Самому очень помогает, когда за компом засиживаешся он тебе напомнит (если, конечно, установлен будильник) что пора на боковую. В общем принцип будильника знают все - юзайте.
P.S.: название программы произошло от неофицального названия будильника - "чёртава хрень!", примерно эти слова каждый засоня кричит под звон будильника. Качаем с Dump (обновлено, версия 0.9с) TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; Последний раз редактировалось AleD, 20.11.2009 в 09:41. |
#2
|
||||
|
||||
Цитата:
|
#3
|
||||
|
||||
здесь по адёжке встречают? ладно, вот:
http://delphisources.ru/forum/attach...1&d=1253788282 TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
||||
|
||||
Я оценил! Хорошо сделанно.
Работа с треем, реестром - продуманно |
#5
|
|||
|
|||
Будильничек понравился - удобный в юзании... Теперь с работы буду вовремя уходить :-) Из пожеланий (мелочи, но всё-ж): в MessageBox-ах, Dlg-ах заменить заголовки окон, по дефолту привязывать звуковой файл к пути установки\Sounds\Tadadam.wav (или я чего-то не доглядел), и реализовать функцию автовыключения ПК в назначенное время... Это всё ИМХО...
|
#6
|
|||
|
|||
Не верно написАл: по дефолту привязывать звуковой файл к пути экзешника\Sounds\Tadadam.wav на .OnCreate при первом запуске.
|
#7
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#8
|
||||
|
||||
Цитата:
С изображением то быстрее представляешь нужно ли тебе тратить на это время или нет. |
#9
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#10
|
|||
|
|||
Цитата:
Вообщем (по крайней мере у меня так) (Win XP SP3) когда в проге прописан путь "./Sounds/Tadadam.wav" - файл не воспроизводится, приходится задавать явным образом - тогда всё ок... |
#11
|
|||
|
|||
Может имеет смысл сделать в проге так: fullpath := ExtractFilePath(Application.Exename) + 'Sounds\tadadam.wav'; ? ИМХО
|
#12
|
|||
|
|||
Хотя не... Попробовал ещё раз с начальными настройками ("./Sounds/Tadadam.wav") - проиграл... Правда когда нажимаешь ещё раз воспроизвести - не воспроизводит повторно... Или так задумано?
|
#13
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#14
|
||||
|
||||
Цитата:
TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#15
|
|||
|
|||
А через PlaySound не пробовал?
|