SilvioDelgado Postado Outubro 4, 2004 Denunciar Share Postado Outubro 4, 2004 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 Delgadowww.fileseek.tk Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Capablanca Postado Outubro 4, 2004 Denunciar Share Postado Outubro 4, 2004 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.