Retirar Atributo Somente Leitura De Arquivo

[SilvioDelgado]

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.

Abraços,

Silvio Delgado

www.fileseek.tk

[Capablanca]

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.