Como verificar se arquivo texto j� est� aberto?

Question

Qual a forma correta de verificar se um determinado arquivo texto j� se encontra aberto por outro programa? Quero abrir um determinado arquivo texto, mas s� que em modo exclusivo, ou seja, o mesmo n�o...

M. C. · Answer

Algu�m pode ajudar?...

Adalberto Brasaca · Answer

N�o sei se voc� conseguiu resolver... Em todo caso, vai um c�digo que achei na net...

function IsFileInUse(fName : string) : boolean;
var //fNAME � o caminho com o nome do arquivo a ser testado se est� em uso.
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);
end;

Se a fun��o retornar True, o arquivo est� em uso. Caso retorne False, n�o est�.

Ol�,

N�o consegui resolver n�o.

Se n�o me falha a mem�ria, j� tentei algo muito parecido com essa sua fun��o.

Vou ver se com a sua ajuda a coisa aqui d� certo.

Grato pela sua aten��o.

M. C. · Answer

Ol�,N�o consegui resolver n�o.Se n�o me falha a mem�ria, j� tentei algo muito parecido com essa sua fun��o.Vou ver se com a sua ajuda a coisa aqui d� certo.Grato pela sua aten��o....

Alessandro Yamasaki · Answer

/*inicio*/function IsFileInUse(FileName: TFileName): Boolean;var  HFileRes: HFILE;begin  Result := False;  if not FileExists(FileName) then Exit;    HFileRes := CreateFile(PChar(FileName),    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;/*fim*/Exemplo de uso:/*inicio*/procedure TForm1.Button1Click(Sender: TObject);beginif IsFileInUse(c:Programsdelphi6bindelphi32.exe) thenShowMessage(File is in use.);elseShowMessage(File not in use.);end;/*fim*/...

F�rum Como verificar se arquivo texto j� est� aberto? #447214