Ver Mensaje Individual
  #2  
Antiguo 19-08-2004
jceluce jceluce is offline
Miembro
 
Registrado: may 2003
Ubicación: Mar del Plata - Argentina
Posts: 29
Reputación: 0
jceluce Va por buen camino
Hola, aunque no sé si es esto lo que estás buscando te mando un ejemplo de como meter un recurso (en este caso 'lista' que es una TStringList) en el exe de la aplicación.
Ojo que estas funciones solo funcionan bajo W2k y XP.




procedure SaveToResource;
var
H: THandle;
SourceBuffer: TMemoryStream;
begin
SourceBuffer := TMemoryStream.Create;

Lista.SaveToStream(SourceBuffer);

H := BeginUpdateResource(PChar(ExtractFilePath(ParamStr(0)) + 'MIPROYECTO.exe'), false);
if H = 0 then ShowMessage('Error en BeginUpdateResource')
else
if not UpdateResource(H, RT_RCDATA, 'DATACOLL', 0, SourceBuffer.Memory, SourceBuffer.Size) then
ShowMessage('Error en UpdateResource')
else
if not EndUpdateResource(H, false) then
ShowMessage('Error en EndUpdateResource');

SourceBuffer.Free;
end;


Saludos

Javier
__________________
Saludos

Javier
Responder Con Cita