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

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

как узнать открыт файл или нет?

Страницы:   < 1 2 3 >

umbra ©   (2005-09-21 12:17:00) 

Я подозреваю, что это довольно частый вопрос, но поиском ничего не нашел. Как при доступе к файлу определить открыт ли он уже каким либо процессом (приложением) или нет? Намекните, пожалуйста

---

umbra   (2005-09-21 13:53:00) [41]

> Tonich ©


Спасибо!

---

Digitman   (2005-09-21 12:21:00) [42]

>  Как при доступе к файлу


смотря что подразумевается под "доступ к файлу" ..

---

Tonich   (2005-09-21 12:20:00) [43]

один из вариантов



function UseFile(FilePath:string):boolean;
var
HFileRes:HFILE;
begin

 Result := False;
 try
   if not FileExists(FilePath) then Exit;

   HFileRes := CreateFile(Pchar(FilePath),GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,0);

   Result  := (HFileRes = INVALID_HANDLE_VALUE);
   if not Result then CloseHandle(HFileRes)
 finally
 end;



---

Страницы:   < 1 2 3 >

Наверх