Отследить каталок на наличие файлов

← →
kyn66 © (2006-07-07 10:07) [0]

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

← →
DrPass © (2006-07-07 10:15) [1]

Появления файлов в каталоге можно отследить парой функций FindFirstChangeNotification("каталог", false, FILE_NOTIFY_CHANGE_FILE_NAME) + WaitForSingleObject

← →
kyn66 © (2006-07-07 10:23) [2]

Я вроде читал, что эта функция не работает в Win9x

← →
Desdechado © (2006-07-07 10:41) [3]

> эта функция не работает в Win9x
В справке этого я не нашел.
Да и тебе не все равно, если у тебя " [D7, WinXP] "?

← →
kyn66 © (2006-07-07 10:43) [4]

Так прога пишется универсальная, под любую ось.

← →
Desdechado © (2006-07-07 10:45) [5]

> под любую ось
Под мою BeOS тоже?

тогда и перечисли все оси, а не WinXP

← →
kyn66 © (2006-07-07 10:52) [6]

Согласен, только может лучше о вопросе поговорить?

← →
Gero © (2006-07-07 10:55) [7]

Каких каталок?

← →
kyn66 © (2006-07-07 10:59) [8]

8-) КАТАЛОГ !

← →
Desdechado © (2006-07-07 11:01) [9]

> лучше о вопросе поговорить?
Уже все сказано в DrPass © (07.07.06 10:15) [1]

Gero © (07.07.06 10:55) [7]
Каталка - это выдвижной (из стеллажа) ящик на колесах. В ящике есть папки и файлы.
;)

← →
kyn66 © (2006-07-07 11:04) [10]

> Desdechado
Это одна часть вопроса, а остальное???

← →
Юрий Зотов © (2006-07-07 11:12) [11]

> kyn66

> Я вроде читал, что эта функция не работает в Win9x
А если не полагаться на "вроде", а просто заглянуть в справку?

> может лучше о вопросе поговорить?
О каком вопросе? Где он, вопрос-то?

Я два раза внимательно прочитал сабж, но вопросов в нем не обнаружил. Там изложено, что должна делать программа, которую Вы хотите написать, но ни одного конкретного вопроса там нет.

Так в чем же он, вопрос-то? О чем говорить-то будем?

← →
Desdechado © (2006-07-07 11:12) [12]

иконки в трей и меню к ним есть в факе
http://www.delphimaster.ru/faq.shtml

← →
kyn66 © (2006-07-07 11:44) [13]

...

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

...

← →
Плохиш © (2006-07-07 11:55) [14]

> kyn66 © (07.07.06 11:44) [13]
> ...
>
> Как только файл появился, всплывает информационное окошко(реализовано)

Класс, ну ты крут.

> затем иконка в трее начинает мигать

Эффект мигания достигается обычно сменой иконки.

> показывает кол-во найденных файлов

Создаёшь картинку и запихиваешь в иконку

> И ешшо нужна возможность при правом клике по иконке вывести
> попап

Не понял что это означает, но и TRxTrayIcon есть свойство PopupMenu.

← →
Юрий Зотов © (2006-07-07 11:55) [15]

> kyn66 © (07.07.06 11:44) [13]

Я это уже читал, причем дважды и внимательно. Прочитал и в третий раз, но ни одного КОНКРЕТНОГО вопроса так и не нашел.

Потому что на вопрос "Как написать программу" может быть только один ответ - сесть и написать.

Вы именно ЭТО хотите услышать? Или у Вас есть КОНКРЕТНЫЕ вопросы?

← →
kyn66 © (2006-07-07 12:06) [16]

> Юрий Зотов
Ну что-же, нужно признать, критика - справедлива.

← →
Slym © (2006-07-07 14:55) [17]

GUI - TxxxTrayIcon+TPopupMenu
Core - TTimer+FindFirst\FindNext+BallonHint
Settings - TForm1 + TIniFile

← →
kyn66 © (2006-07-07 15:48) [18]

> Slym
Вот это подходит

← →
Desdechado © (2006-07-07 15:52) [19]

> Core - TTimer+FindFirst\FindNext
Ну, и зачем ерзать диском каждые N миллисекунд, если можно просто подписаться на извещение от операционки?

> Desdechado
Да ни фига в 98 не работает!
"Программа выполнила недопустимую операцию..." и обломс..

> Программа выполнила недопустимую операцию
Так запрограммируй, чтоб выполнила допустимую.

Вот и ищу способ. Если через таймер.... отойти от извещение от операционки... Вот к примеру, получив извещение я выдаю к примеру окно-хинт. А что будет, если я в каталок залью 100 файлов, так эти хинты засыпят мне весь экран

>kyn66 © (07.07.06 16:21) [22]
а что будет, есил 1000? а будет вырывание на себе волос и горестные причитания: "надо сначала думать, а потом писать, а не наоборот!"

> kyn66 © (07.07.06 15:58) [20]

> Да ни фига в 98 не работает!
Помнится, работало.

> "Программа выполнила недопустимую операцию..." и обломс..
Сдается, что причина "обломса" вовсе не в 98-й.

← →
Шпиён (2006-07-08 16:18) [25]

> kyn66 © (07.07.06 15:58) [20]
> > Desdechado
> Да ни фига в 98 не работает!
> "Программа выполнила недопустимую операцию..." и обломс.
> .

> Юрий Зотов © (08.07.06 13:30) [24]
> > kyn66 © (07.07.06 15:58) [20]
>
> > Да ни фига в 98 не работает!
> Помнится, работало.
>
> > "Программа выполнила недопустимую операцию..." и обломс.
> .
> Сдается, что причина "обломса" вовсе не в 98-й.

Причина "облом-са" в 98 может быть вызвана может быть в том, что не выполнено условие (см. MSDN):
LPCTSTR lpPathName, // directory name
Windows 95/98: This string must not exceed MAX_PATH characters.

Конкретно этот "облом-с" не проверял, но на подобные грабли не далее как вчера встал ... на совсем "безобидной" функции -)

← →
Шпиён (2006-07-08 16:21) [26]

> Шпиён (08.07.06 16:18) [25]

> Причина "облом-са" в 98 может быть вызвана может быть в
> том, что не выполнено условие (см. MSDN):

уххх...прошу прощения за жуткое построение фразы.... отвлекся на телефон и не перечитал пост перед отправкой -)
Читать надо:
Причина "облом-са" в 98 может быть вызвана тем, что не выполнено условие...

← →
Шпиён (2006-07-08 16:27) [27]

Еще круче... точно мозги от жары раславились -))) Ладно хоть смысл понятен.... больше не буду править, а то еще хуже выйдет

> Шпиён
Да, да, там что-то ругалось на то, что якобы или каталог не существует, или он неверный...

Отследить каталок на наличие файлов Найти похожие ветки