Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Занят файл или нет ?


KyRo ©   (2006-03-16 13:15:00) 

Как проверить что файл доступен для записи , а не занят каким небуть другим потоком или приложением. ??


clickmaker   (2006-03-16 14:34:00) [1]


> KyRo   (16.03.06 14:33) [8]

ответили уже в [1]


KyRo   (2006-03-16 14:33:00) [2]

Все равно не подходит ини его видно не открывает и по этому другие потоки все равно влазят.
> Desdechado ©   (16.03.06 13:28) [3]
> попытайся открыть в монопольном режиме (SHARE_DENY)
> если не получилось, то занят


А как его открывать в монопольном режиме ?


Fay   (2006-03-16 13:55:00) [3]

2 KyRo   (16.03.06 13:50) [6]
constructor TCustomIniFile.Create(const FileName: string);
begin
 FFileName := FileName;
end;

И всё 8)


KyRo   (2006-03-16 13:50:00) [4]

Да я уже почитал щас так и буду делать но интересно
когда создан ини
IniF:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'ParsStatus.st');
и в него не чего не пишется то файл будет считатся открытым или нет ?


Fay   (2006-03-16 13:45:00) [5]

2 KyRo   (16.03.06 13:21) [2]
М.б. всё-таки стоит почитать справку по CreateFile?
"Что небуть" полезное для себя выяснить?


KyRo   (2006-03-16 13:36:00) [6]

А вот так я могу сделать ?

  {$I-}
 IniF.WriteInteger(FileN[NomHr],'ProcesID',NomHr);
 {$!+}
 res := IOResult;
if res <> 0 then
и далее что нужно ?


Desdechado   (2006-03-16 13:28:00) [7]

попытайся открыть в монопольном режиме (SHARE_DENY)
если не получилось, то занят


KyRo   (2006-03-16 13:21:00) [8]

Нет я не хочу его создавать или пересоздовать мне просто надо посмотреть
пишет ли в него другой процес или же файл сейчас свободен и можно его открыть и записать в него что небуть


Fay   (2006-03-16 13:17:00) [9]

CreateFile(, , 0, ...)


Наверх

Титульная страница Поиск, карта сайта Написать письмо