[Delphi] Sobescrevendo um arquivo somente leitura

[ReDNoS]

Olá pessoal da ScriptBrasil, eu não sei nada de Delphi e precisava de um código-fonte que sobescrevesse um arquivo de texto. Pois bem, achei um código fonte só que o problema que ele não sobescreve arquivos que estejam como somente leitura.

Outra dúvida que tenho é de como acessar a pasta %SystemRoot% pelo delphi?

VLW!

Editado Agosto 27, 2009 por ReDNoS

[Jhonas]

Olá pessoal da ScriptBrasil, eu não sei nada de Delphi e precisava de um código-fonte que sobescrevesse um arquivo de texto. Pois bem, achei um código fonte só que o problema que ele não sobescreve arquivos que estejam como somente leitura.

Poste o código .... é necessario mudar o atributo do arquivo

Outra dúvida que tenho é de como acessar a pasta %SystemRoot% pelo delphi?

Acessar Pasta ou Registro do windows?

abraço

[ReDNoS]

Olá pessoal da ScriptBrasil, eu não sei nada de Delphi e precisava de um código-fonte que sobescrevesse um arquivo de texto. Pois bem, achei um código fonte só que o problema que ele não sobescreve arquivos que estejam como somente leitura.

Poste o código .... é necessario mudar o atributo do arquivo

Outra dúvida que tenho é de como acessar a pasta %SystemRoot% pelo delphi?

Acessar Pasta ou Registro do windows?

abraço

var
original,fake : string;
teste.txt   : TextFile;

begin
fake:='fake';
original:='original';


assignfile(teste, 'C:\windows\system32\teste.txt');
rewrite(teste.txt);
writeln(teste.txt,fake + ' ' + original + '##  Testando ##');
closefile(teste.txt);


end.

No caso do %systemroot% seria para acessar a pasta.

[Douglas Soares]

Para você saber o caminho da pasta system do windows, use a função no link abaixo:

http://www.comandodigital.com.br/forum/index.php?showtopic=5

Abraços

[ReDNoS]

Para você saber o caminho da pasta system do windows, use a função no link abaixo:

http://www.comandodigital.com.br/forum/index.php?showtopic=5

Abraços

Hum, ok obrigado. Agora só falta eu saber como fazer para sobescrever um arquivo idependentemente de ele estar como somente leitura ou não.

[Douglas Soares]

Opa, ta ai sua solução:

http://www.comandodigital.com.br/forum/index.php?showtopic=6

Abraços!

[ReDNoS]

Opa, ta ai sua solução:

http://www.comandodigital.com.br/forum/index.php?showtopic=6

Abraços!

Vlw mesmo hein ;D!

[Jhonas]

achei um código fonte só que o problema que ele não sobescreve arquivos que estejam como somente leitura.

Faça esta alteração no código

procedure TForm1.Button1Click(Sender: TObject);
var Attrib: integer;
    original,fake : string;
    teste.txt   : TextFile;
begin
  Attrib:=FileGetAttr('C:\windows\system32\teste.txt');
  if Attrib<>-1 then
  begin
    Attrib:=Attrib and not faReadOnly;
    if FileSetAttr('C:\windows\system32\teste.txt', Attrib) <> 0 then
       SetFileAttributes(PChar('C:\windows\system32\teste.txt'), FILE_ATTRIBUTE_NORMAL);
  end;

  fake:='fake';
  original:='original';

  assignfile(teste, 'C:\windows\system32\teste.txt');
  rewrite(teste.txt);
  writeln(teste.txt,fake + ' ' + original + '##  Testando ##');
  closefile(teste.txt);

end;

OBS: Lembrando que a pasta %SystemRoot% é a propria pasta do Windows

abraço