Programa para reescribir un archivo

[Yusk333]

antes que nada perdon por las faltas ,,

mira si bien lo que quiero es un programar server que al momento que sea ejecutado sobreescriba en un archivo de la maquina supongamos que en la maquina existe el archivo test.txt , y se encuentra en la siguiente ruta

c:\windows\system32\test.txt

y el archivo contiene escritura , sea lo que sea ,,

entonces al momento de ejecutar ese server o programa se agregue un texto extra al archivo test.txt , o sea que sobreescriba o si bien lo cambie por uno del mismo nombre pero con el texto que le pida que se sobreescriba

ya sobreescribiendo el archivo , despues el server corra o abra otro programa como por ejemplo el iexplorer.exe

creo no estoy muy seguro para esa funcion se usa

"ShellExecute(iexplorer.exe, www.laweb.com)"

de antemano gracias

[Yusk333]

estuve viendo varios codigos y me encontre este :

ar
auxtext:String ;
begin
filename:= dialogo_salvar.FileName;
{filename almacena el path + nombre del archivo a
crear}
AssignFile(text_file,filename+’.txt’);
{asignamos a text_file el nombre del archivo para
crear}
rewrite(text_file); {abrimos para escribir}
write(text_file,editor.text);
{ponemos lo que hay en el editor en el archivo}
closefile(text_file); {cerramos el archivo}
end;

segun es para sobreescribir aun no se mucho de programacion me gustaria saber donde puedo meterel texto que sesobre escribira etc

gracias de antemano

[[cHackAll]]

Bueno para lo úlrimo revisa éste hilo. y seguimos para atrás.

Para insertar o modificar el contenido de un texto puedes hacer dos cosas, la primera es borrar el archivo y crearlo de nuevo con el contenido que necesitas, la segunda es sobreescribirlo. Y para adicionar un texto puedes abrirlo, irte al final y escribir. Para la última te dejo un poco de código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var txt: TextFile;
begin
 AssignFile(txt, 'c:\aaa.txt');
 Append(txt);
 WriteLn(txt, 'Una linea más');
 CloseFile(txt);
end;

0j0 que el archivo debe existir... si no es lo que buscas haz otro intento para explicarnos.

Saludos & welcome!

[Yusk333]

si de echo lo que quiero modificar es un archivo del sistema ,,, pero no contiene extencion ,, no es archivo txt pero de echo lo lee el bloc de notas


no habra algun problema al meter ese code ,,,ya que veo que dice "txt"
o sea no habra problema que me lo modifique y quede de "test" a "test.txt"

[xeBuz]

Empezado por Yusk333

o sea no habra problema que me lo modifique y quede de "test" a "test.txt"

No, si tiene texto el archivo y se puede abrir/escribir no deberia importar la extension

[Yusk333]

ok muchas gracias entonces mi code para sobre escribir y abrir el explorador quedaria asi , pero mi pregunta es ,,,, si no existe el archivo ,,, lo podria crear o marcaria un error ,

procedure TForm1.Button1Click(Sender: TObject);
var txt: txtFile;
begin
AssignFile(txt, 'c:\WINDOWS\system32\archivo');
Append(txt);
WriteLn(txt, 'lineas
lineas
lineas
lineas ');
CloseFile(txt);

var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://www.marca.com');
end;

ya nadamas quedaria compilarlo en delphi 7 ,, o alguno de ellos

[Yusk333]

una duda mas ,,, me podria servir para compilar este delphi o sea esa version






http://rapidshare.com/files/45844966...ition.v7.2.rar



gracias de antemano y me gusto este foro