[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;

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