Консультация № 62573
14.11.2006, 12:15
0.00 руб.
0 3 1
Доборого времени суток уважаемые эксперты. Хочу написать простенькую программу. Допустим у меня есть папочка "Вход"(она пуста).Как только я закидываю в эту папку файл,он автоматически переносится в другую папку(например "Выход").И нужно чтобы программа запускалась вместе с windows. Подскажите пожалуйста как примерно это можно осуществить.

Обсуждение

давно
Мастер-Эксперт
425
4118
14.11.2006, 12:57
общий
А какой у Вас Паскаль?
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Неизвестный
14.11.2006, 12:58
общий
На паскале довольно сложно (извращаться точно придется) - на Delphi / VC++ более реально. Для компактности конечного файла придется использовать WinAPI или какую-дь библиотеку типа KOL (для Delphi)
Неизвестный
14.11.2006, 13:59
общий
это ответ
Доброе время суток, Respect

для таких случаев, имхо, предлагаю использовать object pascal - воспользуйтесь средой delphi, 32х разрядной неважно какой версией и написать код на TSR программу(постоянно находится в памяти) на проверку файлов в каталоге, который также можно будет передать хоть параметрами, хоть жестко закодировать

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

в аттаче пример саб, которую нужно запускать через некоторый промежуток времени (в delphi это организуется с пом ttimer)

с уважением, удачи


Приложение:
procedure TForm1.Timer1Timer(Sender: TObject);var SearchRec:TSearchRec;beginif findfirst(‘C:\*.*‘, faAnyFile, SearchRec) = 0 then repeat //листбокс чтобы только смотреть за процессом //listbox1.Items.add(SearchRec.Name); movefile(‘C:\‘+SearchRec.Name,‘C:\NEwfolDer\‘+SearchRec.Name); until findnext(SearchRec)<>0;findclose(SearchRec);end;поставьте необходимый интервал
Форма ответа