Programa para reescribir un archivo

[Yusk333]

Error in module Unit1: Declaration of class TForm1 is missing or Incorrect

ese error me sale al correrlo instale delphi 7 ...-.- jjojojojojojo

[[eduarcol]]

Prueba quitando el form1 del procedure

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');
end;

[[egostar]]

Empezado por Yusk333

ese error me sale al correrlo instale delphi 7 ...-.- jjojojojojojo

Es que copiaste tal cual el código, así no se hace esto.

Lo que debes hacer es crear un nuevo proyecto, pegar un TButton, darle doble click al botón y meter el código que estamos viendo y la unidad ComObj en la sección Uses.

Saud OS.

[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