Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Exportar funcion en un exe (https://www.clubdelphi.com/foros/showthread.php?t=75813)

jars 20-09-2011 18:56:10

Exportar funcion en un exe
 
Hola amigos.
Tengo exportada una funcion callback en un exe y con el PE la veo.
El problema es que desde otro exe necesito poder registrar la funcion y no encuentro la manera.
Primero obtengo el handle del exe y luego intento con GetProcAddress pero siempre me devuelve nil.

Código:

type
TRegCallBack = procedure(ClientProc: TCallBackProc); cdecl;

var
  TestCallBack: TRegCallBack;

implementation

procedure TForm1.FormActivate(Sender: TObject);
begin
  exeHandle := FindWindow(nil, 'CallBack_Test');
  if exeHandle > 0 then
  begin
    @TestCallBack := GetProcAddress(exeHandle, 'TestCallBack');
    if not Assigned(TestCallBack) then
      ShowMessage('TestCallBack = nil');
  end;
end;

Si alguno se pregunta si quien exporta la funcion callback tiene que ser un exe, la respuesta es si. Con una dll no tendria problema.
Alguna idea por favor
Gracias


La franja horaria es GMT +2. Ahora son las 11:18:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi