[Wendy]

Здравствуйте, уважаемые участники форума! Я здесь впервые и хотела бы задать вопрос. Проблема такая. Есть логическая бомба, которая запускается, как только обнаруживает на диске 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;

Буду очень признательна за помощь!

[Decoding]

Сначала проверь наличие диска в устройстве 'a' - http://decoding.narod.ru/faq/hard/di...ll001.html#003 (тут несколько вариантов, выбери тот, который не выдает ошибок). И если диск есть, проверяй наличие файла...

[Wendy]

М-да, если посидеть-подумать, это всё не так трудно, как кажется. Но про такие операции я не знала. Мне ещё учиться и учиться... Огромное спасибо! Завтра поеду сдавать лабу. А то бы я не знаю сколько бы ещё думала. Спасибо!