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

lukash256

Дата 25.4.2008, 02:59 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

3gpacTe!
подскажите талковый способ проверки занят ли файл другим процесом/потокам обработки или нет.

Wolfgan

Дата 25.4.2008, 07:29 (ссылка)

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

Загрузка ...

Новичок

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

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

Попробуй так:

Код


function ApplicationUse(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;

или так:

Код


function E9FileStatus(const Origin: string): boolean;
var
  F: TFileStream;
begin
  try
    F := TFileStream.Create(Origin, fmOpenReadWrite or fmShareExclusive);
    try
      Result := true;
    finally
      F.Free;
    end;
  except
    Result := false;
  end;
end;

Rennigth

Дата 25.4.2008, 11:37 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(lukash256 @ 25.4.2008, 02:59

)

занят ли файл другим процесом/потокам

Wolfgan, CreateFile везвращает INVALID_HANDLE_VALUE не только когда файл занят. Надо еще GetLastError смотреть. smile

Код


function FileIsLocked(const AFilePath: string): Boolean;
var
  hFile: Cardinal;
begin
  Result := False;
  if FileExists(AFilePath) then
  begin
    hFile := CreateFile(PChar(AFilePath), GENERIC_READ or GENERIC_WRITE, 0,
      nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
    if (hFile = HFILE_ERROR) and ((GetLastError = 32) or (GetLastError = 33)) {имен констант незнаю} then
      Result := True
    else
      CloseHandle(hFile);
  end;
end;

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

(* Honesta mors turpi vita potior *)

lukash256

Дата 25.4.2008, 16:56 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

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

Спасибо.

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