manipulando arquivo

Delphi

06/08/2013

Olá pessoal.
Gostaria de saber como faço para manter um arquivo aberto pela aplicação de forma exclusiva e de forma oculta.

Preciso fazer com que minha aplicação abra somente uma instância por usuário logado.
Para isso, eu crio um arquivo com o nome desse usuário e tenho que manter esse arquivo aberto, ocupado, pela aplicação.
Assim quanto tentarem abrir pela segunda vez a aplicação, ela tentará criar o mesmo arquivo e não vai conseguir, dai apresento a mensagem de que já existe uma instância da aplicação aberta, e encerro.

Agradeço desde já qualquer ajuda.
Vagner Almeida

Vagner Almeida

Curtidas 0

Respostas

Junior Miranda

Junior Miranda

06/08/2013

É só criar e não fechar o arquivo através da sua rotina
ex:
var
  F: TextFile;
Begin
  AssignFile(F, 'c:\teste.txt');
  try
    Rewrite(F);
  finally
    // CloseFile(F);  => Não fecho o arquivo! Com isso, enquanto o programa estiver rodando, o arquivo estará em uso.
  end;
end;


[]´s
GOSTEI 0
Junior Miranda

Junior Miranda

06/08/2013

É só criar e não fechar o arquivo através da sua rotina
ex:
var
  F: TextFile;
Begin
  AssignFile(F, 'c:\teste.txt');
  try
    Rewrite(F);
  finally
    // CloseFile(F);  => Não fecho o arquivo! Com isso, enquanto o programa estiver rodando, o arquivo estará em uso.
  end;
end;


[]´s
GOSTEI 0
Deivison Melo

Deivison Melo

06/08/2013

Por favor, assim que testar sinalizar para que possamos colocar o post como concluído!

Abração e bons códigos!!
GOSTEI 0
Vagner Almeida

Vagner Almeida

06/08/2013

Obrigado pessoal, funcionou direitinho.
GOSTEI 0
POSTAR