Atributo de Arquivo

Question

Como saber se uma pasta esta como somente leitura (em todas as plataformas windows).
win95,98...Ate XP.
e estando como leitura, como eu mudo o

Antseralves · Answer

procedure TForm1.Button1Click(Sender: TObject);

var Attr : integer;

begin

Attr := FileGetAttr(�C:\MinhaPasta\MeuArquivo�);

if (Attr and faReadOnly) <> 0 then
begin
FileSetAttr(�C:\MinhaPasta\MeuArquivo�,Attr-faReadOnly);
DeleteFile(�C:\MinhaPasta\MeuArquivo�);
end;

end;