Delphi程序实现动态加载DLL窗口的方法

原创于 2025-05-31 09:07:04 发布 · 1k 阅读

CC 4.0 BY-SA版权

简介：在Delphi环境下，开发人员可能会遇到需要在主程序中动态加载含窗口的DLL的情况。这通常出于代码分离、模块化或插件式架构的需求。本文将详细说明如何在Delphi主程序中加载含有窗口的DLL，并确保其正常运行。我们将探讨创建DLL项目、导出窗口类、在DLL中实现窗口创建和初始化、在主程序中加载和显示DLL窗口、处理消息传递以及资源释放等关键步骤。通过实现这些步骤，开发者可以构建更加灵活和模块化的应用程序。 Delphi主程式加载含有窗口的DLL

1. DLL基本概念及在Delphi中的实现

在现代软件开发中，动态链接库（Dynamic Link Library, DLL）是实现代码复用、模块化和资源优化管理的关键技术之一。DLL允许开发者将程序拆分成多个独立的模块，这些模块可以被不同的程序在运行时共享，显著减少了内存占用并提高了程序的可维护性。

在Delphi中实现DLL主要涉及以下几个步骤：创建DLL项目、定义窗口类、导出窗口类以及在主程序中加载DLL和创建窗口。Delphi作为快速应用程序开发（RAD）工具，提供了简便的途径来编写DLL。通过Delphi的类库和可视组件，开发者可以高效地构建DLL，并且可以将其导出的类或函数供其他应用程序使用。

本章节将从DLL的基本概念入手，讨论DLL在Delphi环境中的实现细节，并对如何创建一个简单的DLL进行详细的介绍。我们将通过具体的示例来演示如何定义窗口类、导出和使用这些类，并最终在主程序中加载DLL创建的窗口，为下一章的深入学习打下坚实的基础。

2. 创建DLL项目与定义窗口类

创建动态链接库（DLL）是软件开发中常见的任务，尤其在需要模块化设计和提高代码复用率的场景下。DLL是一个或多个函数、数据和资源的集合，它们在一个单独的可执行文件中，可供一个或多个应用程序共享。在Delphi中创建和实现DLL涉及多个步骤，包括项目创建、窗口类的定义、函数导出以及资源的正确管理。

2.1 DLL项目的创建流程

2.1.1 使用Delphi创建DLL项目步骤

在Delphi中创建DLL项目是实现动态链接库的第一步。要完成这一步骤，开发者需要遵循以下步骤：

打开Delphi开发环境。
选择“File”菜单下的“New”选项，然后选择“Other”来新建项目。
在“New”窗口的左侧选项中选择“DLL”，右侧选择“Dynamic-link Library (Delphi)”选项。
输入项目名称并选择合适的保存位置。
点击“OK”按钮开始创建DLL项目。

创建完成后，Delphi会自动构建一个基本的DLL模板，包括一个包含 exports 部分的源代码文件和一个用于导出函数的单元。这是接下来进行编程的基础。

2.1.2 DLL项目结构分析

Delphi创建的DLL项目结构较为简单，主要由以下几个部分构成：

Project1.dpr ：项目文件，包含了DLL的主入口点和编译指令。
Unit1.pas ：包含在DLL中导出的函数或过程的源代码文件。
Unit1.dcu ：编译后的单元文件，不包含源代码，但包含编译后的代码。
Unit1.dproj ：Delphi项目文件，包含项目配置信息。

在 Project1.dpr 文件中， begin 和 end. 之间的代码是DLL加载和卸载时执行的入口点。通过 exports 关键字，开发者指定哪些函数或过程将被导出，使得主程序可以访问它们。

2.2 定义窗口类的过程

2.2.1 Windows API中窗口类的概念

在Windows编程中，窗口类是一个重要的概念。它定义了一个窗口的外观和行为，包括窗口所使用的窗口过程函数。一个窗口类需要在程序初始化时注册到系统中。

以下是一个简化的窗口类的定义：

TWindowClass = class
public
  procedure WndProc(var Message: TMessage); virtual;
end;

var
  WindowClass: TWindowClass;
  WindowHandle: HWND;

窗口类中的 WndProc 函数将处理所有发往该窗口的消息。这个函数必须在窗口类注册之前定义，因为注册过程会引用它。

2.2.2 在DLL中创建和注册窗口类

在DLL中创建和注册窗口类涉及到几个步骤：

定义窗口类 ：首先需要在DLL项目中定义窗口类，并声明一个 WndProc 消息处理函数。
注册窗口类 ：使用Windows API函数 RegisterClass 或 RegisterClassEx 注册窗口类。注册窗口类时，需要提供窗口类的名称、样式、图标、菜单以及窗口过程函数的地址。
创建窗口 ：注册窗口类后，使用 CreateWindow 或 CreateWindowEx 函数创建窗口实例。

下面是一个具体的代码示例，展示了如何在DLL中定义和注册窗口类：

library Project1;

uses
  Windows;

{$R *.res}

type
  TMyWindowClass = class(TWindowClass)
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    constructor Create;
  end;

var
  MyWindowClass: TMyWindowClass;

constructor TMyWindowClass.Create;
begin
  inherited Create;
  // 窗口类名称
  WndClassName := 'MyWindowClass';
  // 窗口过程函数
  WndProcAddress := @MyWindowClass.WndProc;
  // 注册窗口类
  RegisterClass(WNDCLASS风格);
end;

procedure TMyWindowClass.WndProc(var Message: TMessage);
begin
  // 消息处理逻辑
end;

exports
  // 导出函数，如果有的话

begin
  // DLL入口点
  MyWindowClass := TMyWindowClass.Create;
end.

在以上代码中， TMyWindowClass 是定义的窗口类，它在构造函数中被创建并注册。 WndProc 函数是被重写的窗口消息处理函数，这是处理消息循环和用户交互的关键部分。在DLL加载时，窗口类将被创建，然后可以通过主程序加载并使用这个窗口类创建窗口。

注册窗口类的步骤是确保窗口能够正确响应用户操作和系统事件的前提。这一过程也是实现窗口类功能的基础，为后续的窗口创建和消息处理打下了基础。

以上介绍了创建DLL项目和定义窗口类的流程。接下来，我们将探讨如何导出窗口类，使其可以被主程序访问，以实现更复杂的交互和功能。

3. 导出窗口类以供主程序访问

3.1 导出函数的声明与定义

3.1.1 使用extern "C"声明导出函数

在C++中，为了防止C++的名称修饰（Name Mangling）导致导出函数的名称被改变，通常会使用 extern "C" 来声明函数。这样可以确保在C++代码中调用时，导出函数的名称与在C语言中的名称保持一致。这对于DLL中的函数导出至关重要，因为其他程序需要通过这个未被修饰的名称来找到并调用DLL中的函数。

// 使用extern "C"声明导出函数
#ifdef __cplusplus
extern "C" {
#endif

// 声明一个示例函数，用于导出
void __declspec(dllexport) MyExportedFunction();

#ifdef __cplusplus
}
#endif

在上述代码中， __declspec(dllexport) 告诉编译器将 MyExportedFunction 函数标记为可从DLL导出。 extern "C" 的使用确保了在C++环境中，该函数仍可被C代码正确调用。

3.1.2 导出函数的实现

在声明导出函数后，我们需要为其提供实现。导出函数的实现通常位于DLL代码中，但可以被其他程序调用。函数实现可能涉及复杂的逻辑，但在本例中，我们将实现一个简单的函数。

// 导出函数实现
void __declspec(dllexport) MyExportedFunction()
{
    MessageBox(NULL, TEXT("Hello from the DLL!"), TEXT("DLL Message"), MB_OK);
}

这里， MyExportedFunction 函数显示了一个消息框。尽管这个例子非常简单，但它演示了如何将一个函数声明为导出，并在DLL中提供相应的实现。

3.2 DLL导出方法的比较与选择

3.2.1 使用__declspec(dllexport)导出

__declspec(dllexport) 是Windows平台上常用的导出方法。它将函数或变量标记为可以从DLL导出。这种方法简单直接，并且不需要创建额外的导入库（.lib文件）。然而，它与平台相关，并且在不同的编译器上可能需要不同的关键字。

// 使用__declspec(dllexport)导出函数
__declspec(dllexport) void MyExportedFunction();

3.2.2 使用DEF文件导出

DEF文件是另一种导出函数或变量的方法。它可以列出所有需要导出的符号，然后在链接DLL时指定。使用DEF文件的好处是可以清晰地管理导出的符号，并且可以在不重新编译DLL的情况下修改导出列表。

首先创建一个DEF文件，例如 export.def ，并列出需要导出的函数：

EXPORTS
  MyExportedFunction

然后，在链接DLL时使用这个DEF文件：

link -DEF:export.def -OUT:MyDLL.dll MyDLL.obj

这种方法适合于需要清晰管理导出列表的大型项目，因为它有助于避免在代码中硬编码导出声明，并且有助于跨平台兼容性。

以下是表格形式的导出方法比较：

| 导出方法 | 优点 | 缺点 | |------------|-------------------------------------------|----------------------------------------| | __declspec(dllexport) | 简单直接，无需额外步骤 | 与平台相关，需要特定关键字 | | DEF文件导出 | 清晰管理导出符号，无需重新编译DLL即可修改导出列表 | 需要额外的DEF文件，可能增加项目复杂性 |

通过上述两种方法的比较和选择，开发者可以根据项目的具体需求和复杂度来决定使用最适合的导出方式。在大型项目中，DEF文件导出可能提供更好的维护性；而在小型或快速原型项目中，使用 __declspec(dllexport) 可能更为简便快捷。

4. 在DLL中实现窗口创建与初始化

4.1 窗口创建的实现

在Windows编程中，窗口是应用程序与用户交互的基础。DLL需要能够创建和管理窗口，以提供所需的界面元素。本节将详细探讨如何在DLL中实现窗口的创建。

4.1.1 使用CreateWindow或CreateWindowEx函数

在Delphi环境下，我们可以使用 CreateWindow 或 CreateWindowEx 函数来创建窗口。这两个函数的基本用法是相似的，但是 CreateWindowEx 提供了更多的扩展选项，如窗口的额外样式等。下面的代码块展示了如何使用 CreateWindowEx 创建一个标准的窗口：

function CreateMyWindow(hInst: HINST; nCmdShow: integer): HWND; stdcall;
var
  WndClass: TWndClass;
begin
  // 注册窗口类
  with WndClass do
  begin
   .style := CS_HREDRAW or CS_VREDRAW;
   .lpfnWndProc := @WndProc;
   .cbClsExtra := 0;
   .cbWndExtra := 0;
   .hInstance := hInst;
   .hIcon := LoadIcon(hInst, IDI_APPLICATION);
   .hCursor := LoadCursor(0, IDC_ARROW);
   .hbrBackground := COLOR_WINDOW + 1;
   .lpszMenuName := nil;
   .lpszClassName := 'MyClassName';
  end;
  if not Windows.RegisterClass(WndClass) then
  begin
    // 注册失败处理
    MessageBox(0, 'RegisterClass Failed', 'Error', MB_OK);
    Result := 0;
    Exit;
  end;

  // 创建窗口
  Result := CreateWindowEx(
    WS_EX_CLIENTEDGE, // 窗口扩展样式
    'MyClassName', // 窗口类名
    'DLL Window', // 窗口标题
    WS_OVERLAPPEDWINDOW, // 窗口样式
    CW_USEDEFAULT, CW_USEDEFAULT, // 初始位置
    240, 120, // 窗口大小
    0, 0, // 父窗口与菜单句柄
    hInst, // 应用程序实例句柄
    nil); // 创建参数

  if Result = 0 then
  begin
    // 创建窗口失败处理
    MessageBox(0, 'CreateWindow Failed', 'Error', MB_OK);
    Exit;
  end;

  // 显示窗口
  ShowWindow(Result, nCmdShow);
  UpdateWindow(Result);
end;

4.1.2 窗口创建过程中的参数配置

创建窗口时需要考虑多个参数，这些参数共同决定了窗口的外观、行为和位置。

hInstance ：这是应用程序实例的句柄，它指向DLL或可执行文件，用于标识窗口的所有者。
nCmdShow ：这是一个指示窗口应该如何显示的标志。它可以是 SW_SHOW 、 SW_HIDE 等值。
lpClassName ：这是窗口类的名称，它必须已经通过 RegisterClass 函数注册。
lpWindowName ：这是显示在窗口标题栏中的文本。
dwStyle ：这是窗口样式。不同的样式会影响窗口的行为，例如 WS_OVERLAPPEDWINDOW 是一个复合样式，它包括边框、标题栏、系统菜单等。
x, y ：这两个参数指定窗口的初始位置。若使用 CW_USEDEFAULT ，系统将选择一个默认的位置。
nWidth, nHeight ：这些参数指定了窗口的宽度和高度。同样，若使用 CW_USEDEFAULT ，系统会提供默认尺寸。
hWndParent ：如果窗口是一个子窗口，这个参数可以指定父窗口的句柄。
hMenu ：窗口的菜单句柄。如果窗口不使用菜单，则此参数可以设置为 NULL 。
hWndParam ：这通常是为窗口过程提供的用户定义的参数。在DLL中，这可以用来传递额外的状态信息或句柄。

4.2 窗口初始化的过程

4.2.1 设置窗口样式和扩展样式

在创建窗口后，初始化阶段通常包括对窗口样式和扩展样式进行微调。这可以通过修改窗口句柄的某些属性来完成，或者使用 SetWindowLongPtr 等函数来改变窗口的某些行为。

procedure InitializeWindow(HWND hWnd);
var
  style: integer;
begin
  // 设置窗口的扩展样式
  SetWindowLongPtr(hWnd, GWL_EXSTYLE, WS_EX_APPWINDOW or WS_EX_CONTROLPARENT);

  // 获取当前的样式
  style := GetWindowLongPtr(hWnd, GWL_STYLE);

  // 修改样式，例如去掉最大化和最小化按钮
  SetWindowLongPtr(hWnd, GWL_STYLE, (style and not (WS_MAXIMIZEBOX or WS_MINIMIZEBOX)) or WS_SIZEBOX);

  // 设置窗口的初始尺寸和位置
  SetWindowPos(hWnd, HWND_TOP, 100, 100, 300, 200, SWP_NOZORDER);
end;

4.2.2 窗口消息循环的初始化

窗口创建后，必须启动一个消息循环来处理来自操作系统的窗口消息。这通常通过一个循环来完成，该循环调用 GetMessage 、 TranslateMessage 和 DispatchMessage 函数。

procedure InitMessageLoop;
var
  msg: TMsg;
begin
  while GetMessage(msg, 0, 0, 0) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
end;

在这个循环中， GetMessage 函数从消息队列中取出消息，并将其放置在 TMsg 结构中。如果该消息是特殊消息（例如，程序应该关闭），则 GetMessage 会返回 FALSE ，这通常用于退出消息循环。对于其他消息， TranslateMessage 函数将虚拟键消息转换为字符消息，而 DispatchMessage 函数将消息发送到相应的窗口过程，由窗口过程处理具体的消息。

5. 使用Delphi主程序加载DLL窗口

5.1 Delphi主程序加载DLL的步骤

5.1.1 动态加载DLL的方法

动态链接库（DLL）的加载可以通过静态链接和动态加载两种方式实现。在本节中，我们将探讨如何在Delphi环境中动态加载DLL，并从DLL中访问窗口类。动态加载允许程序在运行时决定是否加载特定的DLL，这为程序的模块化提供了更大的灵活性。

在Delphi中，可以使用 LoadLibrary 函数来动态加载DLL文件，与之对应的是 FreeLibrary 函数用于释放DLL资源。 GetProcAddress 函数用来获取DLL中导出的函数或变量的地址。以下是动态加载DLL的基本步骤：

uses
  Winapi.Windows, System.SysUtils;

var
  hDLL: THandle;
  CreateWindowProc: function(lpClassName: PAnsiChar; lpWindowName: PAnsiChar;
    dwStyle: DWORD; x, y, nWidth, nHeight: Integer; hWndParent: HWND;
    hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;
begin
  // 加载DLL
  hDLL := LoadLibrary('SampleDLL.dll');
  if hDLL = 0 then
    raise Exception.Create('无法加载DLL。');

  try
    // 获取函数地址
    @CreateWindowProc := GetProcAddress(hDLL, 'CreateMyWindow');
    if @CreateWindowProc = nil then
      raise Exception.Create('无法找到DLL中的函数地址。');

    // 创建窗口
    CreateWindowProc('MyWindowClass', 'DLL窗口', WS_OVERLAPPEDWINDOW,
      CW_USEDEFAULT, CW_USEDEFAULT, 240, 120, 0, 0, hInstance, nil);
  finally
    // 释放DLL资源
    FreeLibrary(hDLL);
  end;
end;

5.1.2 加载DLL中的窗口类

一旦DLL被加载，主程序需要调用DLL导出的函数来创建窗口。通常这涉及调用一个创建窗口的函数，该函数利用之前定义并导出的窗口类。在本例中，该函数名为 CreateMyWindow ，这是在DLL项目中定义并导出的函数。

function CreateMyWindow(lpClassName: PAnsiChar; lpWindowName: PAnsiChar;
  dwStyle: DWORD; x, y, nWidth, nHeight: Integer; hWndParent: HWND;
  hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND; stdcall;
begin
  Result := CreateWindow(lpClassName, lpWindowName, dwStyle, x, y, nWidth, nHeight,
    hWndParent, hMenu, hInstance, lpParam);
end;

这里的 CreateMyWindow 函数仅仅是调用了Windows API的 CreateWindow 函数来创建窗口。注意，函数参数与 CreateWindow 完全匹配，确保了在DLL中的窗口类被正确创建。

5.2 窗口实例的创建与显示

5.2.1 创建DLL窗口实例的过程

创建窗口实例的过程涉及调用之前提到的 CreateMyWindow 函数，这一步骤在主程序加载DLL后执行。窗口实例的创建会根据传入的参数来确定窗口的位置、大小、风格等特性。

5.2.2 窗口显示与用户交互

创建完窗口实例后，通过 ShowWindow 函数将窗口显示出来，并通过 UpdateWindow 函数确保窗口立即重绘。这之后，DLL窗口就可以与用户进行交互了，如响应用户的鼠标点击和键盘输入等。

ShowWindow(hWnd, SW_SHOW);
UpdateWindow(hWnd);

通过以上步骤，Delphi主程序可以成功加载DLL窗口，实现DLL中的窗口类与主程序之间的交互。在后续章节中，我们将进一步探讨如何处理DLL窗口的消息，并确保资源得到正确释放以避免内存泄漏。

6. 实现DLL窗口的消息处理与消息泵

6.1 窗口消息处理机制

6.1.1 消息泵的作用和实现方法

在Windows操作系统中，消息泵（Message Pump）是应用程序处理消息循环的机制。消息泵负责从消息队列中检索消息，并将它们分派到相应的窗口函数进行处理。在DLL中创建窗口类时，消息泵是不可获取的一部分。

为了实现消息泵，我们需要使用 GetMessage 和 DispatchMessage 函数。这些函数在Delphi中通过 System.Win.Registry 和 System.SysUtils 模块间接使用。

下面是消息泵的实现代码示例：

function DllMain(hInst: HINST; Reason: Cardinal; Reserved: LongPtr): Boolean; stdcall;
var
  msg: TMsg;
begin
  Result := True;
  case Reason of
    DLL_PROCESS_ATTACH:
      begin
        // 初始化代码
      end;
    DLL_PROCESS_DETACH:
      begin
        // 清理代码
      end;
    DLL_THREAD_ATTACH,
    DLL_THREAD_DETACH:
      // 线程附加或分离
  end;

  // 如果是主线程或UI线程，则运行消息循环
  if (Reason = DLL_PROCESS_ATTACH) and (MainInstance = hInst) then
  begin
    while GetMessage(msg, 0, 0, 0) do
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
    end;
  end;
end;

6.1.2 Windows消息循环与事件处理

Windows消息循环负责处理所有类型的窗口消息，包括鼠标、键盘输入，窗口状态改变等。消息循环是通过不断检查消息队列并把消息发送给相应的窗口处理函数来完成消息的分发。

在Delphi中，消息循环的实现已经封装在 Application.ProcessMessages 方法中，而窗口的事件处理函数 WndProc 会根据不同的消息做出相应处理。

6.2 消息处理函数的编写

6.2.1 WndProc函数的结构和处理逻辑

WndProc 函数是窗口过程函数，负责处理窗口接收到的所有消息。Delphi中的 WndProc 函数有四个参数：消息标识符（ message ）， wParam ， lParam 和结果变量。

一个典型的 WndProc 函数结构如下：

procedure TForm1.WndProc(var message: TMessage);
begin
  case message.Msg of
    WM_CREATE:
      // 创建窗口时的处理
    WM_PAINT:
      // 绘图处理
    WM_CLOSE:
      // 关闭窗口的处理
    // 其他消息的处理
  else
    inherited;
  end;
end;

6.2.2 消息分类与特定消息的处理

消息可以被分为不同类型，如窗口消息、命令消息、控件消息、系统消息等。每个消息都有一个特定的值来表示消息类型，并且通过 message.Msg 来识别。在 WndProc 函数中，我们根据 message.Msg 的值来处理不同的消息。

以WM_CLOSE消息为例，当用户点击关闭按钮，系统会发送WM_CLOSE消息给窗口，应用程序必须处理此消息以正确关闭窗口和清理资源。

procedure TForm1.WndProc(var message: TMessage);
begin
  case message.Msg of
    WM_CLOSE:
      begin
        // 处理窗口关闭逻辑
        DestroyWindow(Handle);
      end;
    // 其他消息的处理
  else
    inherited;
  end;
end;

以上即为DLL窗口的消息处理和消息泵实现的核心内容。这些概念和代码片段可以帮助开发者理解如何在Delphi中编写和处理DLL窗口相关的消息机制。

本文还有配套的精品资源，点击获取