¿Como crear un ejecutable que llame un DLL?

[mweltmeister]

Hola, muy buenas a todos.
Antes que nada, como soy nuevo en el foro, les doy mis felicitaciones por la voluntad y la ayuda de sus colaboradores.
Espero que con el tiempo y después de un largo aprendizaje, pueda colaborar y aportar ayudando a los demás como usuarios con grandes conocimientos que hay aquí lo hacen.

Soy nuevo en esto de la programación y decidí iniciarme con Delphi, se que lo primero que me van a decir es que "utilice el buscador"; Hace más de 3 horas (literal) que estoy buscando ayuda por todo internet (más que nada acá), vi muchos temas pero ninguno solucionó mi pregunta. Prácticamente me esta volviendo loco y por eso considero necesario abrir un nuevo tema para ver si me pueden ayudar.


Tengo un código DLL (solo el código) y decidí compilarlo en Delphi XE2, hasta ahí perfecto...

Para llamar a ese DLL y que se ejecute, necesito crear un ejecutable (valga la redundancia); Según el autor debemos crear un ejecutable que exporte la función "StartHook" para llamar.

La pregunta es: ¿Cómo creo un .exe que incluya la función "StartHook"?

Ya intenté lo siguiente: Crear el .exe pulsando F9 a lo que me sale el siguiente error: "Cannot run project unless a host application...".
Exacto, pero si solo tengo el .dll cual es la aplicación host.

También intenté crear un .exe desde 0 que llame el .dll con varios tutoriales que encontré en la web, pero nada.


Muchas gracias a todos de antemano, y felicitaciones por el foro.

[Neftali [Germán.Estévez]]

Hola.
En esta entrada puedes ver la explicación de cómo cargar DLL y BPLs desde Delphi.
En concreto si no quieres revisar todo, en lo que concierne a DLL's, las dos primeras secciones explican cómo cargar una DLL de forma estática y de forma dinámica.
También puedes descargar el código de todos los ejemplos.

En concreto, tienes uno para generar la DLL (sumas.dll) y dos proyectos (call_suma_estat y call_suma_dinam) para que veas cómo se carga la anterior DLL con ambos métodos.

Échale un vistazo al código de los ejemplos y verás que es sencillo.

Un saludo.

[mweltmeister]

Empezado por Neftali

Hola.
En esta entrada puedes ver la explicación de cómo cargar DLL y BPLs desde Delphi[/url].
En concreto si no quieres revisar todo, en lo que concierne a DLL's, las dos primeras secciones explican cómo cargar una DLL de forma estática y de forma dinámica.
También puedes descargar el código de todos los ejemplos[/url].

En concreto, tienes uno para generar la DLL (sumas.dll) y dos proyectos (call_suma_estat y call_suma_dinam) para que veas cómo se carga la anterior DLL con ambos métodos.

Échale un vistazo al código de los ejemplos y verás que es sencillo.

Un saludo.

Hola Netfali! Antes que nada quiero agradecer tu pronta respuesta. Estuve leyendo la información que me facilitaste pero no puedo ejecutar el .dll!!

Estoy trabajando bajo Delphi XE2 y no abre los archivos que están para descargar, supongo porque se hicieron en una versión más antigua de Delphi.

Ahora tengo claro que lo que quiero es crear un .exe + .dll con carga estática. ¡No puedo resolver lo del .exe!
Ya lo tengo compilado, no se ni por donde empezar a crear el .exe sinceramente y no encuentro una explicación que me funcione como hacerlo.
O soy muy torpe o el hecho de que sean las 6:45 de la mañana (acá en Argentina) y que esté desde las 11:00 de la noche intentando hacerlo me dejo atontado; Aunque, no pienso dormir hasta lograrlo.

Ahora sigo intentando, gracias por tu ayuda.

[mweltmeister]

¡Pude abrir uno de los proyectos!
Estoy intentando modificar el código para que me funcione con el .dll pero me da un error al querer compilarlo.
El código que intento compilar es el siguiente; ¿Alguna idea?

program Call_suma_estat;

uses
  Forms,
  Dialogs,
  SysUtils;

var
  Res:Integer;

function StartHook(x,y:integer):Integer; stdcall; external 'project1.dll';


begin
  // llamada
  Res := StartHook;
  MessageDlg('Iniciando programa.....', mtInformation, [mbOK], 0);

end.

[Casimiro Notevi]

Empezado por mweltmeister

me da un error al querer compilarlo.

Deberías poner el mensaje del error

[mweltmeister]

Perdón, se me olvidó. No estoy seguro de cual fue el mensaje del error, pero marcaba en rojo el codigo "Res= 0".

Intenté editarlo a mi manera para que funcionara con el comando que yo quiero y pude compilarlo; El problema es que el .dll no funciona!.
Lo único que hace el .exe al ser ejecutado es mostrar una ventana que dice "Iniciando programa" (como el código muestra).

Adjunto nuevamente el código que pude compilar:

program start;

uses
  Forms,
  Dialogs,
  SysUtils;

var
  Res:Integer;

function StartHook(x,y:integer):Integer; stdcall; external 'project1.dll';


begin
  // llamada
  Res := 0;
  MessageDlg('Iniciando programa.....', mtInformation, [mbOK], 0);

end.

Ah, y más que nada gracias por la ayuda que me están brindando. Avance más en 10 minutos con su ayuda que en 4 horas de búsqueda y trabajo.
Gracias!