Programa para reescribir un archivo

[Yusk333]

agregarla en esa parte tu me dices ,,,

procedure TForm1.Button1Click(Sender: TObject);

entonces como quedaria

procedure TForm1.Button1Click(Sender: TObject,ComObj);

y abajo todo el source como lo tenias enteriormente?
no se mucho de programacion me da un poco de pena jejejej ,,,,

[[egostar]]

No, pena no es robar sino que te agarren en la movida

Tranquilo no pasa nada hombre, que nadie nace sabiendo, el código es tal como está, solo que si ves al principío de tu programa, verás una sección que es Uses

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

Ahí es donde debes de agregar la unidad que te dije ComObj.

Salud OS

[Yusk333]

ok ok ,,, xD jejee,,, ya mira asi esta como quedara ya terminado y todo el show ,,,,,

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

      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;

ahora me estaban diciendo que lo codeara o protegiera con algun algoritmo

[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ó.