Tengo creada una dll sencilla en Delphi 2010. Al intentar usarla en otra aplicación, funciona correctamente pero, cuando cierro la aplicación, no queda cerrada completamente. El proceso aparentemente desaparece, pero en la pestaña "Usuarios" del administrador de tareas aún aparece para matar el programa (solo en ese caso se cierra completamente).
Si lo hago en depuración, al cerrar se puede ver cómo el depurador sigue esperando a la finalización para volver al modo de diseño.
La DLL "ejemplo.dll" la estoy usando de la siguiente forma:
function InicializarDLL() : Integer; stdcall; external 'ejemplo.dll';
Esto lo introduzco junto al resto de procedimientos de la aplicación.
El código en que se llama la función es el siguiente:
procedure Tmenuenvasado.Button1Click(Sender: TObject);
begin
Showmessage(Inttostr(InicializarDLL));
end;
En este caso estoy devolviendo y sacando por pantalla el número de elementos que inicializa el DLL (lo que hace es rellenar una TList interna con valores predeterminados) y eso me lo muestra correctamente.
El bloqueo de la aplicación se produce al cerrar la aplicación, se haya pulsado el botón o no se haya pulsado (es decir, ocurre siempre).
¿Alguna idea de qué puede fallar?
Gracias
Añado: He editado la dll simplificándola hasta el punto de solo devolver un número fijo, y sigue dándome el mismo problema:
library ejemplo;
uses
ShareMem,
SysUtils,
Generics.Collections,
Classes;
function InicializarDLL() : Integer; stdcall;
begin
Result := 1;
end;
exports InicializarDLL;
begin
end.