Constantes, COMO modificar EXTERNAMENTE?

[lag_0]

a ver...
Pero que eso ya lo sé hacer y lo sabemos todos!

Lo único que me interesa es poder guardar ciertos parametros de configuración en el mismo exe para mandarlo todo empaquetado y configurarlo simplemente con un par de clicks cosa que es muy gratificante cuando no has de recompilar el programa y no has de liarte a pasar zips a gente que no sabe ni lo que es winzip/rar/ace ni más de un file (claro está que cada uno necesitará una configuración diferente y no puede elegirla la maquina).

[[Crandel]]

pero la configuracion la tenes que hacer antes o despues de enviar el archivo? No te sirve mandar con valores por defecto para todos iguales?

[lag_0]

ahy está el tema, no me sirve mandarlo para todos iguales y no depende de ningun dato que pueda obtener de el sistema, por eso prefiero tener un configurador que no tener que compilar la aplicación por cada usuario...
Tampoco puedo hacer nada por defecto y que luego lo configure el usuario por que consiste en que no lo pueda cambiar... o al menos no de una manera simple...

[[Crandel]]

Perdon, era yo entonces el que no entendia, entonces lo que podrias hacer es como dice nuestro companiero AzidRain, incrustas el archivo de recursos dentro del EXE y luego haces un configurador que sea un editor de recursos

[lag_0]

sip va a ser la única salida ..
Yo solo queria saber si habia algún modo de modificar las constantes externamente con el exe parado...
Imaginé que se podría .

Gracias a todos

[[Crandel]]

Al modificar los recursos del EXE, estas modificando el exe.

Tambien se puede modificar el EXE directamente, modificando sus valores, pero es mas complicado.

[[seoane]]

Vamos a poner un poco de código para aclara un poco el asunto. Como ya te dijeron la mejor opción es usar archivos de recursos. Lo primero es definir una estructura (un record) que contendrá los parámetros. Esta definición debe ser común a ambos programas, el que modifica y el que ha de ser modificado.

Por ejemplo:

Código Delphi [-]
  TParametros = packed record
    Parametro1: Integer;
    Parametro2: Integer;
    Parametro3: String[255]; // Si usas cadenas tienen que tener un tamaño conocido
  end;

Ahora para leer los parámetros desde nuestra aplicación utilizaremos algo como esto:

Código Delphi [-]
var
  Parametros: TParametros;
begin
  // 1001 es el identificador, debe ser el mismo en ambos programas
  if FindResource(GetModuleHandle(nil),MAKEINTRESOURCE(1001),RT_RCDATA) <> 0 then
  with TResourceStream.CreateFromID(GetModuleHandle(nil),1001,RT_RCDATA) do
  try
    Read(Parametros,Sizeof(Parametros));
    with Parametros do
      ShowMessage(Format('P1=%d P2=%d P3=%s',[Parametro1,Parametro2,Parametro3]));
  finally
    Free;
  end;
end;

Para actualizar los parámetros desde otra aplicación, haríamos algo como esto:

Código Delphi [-]
var
  hExe: THandle;
  Parametros: TParametros;
begin
  Parametros.Parametro1:= 10;
  Parametros.Parametro2:= 20;
  Parametros.Parametro3:= 'Hola mundo';
  hExe:= BeginUpdateResource(PChar(ExtractFilePath(ParamStr(0))+'Ejemplo35a.exe'),FALSE);
  if hExe <> 0 then
  begin
    UpdateResource(hExe,RT_RCDATA,MAKEINTRESOURCE(1001),0,@Parametros,Sizeof(Parametros));
    EndUpdateResource(hExe,FALSE);
  end;
end;

Bueno, aquí te dejo el código, empaquetado y listo para usar. Primero compila el Ejemplo35a, y comprueba que no lee los parámetros. Ahora compila el Ejemplo35b y pulsa en "Actualizar parámetros", entonces ejecuta de nuevo el Ejemplo35a y veras que ahora ya lee los nuevos parámetros.