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

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

доступ к файлу

hooch ©   (2004-09-13 13:58:00) 

День добрый !
Суть проблемы: в директорию копируется файл, пока он копируется он заблокирован, как можно узнать что файл заблокирован ?
FileOpen(.. fmOpenWrite or fmShareExclusive) всёравно возращает хенл файла, получилось через Assign

Assign(..)
try
Rewrite(..)
except
 // файл заблокирован
end

но так мне не нравится :-) можно как-нибудь ещё узнать что файл заблокирован ?

---

Fay   (2004-09-13 14:31:00) [1]

Ну ваще 8)

---

hooch   (2004-09-13 14:19:00) [2]

спасибо большое ! помогло :-)

---

Fay   (2004-09-13 14:09:00) [3]

var
 h : DWORD;
begin
 CreateFile('c:\anyfile.ext', GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0);
 if h = INVALID_HANDLE_VALUE then RaiseLastOSError;
 try
   // Супер-код
 finally
   CloseHandle(h);
 end;
end;

---

Наверх