Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.06.2007, 23:01   #1
Elm0
ObjectPascal,CISCO
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 294
По умолчанию Паскаль. Автоматизировать удаление файла

Проблема:постоянно появляется файл, который уже нервы не выдерживают удалять вручную(файл-продукт деятельности проги).
Решение: пишу код исполнение коего будет(должно)делать:
1)Кидаю экзешник в авторан.
2)Прога будет грузится с вондозой и должна висеть в памяти-быть резидентной.\\Тобишь и кушать мемори она должна как можно меньше
3)Отслеживаем файло (допустим проверяем каждый час)\\или ваши предложения. Просто я считаю не целесообразным делать шоб прога круглый сек-ды следила за состоянием директории..
4)Иф файло тру зен делет ит=)
Вот посморите мой сор.Если честно я ваще не думал и не мучался, но все же. Доплните его кто может шоб соответствовал требованиям, которые Вы уже читали выше-резидент, скан фолдера..
Код:
program eraser;
 uses windos;
 var a:file ;
     bol:TSearchRec;
 begin
  assign (a,'путь к папке где появл. файл');
  Findfirst ('путь к папке где появл. файл',faAnyFile,bol);
  While DosError = 0 do
    begin
    Erase(a);
    Writeln('File has been Deleted');
  end;
End.
Elm0 вне форума Ответить с цитированием
Старый 17.06.2007, 23:11   #2
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Могу предложить дополнение:
имеем 2 проги.
Первая ваша. Работает так: запуск_проги+стерли_файл+закрыли_пр огу.

Вторая прога_ висит в загрузке, и через нужное время вызывает первую прогу (del)

P.S. delay(1000); {задержка 1 сек}
Alex21 вне форума Ответить с цитированием
Старый 18.06.2007, 08:58   #3
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

только не Delay, она кушает проц. Я уже где-то на форуме писал про задержку (НО это на Делфе!)

Код:
var  WhEvent:THandle;
begin
WhEvent:=CreatEvent(nil,true,false,'111');//создаём "пустое" событие
while true do
 begin
 WaitforSingleObject(WhEvent,10000); //задержка 10 сек
 Application.processMessages;
 ... //здесь наши периодические действия
 end;
end;
Да, и кстати... Паскалевские проги... Это же MS-DOS, насколько я помню Windows XP не имеет доса, а только виртуальную машуну ДОС - а она кушает не так уж и мало, особенно процессор.
Напиши лучше на Делфи.

Последний раз редактировалось zetrix; 18.06.2007 в 09:05.
zetrix вне форума Ответить с цитированием
Старый 18.06.2007, 09:57   #4
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от zetrix Посмотреть сообщение
Напиши лучше на Делфи.
Т.к. проге не нужна форма, тогда можно:
Delphi + WinApi + ASPack (или подобный компрессор)
Alex21 вне форума Ответить с цитированием
Старый 18.06.2007, 10:26   #5
Elm0
ObjectPascal,CISCO
Форумчанин
 
Регистрация: 22.05.2007
Сообщений: 294
По умолчанию

Цитата:
Сообщение от Alex21 Посмотреть сообщение

Вторая прога_ висит в загрузке, и через нужное время вызывает первую прогу (del)
Тоже вариант, спасибо!
Цитата:
Сообщение от zetrix
Windows XP не имеет доса, а только виртуальную машуну ДОС - а она кушает не так уж и мало, особенно процессор.
Да ты прав!
Цитата:
Сообщение от zetrix
Напиши лучше на Делфи.
Да,выход конечно, но в том то и дело хочу своими эксперементами и с Вашей помощью посмотреть сколько такая простенькая прога будет кушать изначально..и после некотрого тюнинга. Вот!
А потом уже накатать на Дельфях и..Сравнить!!!!Ох-хо-хо!=)Самому интересно стало!!!Давайте чуваки, подключайтесь!!!

Последний раз редактировалось Elm0; 18.06.2007 в 10:28.
Elm0 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление файла mopozoff Общие вопросы Delphi 1 13.06.2008 21:25
удаление строчки из файла tigr1991 Общие вопросы Delphi 4 01.02.2008 22:51
Типизированные файлы.Создание, удаление, редактирование, сортировка записей типизированного файла.Паскаль Студент Шиза Помощь студентам 6 08.12.2007 13:41
Удаление файла Македонский Общие вопросы Delphi 5 06.09.2007 11:46
Удаление строки из файла Македонский Общие вопросы Delphi 5 29.08.2007 15:40