delphi dll封装exe

Delphi是一款功能强大的编程语言，其构造的可执行文件(EXE)和动态链接库(DLL)可以嵌套或封装在一起。封装DLL和EXE到一个单一的可执行项可以简化您的应用程序的部署。这篇文章将为您详细介绍在Delphi中如何将DLL封装到EXE文件中，以及相关的原理和适用场景。

## 原理

Delphi中将DLL封装到EXE的原理是使用资源 (Resource) 功能。资源可以包含诸如位图、光标、图标等，这些资源需要在程序运行时加载。同样地，我们可以将一个DLL放入已包含资源的EXE之中，然后在程序运行时动态加载和卸载这些资源。

## 步骤

### 1. 创建一个DLL项目

首先，我们需要创建一个DLL项目。如下所示:

1. 打开Delphi。

2. 开启一个新的项目 (File > New > Project > DLL)。

3. 添加一些函数和过程，以供在EXE项目中调用。

例如：

```delphi

library TestDll;

uses

SysUtils,

Classes;

function Add(a, b: Integer): Integer; stdcall;

begin

Result := a + b;

end;

exports

Add;

begin

end.

```

保存您的DLL项目，然后将其编译。接下来，我们将创建一个EXE项目以便嵌入这个DLL。

### 2. 创建一个EXE项目

1. 创建一个新的VCL表单应用项目 (File > New > Project > VCL Forms Application)。

2. 添加一个按钮控件，从而在用户单击时执行DLL中的相关函数。

3. 在项目源码中添加以下代码，引用并调用加载和卸载封装在资源中的DLL。

例如：

```delphi

unit MainForm;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TMainForm = class(TForm)

btnAdd: TButton;

procedure btnAddClick(Sender: TObject);

private

procedure LoadDLLFromResource(aResName, aResType: String);

procedure FreeLoadedDLL;

function GetTempFolder: String;

public

end;

var

MainForm: TMainForm;

hDLL: THandle;

implementation

{$R *.dfm}

function Add(a, b: Integer): Integer; stdcall; external 'TestDll.dll';

procedure TMainForm.btnAddClick(Sender: TObject);

begin

LoadDLLFromResource('TestDll', 'DLL');

ShowMessage(IntToStr(Add(3, 4))); // Call Add function from TestDll.dll

FreeLoadedDLL;

end;

procedure TMainForm.LoadDLLFromResource(aResName, aResType: String);

var

rs: TResourceStream;

fs: TFileStream;

TargetPath: String;

begin

rs := TResourceStream.Create(HInstance, aResName, PChar(aResType));

try

TargetPath := GetTempFolder + aResName + '.dll';

fs := TFileStream.Create(TargetPath, fmCreate);

try

fs.CopyFrom(rs, rs.Size);

finally

fs.Free;

end;

finally

rs.Free;

end;

hDLL := LoadLibrary(PChar(TargetPath));

end;

procedure TMainForm.FreeLoadedDLL;

begin

if hDLL <> 0 then

begin

FreeLibrary(hDLL);

hDLL := 0;

end;

end;

function TMainForm.GetTempFolder: String;

var

TempPath: array[0..MAX_PATH - 1] of Char;

begin

GetTempPath(MAX_PATH, TempPath);

Result := StrPas(TempPath);

end;

end.

```

在上述代码中，我们实现了：

1. 将DLL从资源中提取到用户计算机上的临时文件夹；

2. 动态加载DLL，并调用其中的“Add”函数；

3. 卸载DLL库。

### 3. 将DLL嵌入到EXE的资源中

1. 打开创建的EXE项目，选择 Project > Resources and Images。

2. 创建一个新资源，类型为 `DLL`，名为 `TestDll`。

3. 导入步骤1中编译好的DLL文件，点击"OK"以保存。

4. 在项目源码中，在`implementation`关键字之前的`{$R *.dfm}`下面，添加一行代码 `{$R 'TestDll.res'}`以便编译时链接TestDll资源。

### 4. 编译和测试

现在您可以编译和运行EXE项目。点击 "Add" 按钮将调用封装在EXE内部的DLL函数。

封装DLL到EXE是一个非常有用的技巧，可以简化应用程序的部署和维护。此外，将库融合在程序文件中还可为防止DLL劫持提供一定保障，从而提升程序安全性。