|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с диском A:\
Здравствуйте, уважаемые участники форума! Я здесь впервые и хотела бы задать вопрос. Проблема такая. Есть логическая бомба, которая запускается, как только обнаруживает на диске A:\ определённый файл. Если диска нет в дисководе, то ситема Windows выдаёт сообщение Отсутствует диск в дисководе A:\. Как сделать в Delphi, чтобы она его не выдавала (а то так бомба обнаружит себя и тогда это уже будет не бомба, а непонятно что). Исходник такой.
procedure LogicBomb(right:string); var ex:boolean; F:Text; begin ex:=FileExists('A:\Project1.exe'); if ex=true then begin AssignFile(F,'C:\Bomb.txt'); ex:=FileExists('C:\Bomb.txt'); if ex=true then Append(F) else Rewrite(F); WriteLn(F,right); CloseFile(F); end; end; Буду очень признательна за помощь! |
#2
|
||||
|
||||
Сначала проверь наличие диска в устройстве 'a' - http://decoding.narod.ru/faq/hard/di...ll001.html#003 (тут несколько вариантов, выбери тот, который не выдает ошибок). И если диск есть, проверяй наличие файла...
|
#3
|
|||
|
|||
Thanks!
М-да, если посидеть-подумать, это всё не так трудно, как кажется. Но про такие операции я не знала. Мне ещё учиться и учиться... Огромное спасибо! Завтра поеду сдавать лабу. А то бы я не знаю сколько бы ещё думала. Спасибо!
|