Eduardo,

estou abrindo o arquivo com os comando abaixo. Gostaria de saber antes se ele 
esta aberto por outra aplicação.

var F: TextFile;

begin
  AssignFile(F, 'arquivo.@@@');
  Rewrite(F);
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;


Att,

Marcos Ferreira
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos <eduardo....@...> 
escreveu
>
> tenta abrir o arquivo em modo exclusico usando  a função FileOpen()
> 
> Att,
> .......................................................
> Eduardo Silva dos Santos
> DRD SISTEMAS
> (27) 3218-4201
> (27) 9961-7095
> MSN: eduardo....@...
> Site: http://www.drdsistemas.com.br/
> .......................................................
> 
> 
> 2009/7/30 Marcos Abreu Ferreira <m.abreuferre...@...>
> 
> >
> >
> > Pessoal,
> >
> > preciso saber se um arquivo txt está disponível ou não para gravação, se
> > tem algum outro editor com ele em aberto. Alguém saberia me dizer como fazer
> > isso no Delphi 7?
> >
> > Att,
> >
> > Marcos Ferreira
> >
> >  
> >
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>


Responder a