Verificar se arquivo TXT est� em uso

Question

GaleraPreciso verificar se o arquivo txt est� sendo usado por outros usu�rios ou n�o.Aguardo...

Romulo Contro · Answer

tenta renomear ele... se renomear � pq ninguem t� com ele aberto, se n�o, alguem est� usando....

Junior Miranda · Answer

Voc� tamb�m pode tentar deletar o arquivo.[]�s...

Deivison Melo · Answer

Boa tarde,Tente utilizar a fun��o abaixo:/*inicio*/function IsFileInUse(FileName: TFileName): Boolean;var  HFileRes: HFILE;begin  Result := False;  if not FileExists(FileName) then Exit;  HFileRes := CreateFile(PChar(FileName),                         GENERIC_READ or GENERIC_WRITE,                         0,                         nil,                         OPEN_EXISTING,                         FILE_ATTRIBUTE_NORMAL,                         0);  Result := (HFileRes = INVALID_HANDLE_VALUE);  if not Result then    CloseHandle(HFileRes);end;/*fim*/Exemplo de uso:/*inicio*/procedure TForm1.Button1Click(Sender: TObject);begin  if IsFileInUse(c:Programsdelphi6bindelphi32.exe) then    ShowMessage(File is in use.);  else    ShowMessage(File not in use.);end;/*fim*/...

Huelbert Oliveira · Answer

Essa fun��o funciona somente com EXE, j� tinha tentado ela....

Huelbert Oliveira · Answer

Renomeando n�o deu certo, mesmo utilizando renomeia.

Excluindo tamb�m n�o deu certo, ele deleta mesmo utilizando.

Se fosse um EXE era s� utilizar a fun��o acima, mas como � um TXT at� agora n�o encontrei uma solu��o.

Romulo Contro · Answer

putz, tava testando aqui... realmente, quando � txt, vc pode renomear, apagar, alterar, e fazer o que for... ele nao fica travado =/

to acompanhando o t�pico, pq agora fiquei curioso tamb�m, mas n�o tenho id�ia :S

F�rum Verificar se arquivo TXT est� em uso #421331