Incluir un fichero en el ejecutable

[RaulChemical]

Es por los chemical brothers.

Mi apuesta por lo del OpenDocument es nunca mientras el cliente sea parthner (o como se escriba) de Micros....

Mientras no se acaben los afanes imperialistas de algunos y la ambicion de otros seguiremos estando agarrados a "estandares" como el excel o el guord.

Con la de birguerias que se pueden hacer con el xml o incluso el rtf.

En fin....

[acertij022]

Si la idea es incoporar algun archivo en el interior del ejecutable se puede cargar todo en una variable tipo string.

hacer un pequeño programa que habra el archivo tipo char y guardarlo en un txt

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
ff:file of char;
FText:textFile;
char1:char;
str1:string;

begin
assignfile(ff,'a.exe');
Reset(ff);
while not eof do
 begin
 Read(ff,char1);
 str1:=str1+'#'+IntToStr(ord(char1));
 end;
closeFile(ff);

assignfile(FText,'a.exe');
ReWrite(FText);
WriteLn(FText,str1);
CloseFile(Ftext)
end;

El resultado del archivo de texto generado guardarlo en string en nuestra aplicacion y por medio de este codigo lo sacamos

Código Delphi [-]
procedure StrToFile(Texte: String; Fitxer: String);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(Fitxer, fmCreate);
  try
    Stream.WriteBuffer(Pointer(Texte)^, Length(Texte));
  finally
    Stream.Free;
  end;
end;

Creo que este sistema se le dice archivo mochila.
Espero que esto te sirva