ver se o Arquivo esta aberto???

Delphi

01/06/2004

tem como eu ver se o arquivo XXX.XXX esta aberto?

por exemplo se eu estiver com o arquivo XXXX.DOC o sistema ver que vc esta com o aqruivo XXXX.DOC e nao deixa outra pessoa abrilo na rede.. soh quando o cara liberar este arquivo;...


Zumbi

Zumbi

Curtidas 0

Respostas

Otto

Otto

01/06/2004

Olá Pedro,

veja se é isso que queres:

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




flw...


GOSTEI 0
Zumbi

Zumbi

01/06/2004

eh isso mesmo..


tem como eu asociar o meu prog ao arquivo para que o user nao possa abrilo pelo explore por exemplo?


GOSTEI 0
Otto

Otto

01/06/2004

Bem, ai ja fica mais compliado, sinceramente não sei nao... :(


GOSTEI 0
POSTAR