Окна ошибки

[xTANATOSx]

Если в программе прийсходит ошибка,то виводитса сообщения о ней.
Как ето отключить?Што б при ошибки нечиво не высвечивалась и программа продолжала работать себе дальше.
Например когда сервер отключен то при пропитки коннекта видаетса "Anynchronous socket error 10061"

[Slovinsky]

Это не совсем ошибка. Это исключение - механизм, поддерживаемый операционной системой и позволяющий уведомить приложение что что-то пошло не так. И давить исключения не нужно, их нужно обрабатывать. Вот прямо с этого сайта статья:
http://pblog.ru/?p=89
а вот из Рихтера:
http://wm-help.net/books-online/book/59464/59464.html (часть V)

Хотя в Delphi обрабатывать исключения можно еще одним способом: прописать обработчик Application.OnException, например так:
1. Кидаем на форму ApplicationEvents с закладки Additional
2. Пишем такой обработчик OnException:

procedure TForm1.ApplicationEvents1Exception( Sender: TObject;
E: Exception);
begin
// Do nothing
end;

И все, окошки выскакивать не будут. Но повторяю, исключения давить, а не обрабатывать - нот гуд

PS: А что именно использовать - try..except или Application.OnException - зависит от задачи. В вашем случае видимо лучше try..except, хотя кода вашего я не видел, так что это предположение.

[Yurk@]

У меня есть функция которая сидит в библиотеке и проверяет наличие файла на сьемных дисках (флоппи, флеш).
Если дискета есть в дисководе - все нормально, а если нет то выводиться сообщение "диск не найден" и проверяется флешка (но почему-то этот цыкл проходит не один раз, а три ).
Вопрос: Как можно подавить "скрыть" от глаз сообщение об отсутствующей дискете??? .... или убрать тройной повтор цыкла???

function CheckDrive :string; stdcall;
var
Dist:string;
ii :integer;
F :TextFile;
begin
Result:='';
for ii := 0 to 25 do
begin
    if (CheckDriveType(ii) = 'FLASH') then
      begin
      try
      Dist:=PChar((Format('%s',[Chr(ii+$41)])+':\'));
      if FileExists(Dist)=True then begin Result:='NOT_READY'; Abort; end
      else
      begin
        AssignFile(F,Dist+'1.txt');
        Reset(F);
        Result:=Dist;
      end;
      Except
      Result:='NOT_READY';
      end;
      end;
end;
end;

CheckDriveType - функция возвращающая тип носителя!