Programa para reescribir un archivo

[[egostar]]

Pues lo he ejecutado en Delphi4 Standard así que debe de poder compilarse con cualquier Delphi

Solo una cuestión

si quieres que todo se haga en un solo procedimiento así deberías de colocar el código

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var 
  txt: textFile;
  IE: Variant;
begin
  AssignFile(txt, 'c:\WINDOWS\system32\archivo');
  if fileexists('c:\WINDOWS\system32\archivo') then
     Append(txt)
  else Rewrite(txt);
  Writeln(txt, 'linea1'+#13#10+ // Suponiendo que quieras meter varias lineas
               'linea2'+#13#10+ // al archivo, usamos #13#10 evitando usar 
               'linea3'+#13#10+ // Writeln para cada linea que quieras meter.
               'linea4');
  CloseFile(txt); 
  IE := CreateOleObject('InternetExplorer.Application');
  IE.Visible := True;
  IE.Navigate('http://www.marca.com');
end;

Nota: La función CreateOleObject requiere de que agregues la unidad ComObj en la sección de Unit al principio del programa.

Salud OS