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
|