Programa para reescribir un archivo

[Yusk333]

ya man muchisimas gracias creo que ya lo tengo ya le di RUN y que se me habre el explorador

ahora ndmas a dejarlo en exe ,,,,, jojojojojojo

[[egostar]]

Empezado por Yusk333

ya man muchisimas gracias creo que ya lo tengo ya le di RUN y que se me habre el explorador

ahora ndmas a dejarlo en exe ,,,,, jojojojojojo

Al darle RUN ya te creo el exe, buscalo donde tienes tu programa.

Salud OS y que bien que ya funcionó.

[Yusk333]

al ejecutarlo me sale un recuadro gris y dice "FORM 1" o sea si hace todo el programa pero me sale ese recuadro no habra manera de quitarlo

[[eduarcol]]

Me imagino que con recuadro te refieres al formulario?????

[Yusk333]

aja un cuadro gris ,,, que dice en la barra" FORM1" al momento de ejecutarlo no habra manera de quitar eso :s

[[eduarcol]]

Sigo sin entender que quieres, pero si lo que necesitas es que cuando le des click al boton ocultar el formulario esto debe servirte

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj;

      procedure Button1Click(Sender: TObject);
var
  txt: textFile;
  IE: Variant;
begin
  Form1.Visible := False;
  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;

y para cerrarlo al terminar de ejecutarse

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj;

      procedure 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');
  Form1.Close;
end;