Проверить статус файла

[MAcK]

Приветствую.

Есть ли функции, которые проверяют, закрыт ли файл или открыт.

Пример:

Var

F: TextFile;

begin
....
reset(F);

// проверить, открыт ли файл. Это нужно, так как CloseFile вызывается не 
// в той же процедуре что и Reset.

CloseFle(F);


end;

[BOBAH13]

CreateFile + проверка на результат INVALID_HANDLE_VALUE, если так угодно, то можно еще GetLastError