então, da uma olhada no Help, FileOpen()  tem um exemplo interessante.

Att,
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo....@gmail.com
Site: http://www.drdsistemas.com.br/
.......................................................


2009/7/30 Marcos Abreu Ferreira <m.abreuferre...@hotmail.com>

>
>
> 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 <delphi-br%40yahoogrupos.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]
> >
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]

Responder a