Здравствуйте!
Есть необходимость проверки наличия определенного файла в папке, и при его нахождении - завершение работы программы.
Пробовал делать через
Оно работает, но после первого срабатывания - грузит процессор на 20-30%.
Прочитал про функцию AdlibRegister. Но, похоже, чего-то я не понимаю. По примеру сделал так:
Она срабатывает один раз, и больше не вызывается.
Есть необходимость проверки наличия определенного файла в папке, и при его нахождении - завершение работы программы.
Пробовал делать через
Код:
While 1
If FileExists ("C:\Install\scan\scan.txt") Then ProcessClose("connect.exe")
FileDelete("C:\Install\scan\scan.txt")
WEnd
Оно работает, но после первого срабатывания - грузит процессор на 20-30%.
Прочитал про функцию AdlibRegister. Но, похоже, чего-то я не понимаю. По примеру сделал так:
Код:
AdlibRegister("MyAdlib", 500) ; каждые пол-секунды вызываем функцию MyAdlib
Sleep(3000) ; в течение 3 сек
Func MyAdlib()
If FileExists ("C:\Install\scan\scan.txt") Then ProcessClose("connect.exe")
FileDelete("C:\Install\scan\scan.txt")
EndFunc
Она срабатывает один раз, и больше не вызывается.