Verificar Se Arquivo Esta Em Uso

[Guest Joana]

Boa tarde

Gostaria de verificar se um arquivo esta em uso..

verificar se o arquivo teste.txt esta em uso

se alguém puder me ajudar agradeço muito

Joana

[Guest Joana]

ate achei essa dica...mas não sei como executa-la

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;

// no lugar do FileName eu coloquei o caminho do arquivo que quero verificar se esta em uso