FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cargar exe como texto plano
Verán, por razones de estética acostumbro a cambiar las extensiones de los paquetes (.bpl), por otras (.paq), esto más unas cuantas movidas en el registro y quedan con bonitos iconos, El punto es que para que funcione todo al 100, también debo modificar el ejecutable abriéndolo con el block de notas, buscando y sustituyendo la extensión.
Así que para automatizar esta tarea me gustaría saber cómo puedo cargar el exe como si fuera texto plano para buscar y sustituir cadenas. Como siempre de antemano gracias. |
#2
|
||||
|
||||
Los ejecutables no son archivos de texto y no los puedes manejar como tales. Sin embargo puedes leer el archivo y buscar cadenas.
Hace algún tiempo respondí a una pregunta similar pero tras un problema en el foro, en el que se perdieron numerosos mensajes de la base de datos, debió desaparecer esa respuesta, pues no la he encontrado. Te muestro la forma de hacer una búsqueda de cadena y cambiarla. Ten en cuenta que le número de caracteres cambiados en una cadena no puede variar, es decir no puedes sustituir una cadena del ejecutable por otra de diferente tamaño. La siguiente función busca un array de bytes (texto o binario) en un buffer y lo cambia por otro: Código:
void Replace(BYTE *Buffer, BYTE *Val, BYTE *newVal, int SizeBuffer, int sizeVal) { for(int n= 0; n<SizeBuffer; n++){ if(Buffer[n] == *Val){ int i=1; for(; i<sizeVal; i++) if(Buffer[n+i]!=Val[i]) break; if(i==sizeVal) memcpy(&Buffer[n], newVal, sizeVal); } } } Código:
void __fastcall TForm1::Button2Click(TObject *Sender) { TMemoryStream *MS = new TMemoryStream; MS->LoadFromFile("project1.exe"); Replace((BYTE*)MS->Memory, "Hola", "casa", MS->Size, 4); MS->SaveToFile("prueba.exe"); delete MS; } |
#3
|
||||
|
||||
Con un editor hexadecimal.
Tal y como te ha dicho escafandra, ten muuuuuucho cuidado, no porque sea malo, sino porque es muuuuuuuuuy peligroso Por ejemplo, hacer esto: Replace((BYTE*)MS->Memory, "Hola", "adios", MS->Size, 4); equivale a desastre total.
__________________
La otra guía de estilo | Búsquedas avanzadas | Etiquetas para código Únete al grupo Teaming clubdelphi | Colabora mediante Paypal Última edición por Casimiro Notevi fecha: 14-12-2010 a las 01:09:47. |
#4
|
|||
|
|||
Gracias escafandra, me funciono de maravilla . Mi problema fue que no dejaba de verlo como texto plano ya que así lo trabajaba, en cuanto a lo de la corrupción del exe, es algo que ya tenía presente (misma longitud siempre), sin embargo gracias a ambos por el recordatorio que nunca está de más.
|
#5
|
||||
|
||||
Cita:
Conviene guardar una copia del ajecutable antes de trastearlo . Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cargar web en un webbrowser en 2º plano | cocute | Internet | 7 | 03-12-2009 13:24:04 |
cargar plano txt en tabla sql server desde delphi 6 | HELBERT GARCIA | MS SQL Server | 11 | 13-04-2009 15:35:05 |
Rtf a texto plano | glopez | Firebird e Interbase | 11 | 15-02-2007 18:56:14 |
Texto plano a RTF | FunBit | Varios | 3 | 19-09-2006 08:48:37 |
Como Cargar Archivo Plano | mauroacev | Conexión con bases de datos | 3 | 17-03-2005 22:43:13 |
|