Agregar peso vacio a un ejecutable

[ecfisa]

Hola Lepuke.

Intenta de este modo:

Código Delphi [-]
var
  buf: array[0..50*1024] of Byte;
begin
  with TFileStream.Create('test.exe', fmOpenReadWrite) do
  try
    Seek(0, soFromEnd);
    FillChar(buf, SizeOf(buf), 0);
    Write(buf, SizeOf(buf));
  finally
    Free;
  end;
end;

Saludos

[JuanOrtega]

funciona excelente ecfisa , gracias por la ayuda , te queria preguntar sobre esta linea :

var   buf: array[0..50*1024] of Byte;

el tema es que cuando haga personizable el programa necesito tener el valor 1024 en un edit1 y desde el var parece que no puedo hacerlo porque hago :

var   buf: array[0..50*edit1.Text] of Byte;

¿ hay alguna forma de establecer el valor del byte buf en otro lado donde pueda ponerle el valor de 1024 desde una caja de texto ? , te lo pregunto porque creo que no se puede poner el valor justo cuando esta en la parte de var.

Acabo de tratar de hacer lo que queria pero esta mal mira :

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array of Byte;
begin
  buf:= array[0..50*edit1.Text];
end;

gracias por responder

[mamcx]

No entiendo como te pones a modificar binarios y no sabes lo elemental de tipos de datos en pascal. "Text" no multiplica con numeros...

Afortunadamente tengo la solucion *.




---
*PD: Ves? Es como decir "Algo sale mal".

[cloayza]

Comparto tu comentario...

Empezado por mamcx

No entiendo como te pones a modificar binarios y no sabes lo elemental de tipos de datos en pascal.

Sin comentarios al código que escribió...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array of Byte;
begin
  buf:= array[0..50*edit1.Text];
end;

Te aconsejo que leas y documentes sobre lo básico antes de emprender este tipo de tareas.

[ecfisa]

Hola Lepuke.

Empezado por Lepuke

¿ hay alguna forma de establecer el valor del byte buf en otro lado donde pueda ponerle el valor de 1024 desde una caja de texto ?

Código Delphi [-]
procedure InflateExe(const aFileName: string; const NoBytes: LongWord);
var
  buf: array of Byte;
  i: Integer;
begin
  with TFileStream.Create(aFileName, fmOpenReadWrite) do
  try
    SetLength(buf, NoBytes);
    ZeroMemory(@buf[1], Length(buf));
    Seek(0, soFromEnd);
    Write(buf[0], Length(buf));
  finally
    Free;
  end;
end;

Uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  InflateExe('test.exe', StrToInt(Edit1.Text));
end;

Saludos

[JuanOrtega]

en serio ecfisa , gracias por la ayuda.

[orodriguezca]

Me pica la curiosidad: Para que "inflar" un .exe?

[ecfisa]

Hola orodriguezca.

No lo ha comentado, pero supongo que deseará incrustar algo en el espacio adicionado.

Saludos