Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > доступ к файлу

Автор: lukash256 25.4.2008, 02:59

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

Автор: Wolfgan 25.4.2008, 07:29

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

Код


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

Цитата(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;

Автор: lukash256 25.4.2008, 16:56

Спасибо.