Ir para conteúdo
Fórum Script Brasil
  • 0

Retirar Atributo Somente Leitura De Arquivo


SilvioDelgado

Pergunta

Olá, pessoal.

Já busquei em toda parte, mas não encontrei.

Alguém conhece alguma rotina que retire o atributo somente-leitura de um arquivo?

Agradeço desde já qualquer ajuda. smile.gif

Abraços,

Silvio Delgado

www.fileseek.tk

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Olá,

Dê uma olhada neste exemplo. Ele é bastante simples mas faz o que você está precisando (ou seja, ele mudará o atributo do arquivo teste.txt se o mesmo for READ-ONLY). Coloque um componente BUTTON e adicione o código descrito abaixo no seu evento OnClick.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ArquivosReadOnly(const Dir, Mask:string);
var
  S:TSearchRec;
begin
  if (FindFirst(Dir+Mask, faAnyFile-faDirectory, S)=0) then
  repeat
    if (S.Attr and faReadOnly)>0 then
    begin
      SetFileAttributes(PChar(Dir+s.Name), FILE_ATTRIBUTE_NORMAL);
      // DeleteFile(Dir+S.Name) // Tire os comentários desta linha caso queira excluir o arquivo READ-ONLY
    end
  until (FindNext(S)<>0);
  FindClose(S)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ArquivosReadOnly('c:\', 'teste.txt')
end;

end.

Abs.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...