отключение ошибок ввода вывода

[nikolas0]

Как проделать это?
{$I-}
{$I+}
не работает
что как?

[veniside]

{$I+ }

procedure TForm1.FormCreate(Sender: TObject);
begin
  ChDir('C:\not a fodler');
end;

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'File not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

С {$I-} всё тихо спокойно. Так что должно работать.

[nikolas0]

ну я тебе говорю.
не работает у меня

[veniside]

support@borland.com

[nikolas0]

Сообщение от veniside

support@borland.com

спасибо
всё сам исправил
этим

ErrorMode := SetErrorMode(SEM_FailCriticalErrors);

[veniside]

Ну вот, а говорил не работает, всё прекрасно работает )