Ver Mensaje Individual
  #11  
Antiguo 22-08-2007
Avatar de Yusk333
Yusk333 Yusk333 is offline
Miembro
 
Registrado: ago 2007
Posts: 34
Reputación: 0
Yusk333 Va por buen camino
ok muchas gracias ,,, me parece exelente ,, entonces el codigo ya terminado quedaria asi le podrian echar un vistaso....


Cita:
procedure TForm1.Button1Click(Sender: TObject);
var
txt: textFile;
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);

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

end;
osea que escriba en el archivo las lineas y abra el explorador ,, y una pregunta mas ,, es que si ese compilador que dije me sirve para compilar ese source
Responder Con Cita