Delphi исходник - персональный советчик

Опубиковано: 10.12.2011 г., автор: , просмотров: 13388

Исходник шуточной программы, которая дает пользователю полезные (и не очень) советы. После запуска программа поселяется в системный трей и при нажатии на её значек (напоминающий кукла винкс), на экране выскакивает давольно забавный мужик с бутылкой и начинает философствовать далеко не на трезвую голову.

Кстати все фразы, которые он будет говорить берутся в случайном порядке из файла thoughts.txt поэтому при желании вы сможете легко изменить их на свои собственные. Лично мне исходник показался довольно забавным, сначала я обучил человека разговаривать по русски, затем добавил напоминания о делах которые мне необходимо сделать.

Скачать исходник для Delphi 7

P.S. Хотите вперед всех остальных посетителей сайта получать свежие Видео уроки, Аудио подкасты, статьи по Delphi.
Участвовать в конкурсах и постепенно вливаться в нашу команду ?!
Тогда прямо сейчас подписывайтесь на бесплатную мультимедийную рассылку сайта delphiexpert.ru
Нас уже больше чем 10000 человек ! Подписаться



Похожие материалы

Последние из рубрики

Михаил 16 May 2012 в 00:00 #
Чтобы "говорил" по-русски: 1.Отредактируйте файл thoughts.txt. Удалите английские и впишите русские фразы.
2.В программе в модуле unit Text внесите изменения: а)в procedure BuildGroups(FileName: String) в цикле while в строке if (Ord(c)>31 and (Ord(c)<127) then buff:=buffer; замените 127 на 255. б)в function GenerateText: String; в строке if text[i] in [′A′..′Z′] then ok:=true; замените буквы русскими т.е. напишите [′А′..′Я′]. Вот и все. Успехов.
Novell++ 09 May 2012 в 00:00 #
Подскажите как сделать чтоб программа понимала русский язык?
Если можно по пожалуйста вышлите исходник на novell_angel@mail.ru
DoggyXomaX 21 Feb 2012 в 00:00 #
List index out of bound (0) - плохой советчик так набухался, что нифига работать не хочет =(
ms301 15 Dec 2011 в 00:00 #
e меня ошибку кидает(((
MorteS 10 Dec 2011 в 00:00 #
Спасибо очень пригодилось.
А как заставить его русский текст говорить ?

ОтменитьДобавить комментарий