Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

проверка - открыт ли файл другим приложением   Найти похожие ветки 

 
stud ©   (2005-12-19 17:02) [0]

народ, подскажите как проверить открыт ли файл любой другой программой
я использую функцию Openfile/
f_handle:=openfile(pchar(source+"\"+sr.name),buffer,OF_SHARE_EXCLUSIVE);
if (f_handle>0) then
если я с помощью нее открываю файл - то другим программам отказано в доступе.
но если другая программа открыла этот же файл раньше меня - то я все равно могу открыть этот файл.


 
programania ©   (2005-12-19 21:26) [1]

А если
OF_READWRITE+OF_SHARE_EXCLUSIVE


 
fast2   (2005-12-20 14:53) [2]

Исспользуй функцию:
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;
end;

Возврат false - файл не занят. Функция написаная не мной - нарыл где-то на этом форуме. Спасибо автору!


 
Leonid Troyanovsky ©   (2005-12-20 15:47) [3]


> fast2   (20.12.05 14:53) [2]

> Возврат false - файл не занят.


И что это дает?
Сейчас не занят, а в следующий момент занят.
Т.е., не нужно никакой такой функции: нужен файл - открываем,
работаем (закрываем), если отлуп - изучаем причины.

--
Regards, LVT.


 
umbra ©   (2005-12-20 16:08) [4]

в общем случае - никак. если файл кто-то открыл эксклюзивно - тогда Вы его не откроете. НО если это текстовый файл - ничего не гарантируется. некоторые программы ставят лок на него, некоторые - нет.



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
14-1134647613
Хинт
2005-12-15 14:53
2006.01.08
Оптимизация и/или защита DLL


5-1120571225
Priest
2005-07-05 17:47
2006.01.08
Количество строк в выпадающем списке св-ва в Objeсе Inspector


14-1134560149
syte_ser78
2005-12-14 14:35
2006.01.08
Прога для вебмастеров


14-1134405185
Ксардас
2005-12-12 19:33
2006.01.08
довольно интересный эффект получается...


14-1133450740
Kerk
2005-12-01 18:25
2006.01.08
Приглашение в orkut