Hacer portable ejecutable con archivo access

[[escafandra]]

Como comentáis el asunto no es sencillo. Lo ideal es tener ese fichero Access separado. Pero si nos queremos empeñar, se puede hacer como un recurso o simplemente adherido al final del ejecutable.


1.- Si se pretende hacer como un recurso hay que usar la API UpdateResource para añadir el archivo modificado
2.- Si se quiere añadir al final del ejecutable, hay que conocer con exactitud el tamaño del ejecutable para poder extraer el archivo. El asunto de añadir es simplemente sumar archivos.


En ambos casos, es preciso que sea otra aplicación la que haga la añadidura, ya que un archivo ejecutable que se está ejecutando no se puede modificar. De esta forma, al cerrarse debería liberar una app que realice ola modificación y borre la base de datos, ese programita podría ir como un recurso y debería comprobar que su "padre" terminó su ejecución para poder modificarlo. La forma más simple es que trate de abrir en un bucle el exe, sólo podrá hacerlo si la ejecución acabó. También se puede usar el código de este hilo para conocerlo



El asunto de añadir archivos al final del ejecutable fue tratado en este tema "Cómo determinar el tamaño original de un archivo ejecutable" y la función que calcula el tamaño para Win 32 y Win64 se encuentre en esta entrada de dicho tema.


La transcribo aquí:

Código Delphi [-]
function GetExeSize: cardinal;
var
  p: PBYTE;
  i, NumSections: integer;
begin
  Result := 0; // if error then result = 0
  p := pointer(GetModuleHandle(nil));      // DosHeader  'MZ'
  inc(p, PImageDosHeader(p)^._lfanew + 4); // ImageFileHeader
  NumSections := PImageFileHeader(p)^.NumberOfSections;
  inc(p, sizeof(TImageFileHeader) + PImageFileHeader(p)^.SizeOfOptionalHeader); // IMAGE_SECTION_HEADER (SectionHeaders)
  for i:= 1 to NumSections do
  begin
    with PImageSectionHeader(p)^ do
      if PointerToRawData + SizeOfRawData > Result then
        Result := PointerToRawData + SizeOfRawData;
    inc(p, sizeof(TImageSectionHeader));
  end;
end;

Saludos.