Обработка ИС

← →
Igit © (2003-02-11 16:33) [0]

Для проверки файла на занятость использую это:
try Assignfile(source, opensavedialog1.Filename); reset(source); closefile(source); except label3.Caption:="Файл используемый Windows"; exit; end;
Но прога вылетает.

← →
Mars (2003-02-11 16:48) [1]

Обработка исключительных ситуаций из под Delphi не работает!
Запусти откомпилированый EXE"шник, вылетать не будет.

← →
Smithson © (2003-02-11 16:50) [2]

Вернее, среда Delphi тоже обрабатывает исключения. Это можно отключить в меню Tools -> Debbuger Option -> Stop On Language Except. Снять галку - совсем не будет хватать ошибки или можно добавить неинтересующие ИС в список.

← →
Igit © (2003-02-11 17:18) [3]

Не получается... пробовал так:
Program Test; uses Windows; var source:file; begin try Assignfile(source, Paramstr(0)); reset(source); closefile(source); MessageBox(0, "Все замечательно", "Test", MB_OK); except MessageBox(0, "Ошибка при открытии", "Test", MB_OK); end; end.

Ну никак не работает

← →
Mars (2003-02-11 17:58) [4]

Добавь модуль

uses Windows, SysUtils;

Да, ем, к чему такие сложности??? Обрабатываю IORESULT и все, мля...

Можно ли обойтись без использования модуля SysUtils ?

Обработка ИС Найти похожие ветки