Паскаль. Автоматизировать удаление файла

[Elm0]

Проблема:постоянно появляется файл, который уже нервы не выдерживают удалять вручную(файл-продукт деятельности проги).
Решение: пишу код исполнение коего будет(должно)делать:
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.

[Alex21]

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

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

P.S. delay(1000); {задержка 1 сек}

[zetrix]

только не 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 не имеет доса, а только виртуальную машуну ДОС - а она кушает не так уж и мало, особенно процессор.
Напиши лучше на Делфи.

[Alex21]

Сообщение от zetrix

Напиши лучше на Делфи.

Т.к. проге не нужна форма, тогда можно:
Delphi + WinApi + ASPack (или подобный компрессор)

[Elm0]

Сообщение от Alex21

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

Тоже вариант, спасибо!

Сообщение от zetrix

Windows XP не имеет доса, а только виртуальную машуну ДОС - а она кушает не так уж и мало, особенно процессор.

Да ты прав!

Сообщение от zetrix

Напиши лучше на Делфи.

Да,выход конечно, но в том то и дело хочу своими эксперементами и с Вашей помощью посмотреть сколько такая простенькая прога будет кушать изначально..и после некотрого тюнинга. Вот!
А потом уже накатать на Дельфях и..Сравнить!!!!Ох-хо-хо!=)Самому интересно стало!!!Давайте чуваки, подключайтесь!!!