Manejando manejadores...

[Berto2003]

Hola de nuevo amigos/as del foro:

Aquí toi con otra dudilla-problema que me ha surgido . Os agradecería si podeis que me echárais una mano. El tema es que hemos creado una aplicación en Delphi 7 y que necesitamos llamarla desde un programa desarrollado en Delphi 5.
Hasta aquí todo bien, ya que utilizamos llamadas a librerías DLL y funciona bien. Lo único y ahí está el problema, es que cada vez que llamo a una ventana del nuevo programa de Delphi 7 aparece como un nuevo botón en la barra de tareas con su correspondiente icono y claro, cuantas más se abran más botones aparecen . Creo que tiene que ver algo con manejador de la aplicación (handle) que le pasamos para hacer la llamada, no? Pero no sé si es posible solucionarlo para que no aparezcan esos sucesivos botones. Algo hago parecido a esto:

Código Delphi [-]
procedure PROCEDIMIENTOLLAMADA(var ..); stdcall;
var
   Biblioteca: THANDLE;
   Procedim: TProcD7;
begin
  try
     Biblioteca := LoadLibrary('C:\...\MILIBRERIA.DLL');
  finally
       if (Biblioteca >= HINSTANCE_ERROR) then
       begin
             try
               @Procedim:=GetProcAddress(Biblioteca,'NOMBREPROGRAMA');
               if (@Procedim <> nil) then
                 Procedim(application.handle);   // Esto es correcto???

             finally
                  FreeLibrary(Biblioteca);
             end;
       end
       else
           Application.MessageBox('Error', 'Aviso', MB_ICONERROR+MB_OK);
    end;
end;    // de procedim.

Bueno, espero haberme explicado bien.

Gracias por todo,
Saludos y un abrazo,

Berto2003.

[[basti]]

Sí, el problema está en Application.Handle. No muestras el código de Procedim, pero debería ser algo así:

Código Delphi [-]
procedure Procedim(Hnd : THandle); stdcall;
begin
   Application.Handle := Hnd;
  // a partir de aquí el resto...
end;

[[basti]]

Acabo de fijarme que PROCEDIMIENTOLLAMADA es stdcall, ¿está también en una dll?. Si es así, tendrías que hacer lo mismo con PROCEDIMIENTOLLAMADA, que reciba el Handle de la aplicación principal.

[Berto2003]

Hola basti!!

El procedimiento está definido de la siguiente manera, en la misma unidad donde está implementado PROCEDIMIENTOLLAMADA:

type
TProcD7 = procedure (handle: THandle); stdcall;

Y sí, PROCEDIMIENTOLLAMADA está en una dll....

Gracias por la ayuda.
Saludos,

[[basti]]

Por defecto, el objeto Application de una dll toma el valor 0 para el Handle.

PROCEDIMIENTOLLAMADA, parece que recibe el handle de la aplicación, es eso correcto?. Si es así sólo tienes que asignarlo al objeto Application de la dll.

Código Delphi [-]
procedure PROCEDIMIENTOLLAMADA ( handle : THandle); stdcall;
begin
  Application.Handle := handle;
.
.
.
end;

Si el handle que recibe PROCEDIMIENTOLLAMADA, no tiene que ver con el handle de la aplicación, tendras que buscarlo con FindWindow (busca FindWindow en el foro y encontrarás varios ejemplos).

[Berto2003]

Gracias basti!!

Problema solucionado, oe, oe...!! Me faltaba eso que me comentas. Muchas gracias por la ayuda.


Un cordial saludo,
Berto2003.