function FileExclusive(const Arquivo:String):Boolean;
var n:integer;
begin
Result:=True;
n:=FileOpen(Arquivo,fmOpenWrite or fmShareDenyNone);
if n>=0 then begin
FileClose(n);
Result:=False;
end;
end;
Retorna True se tiver usado e False se tiver livre....
----- Original Message -----
From: stainle2003
To: delphi-br@yahoogrupos.com.br
Sent: Monday, March 05, 2007 1:09 PM
Subject: [delphi-br] Arquivo em Uso
Como posso saber se um arquivo TXT ou outro qualquer ainda está sendo
gerado por outro aplicativo para que eu possa fazer uso deste arquivo,
só irei usar se ele já estiver terminado(fechado).
grato
Stainle
[As partes desta mensagem que não continham texto foram removidas]
