Скачать: CL | DM;

Как работает функция?   Найти похожие ветки 

← →
fast2   (2006-06-22 10:09) [0]

function TForm1.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;
end;

Нашел ее в инете. До сих пор проверял ею, открыт ли документ ворда или нет. Вопрос в том, можна ли этой ф-ей проверить, занят (открыт) ли сейчас файл файловой БД (Парадокс). И вообще - как работает ф-я?

---

← →
tesseract ©   (2006-06-22 10:27) [1]

> И вообще - как работает ф-я?


пытается захватить файл в монопольное пользование, если он занят - то кирдык .

Вообще неплохо-бы проверять getlasterror на ERROR_ACCESS_DENIED.

---

← →
fast2   (2006-06-22 10:34) [2]

>Вообще неплохо-бы проверять getlasterror на ERROR_ACCESS_DENIED.
Как можно переделать вышеописаную функцию?

---

← →
tesseract ©   (2006-06-22 10:58) [3]

вызывай после неё GetLastError и смотри, что он возвращает.

---

← →
fast2   (2006-06-22 11:01) [4]

Если можна, напишите код, как это сделать. Буду очень благодарен!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c