Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

доступ к файлу   Найти похожие ветки 

← →
hooch   (2004-09-13 13:58) [0]

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

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

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

---

← →
Fay ©   (2004-09-13 14:09) [1]

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;

---

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

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

---

← →
Fay ©   (2004-09-13 14:31) [3]

Ну ваще 8)

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.023 c