Como saber de um arquivo esta aberto?!

Delphi

03/03/2004

Olá pessoal, tudo bão?

É o seguinte:

:arrow:


digamos que eu tenha um programa rodando na minha máquina que esta acessando um arquivo.dat

Ate ai tudo ok.

mas, digamos tb, que na minha máquina, eu abra outro programa que vai acessar esse mesmo arquivo.dat

Ate ai tudo ok.

Massssss, tem como saber se o arquivo.dat esta aberto?

Exemplo:

o programa 1 ta lendo la os dados. ta ta ta ta, dai o segundo programa vai tentar ler tb, mas antes, quero verificar se ele (o arquivo.dat) estar aberto.

É mais ou menos isso.

qualquer ajuda será bem vinda.

obrigado...


Otto

Otto

Curtidas 0

Respostas

Adilsond

Adilsond

03/03/2004

Function FileIsOpen(const FileName : TFileName) : Boolean;
begin
  Result := False;
  try
    With TFileStream.Create( FileName, fmOpenread or fmShareExclusive)
    do Free;
  except
    Result := True;
  end;
end;



GOSTEI 0
Otto

Otto

03/03/2004

AdilsonD, obrigado pela dica irmão.


um abraço.


GOSTEI 0
POSTAR