FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Agregar peso vacio a un ejecutable
Hola estoy por volverme loco con este problema , hace dos dias que estoy tratando de buscar informacion de como abrir un archivo y agregarle peso vacio a un archivo ejecutable que es lo que originalmente hace este codigo en C#.
Codigo C# Código:
byte[] b = new byte[50 * 1024]; /* 50 kb */ FileStream fS = File.Open("test.exe", FileMode.Append); fS.Write(b, 0, b.Length); fS.Close(); Inicialemente intente con : Código:
procedure SaveBytesToFile(const Data: TBytes; const FileName: string); var stream: TMemoryStream; begin stream := TMemoryStream.Create; try if length(data) > 0 then stream.WriteBuffer(data[0], length(data)); stream.SaveToFile(FileName); finally stream.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin SaveBytesToFile(1024,'test.exe'); end; es el peso que quiero agregar puse 1024 pero da error y no encuentro informacion de que valor tengo que poner. Tambien intente con este codigo : Código:
procedure TForm1.Button1Click(Sender: TObject); var fs:tfilestream; buffer:integer; begin fs.create('test.exe',fmcreate); fs.writebuffer(buffer,'1024'); fs.free; end; ¿ Que estoy haciendo mal ? |
#2
|
||||
|
||||
Hola Lepuke.
Intenta de este modo:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
funciona excelente ecfisa , gracias por la ayuda , te queria preguntar sobre esta linea :
Código:
var buf: array[0..50*1024] of Byte; Código:
var buf: array[0..50*edit1.Text] of Byte; Acabo de tratar de hacer lo que queria pero esta mal mira : Código:
procedure TForm1.Button1Click(Sender: TObject); var buf: array of Byte; begin buf:= array[0..50*edit1.Text]; end; |
#4
|
||||
|
||||
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".
__________________
El malabarista. |
#5
|
||||
|
||||
Hola Lepuke.
Cita:
Uso:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 27-08-2014 a las 02:29:56. |
#6
|
|||
|
|||
en serio ecfisa , gracias por la ayuda.
|
#7
|
|||
|
|||
para que inflar un .exe?
Me pica la curiosidad: Para que "inflar" un .exe?
|
#8
|
||||
|
||||
Hola orodriguezca.
No lo ha comentado, pero supongo que deseará incrustar algo en el espacio adicionado. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#9
|
|||
|
|||
Comparto tu comentario...
Cita:
Te aconsejo que leas y documentes sobre lo básico antes de emprender este tipo de tareas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
El SPAM en México está de a peso | AzidRain | La Taberna | 8 | 18-05-2010 16:27:29 |
Como agregar un ejecutable a DEP de XP? | JuanErasmo | API de Windows | 0 | 10-04-2007 20:34:46 |
Reducir El peso de Un archivo txt | naguilar | Varios | 4 | 25-10-2004 10:34:11 |
peso del installshield. | kwan | Varios | 2 | 26-09-2003 12:06:32 |
|