Ver Mensaje Individual
  #1  
Antiguo 05-03-2007
Berto2003 Berto2003 is offline
Miembro
 
Registrado: may 2003
Ubicación: Málaga
Posts: 59
Reputación: 22
Berto2003 Va por buen camino
Smile Manejando manejadores...

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.

Última edición por dec fecha: 05-03-2007 a las 14:38:01.
Responder Con Cita