Cómo determinar el tamaño original de un archivo ejecutable

[Casimiro Notevi]

¿Pero lo de cambiar el icono y el tamaño del ejecutable es por alguna protección?

[dec]

Hola a todos,

Gracias por contestar Casimiro. No; en mi proyecto uno de los ejecutables actúa como un "stub", como un "autoextraible", es decir, en dicho ejecutable se adjunta una aplicación del usuario. Cuando el ejecutable se inicia "muestra" la aplicación del usuario. El problema es que tal como lo hago ahora (actualizando cierto recurso del ejecutable que sirve de "stub") el tamaño del mismo se limita a unos 500 MB, que, no está mal, pero, con esta segunda forma que estoy intentando es posible eliminar dicha limitación, empero, no funciona... pues con la primera forma, aun con dicha limitación en el tamaño del ejecutable final, al menos sí puedo cambiar el icono sin problema.

[roman]

Esta es una de esas preguntas que escafandra seguramente sabe contestar (a ver si al oir su nombre se acerca ) Yo sólo puedo comentar dos cosas:

1. ¿Tendrá algo que ver con el paso de 32 a 64 bits?
2. Has probado algo más sencillo como lo que comentan aquí?

LineComment Saludos

[dec]

Hola a todos,

Gracias por contestar Román. He probado de todo majo... de hecho hace años que me peleo con este asunto. El método que muestras en tu enlace, por ejemplo, y, si no recuerdo mal... falla en el momento en que se "firme" un ejecutable. Y esto es necesario, es decir, dar la posibilidad de firmar los ejecutables/aplicaciones del usuario. Respecto de que sea cuestión del paso de 32 a 64 bits, no estoy muy seguro, porque, también aquí ando perdido.

En principio yo no estoy intentándolo en una aplicación de 64 bits, sino en una de 32 bits. Sin embargo, es cierto que, probablemente, no sé traducir correctamente la función de Angus Johnson, que, seguramente, funcionaría bien antes de Windows NT. Creo que aquí está el problema: en el paso de Windows 9x a Windows NT. Tal vez haya más, pero, por ejemplo, esta línea que he remarcado arriba:

Código Delphi [-]
Inc(p, SizeOf(TImageFileHeader) + SizeOf(TImageOptionalHeader));

... y que yo trato de traducir como:

Código Delphi [-]
Inc(p, SizeOf(TImageNtHeaders));

... probablemente no pueda ser traducida así sin más. Pero, como he dicho arriba, en el momento en que la traduzco por esto otro:

Código Delphi [-]
Inc(p, SizeOf(TImageNtHeaders) + SizeOf(TImageOptionalHeader));

... la función retorna siempre "0". Pero, claro, seguramente, la traducción primera que estoy haciendo está mal, puesto que "reduce" dicha línea, y tal vez ahí esté el meollo del asunto.

Por otro lado, según escribo esto, se me hace raro que la función traducida por mí retorne el tamaño del ejecutable original... es cierto que no tiene en cuenta el cambio de icono (lo que la hace inservible) pero, al fin y al cabo está retornando el tamaño del ejecutable original... o sea que tal vez la función que actualiza el icono también tenga algo que ver después de todo... tal vez "se olvida" de actualizar el tamaño del ejecutable teniendo en cuenta el nuevo icono...

Como digo, llevo años intentando que algo así funcione: que se pueda adjuntar un archivo de cualquier tamaño a un ejecutable, permitiendo a su vez cambiar su icono, y, por supuesto, que permanezca siendo válido para su firma. Esto me abriría más puertas además de mejorar el proyecto del que trato aquí: podría acaso pensar en nuevos proyectos también.

[Casimiro Notevi]

No sé sobre eso

[mamcx]

Y porque no tomas el tamaño antes de adjuntarlo? Porque tienes que medirlo como recurso?

Y si mides el archivo antes de adjuntarlo, lo adjuntas y luego restas? Y me refiero a solo mirar el tamaño del archivo tal cual, sin entrar a su estructura interna.

[bitbow]

Coincido con mamcx, por que simplemente no haces el calculo del tamaño del exe de forma separada con el calculo del tamaño del icono y luego restas sumas o lo que tengas que hacer?

Saludos.