Te cojo algunos trozos que uso yo.
Tengo un fchero .RC de texto con es definido (mira el último recurso):
Código:
CBSTYLE_RO BITMAP "Resources\CheckBoxStylesDisabled.bmp"
CBSTYLEFOCUSED_RO BITMAP "Resources\CheckBoxStylesFocusDisabled.bmp"
CALCULADORA BITMAP "Resources\Calculadora.bmp"
// Paginas web de traduccion
RES_HTML_PAGE2 RCDATA "Resources\_html2.txt"
El fichero _html2.txt es un fichero de texto con TAGS HTML.
Para compilar este fichero .RC utiulizo un fichero por lotes .CMD con lo siguiente:
Código:
brcc32 AppRes.rc >> Errores.txt
Que me genera un fichero AppRes.res para mi aplicación y que tengo añadido al proyecto.
Y el código que utilizo en mi proyecto es algo así:
Código Delphi
[-]
var
rs: TResourceStream;
tf: TStrings;
b:Boolean;
resName:String;
begin
resName := 'RES_HTML_PAGE2';
b := FindInstanceOfResource(resName, RT_RCDATA, HInstance);
if not b then begin
raise ...
Exit;
end;
tf := TStringList.Create;
try
try
rs := TResourceStream.Create(HInstance, resName, RT_RCDATA);
tf.LoadFromStream(rs);
except
raise ...
Exit;
end;
Result := tf.Text;
finally
rs.Free;
tf.Free;
end;