unit TestFormUnit;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;

type
 TTestForm = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 TestForm: TTestForm;

procedure ShowModForm(appWnd: HWND);

implementation

{$R *.dfm}

procedure ShowModuleForm(appWnd: HWND);
var
 rslt : Integer;
 msgCode : Integer;
begin
 with TTestForm.Create(Application) do
 try
   msgCode := RegisterWindowMessage('WM_ACME_REGISTERMODWND');

   {WM_ACME_REGISTERMODWND -- одно из сообщений для взаимодействия с приложением,
   {Возвращаемое значение должно быть 1 или 2}
   rslt := SendMessage(appWnd, msgCode, Handle, 0);

   Caption := 'DelphiTestModule - ' + IntToStr(rslt);
   ShowModal
 finally
   Free
 end
end;

end.

library ModDelphi;

uses
 ShareMem,
 SysUtils,
 Classes,
 TestFormUnit in 'TestFormUnit.pas' {TestForm};

{$R *.res}

exports ShowModuleForm;

begin
end.

#include "stdafx.h"

#define MOD_WTL_API __declspec(dllexport)

#include <windows.h>

#include <atlbase.h>
#include <atlapp.h>

extern CAppModule _Module;
#include <atlwin.h>
#include <atlgdi.h>
#include <atlmisc.h>

CAppModule _Module;

using namespace std;

// Функция вызова плагина
extern "C" MOD_WTL_API BOOL ShowModForm(HWND parent);

// Точка входа в DLL
BOOL APIENTRY DllMain( HMODULE hModule,
                      DWORD  ul_reason_for_call,
                      LPVOID lpReserved
     )
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
 // Инициализируем модуль
 _Module.Init(0, hModule, 0);

 break;
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
 break;
case DLL_PROCESS_DETACH:
 _Module.Term();
 break;
}
   return TRUE;
}

// Главное окно плагина
class CMainWindow :
public CWindowImpl<CMainWindow, CWindow, CFrameWinTraits>
{
BEGIN_MSG_MAP(CMainWindow)
 MESSAGE_HANDLER(WM_DESTROY, OnDestroy)
END_MSG_MAP()

LRESULT OnDestroy(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled)
{
 PostQuitMessage(0);
 return 0;
}
};

MOD_WTL_API BOOL ShowModForm(HWND parent)
{
// Создаём главное окно модуля.
CMainWindow wnd;
wnd.Create(NULL, CWindow::rcDefault);

const UINT WM_ACME_REGISTERMODWND = ::RegisterWindowMessage(L"WM_ACME_REGISTERMODWND");
const LRESULT rslt = ::SendMessage(parent, WM_ACME_REGISTERMODWND, (WPARAM)((HWND)wnd), 0); ///< Возвращает всегда 0!

char buffer[80] = {0};
_itoa(rslt, buffer, 10);

CString title(L"WtlTestModule - ");
title += rslt;
::SetWindowText(wnd, title);

wnd.ShowWindow(SW_SHOW);
// Запускаем цикл сообщений
CMessageLoop loop;
loop.Run();

return TRUE;
}

procedure ShowModForm(appWnd: HWND); stdcall;

unit TestFormUnit;

interface

type
 HWND = type LongWord;
 {$EXTERNALSYM HWND}

procedure ShowModuleFormProxy(appWnd: HWND);

implementation

procedure ShowModForm(appWnd: HWND); stdcall; External 'mod_wtl.dll';

procedure ShowModuleFormProxy(appWnd: HWND);
begin
 mod_wtl_show(appWnd);
end;

end.