VPF::Открыт ли файл - Форум программистов

Underdark

Дата 12.1.2005, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 70
Регистрация: 12.7.2004
Где: Ульяновск

Репутация: 1
Всего: 2

Люди, всем привет! smile

Подскажите, можно ли средствами дельфи определить открыт ли файл какой-то другой программой. Это необходимо для обеспечения совместного доступа к одному файлу, например, с разных компьютеров.

Rennigth

Дата 12.1.2005, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

можно ловить ексепшен при попытке чтения

Код


function "blablabla"...
var
  lFile : TFileStream;
begin
...
  lFile := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
  try
    Result :=lFile.Size; //этот except лови (необязательно size)
  finally
    lFile.Free;
  end;
...
end;

Добавлено @ 10:56
если не ошибаюсь одновременно смогут несколько читать если незанят для записи

--------------------

(* Honesta mors turpi vita potior *)

Дата 12.1.2005, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Код


Function FILE_in_USE(fName : string ) : boolean;
var
 HFileRes : HFILE;
begin
 Result := false;
 if not FileExists(fName) then exit;
 HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
 Result := (HFileRes = INVALID_HANDLE_VALUE);
 if not Result then CloseHandle(HFileRes);
end;

Это сообщение отредактировал(а) RAdmin - 12.1.2005, 11:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »