Buscar

Verifica se um determinado arquivo está aberto.

Código

// Verificando se um determinado arquivo está aberto

var
   S: TStream:
begin
try
   try
     S := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive);
   except
     on EStreamError do Result := False; // EFOpenError
   end;
finally
   S.Free;
end;
end;

   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 16/06/09
Por: Denilson De Andrade
Visualizada: 9059 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009