Delphi DLL 注入和共享变量

Question

我使用 BTMemoryModule 将 DLL 注入进程。 主/父进程可以调用函数/过程，但其他方式呢？ dll 可以从主/父进程读取/获取 var 或调用函数吗？

感谢您的帮助。

编辑： 动态链接库

library mydll; // DLL obviously...
uses windows;

procedure Test
begin
 // I need a string/integer/pointer from ParentProcess
end

exports
Test;

begin
 // I need a string/integer/pointer from ParentProcess. (if possible). 
end.

程序：

program myprogram
uses
...
var
 M : PBTMemoryModule;
begin
 BTMemoryLoadLibary (pointer, pointerlength);
 @myMaintest    := BTMemoryGetProcAddress(M, 'Test');
 ...
end;

Answer 1

首先，这似乎不是通常所说的注入。这只是一个普通的模块加载，尽管来自内存而不是文件。

至于DLL如何从EXE中导入函数，与EXE从DLL中导入时完全一样。

1. 使用exports 列出EXE 导出的函数。
2. 调用GetModuleHandle(nil)获取EXE的模块句柄。
3. 将该模块句柄传递给GetProcAddress 以导入函数。

与更常见的 EXE 链接到 DLL 模式的唯一区别是您使用 GetModuleHandle 而不是 LoadLibrary。这是因为 EXE 必须已经加载，因此您可以简单地询问其模块句柄，而不是要求加载模块。

我会评论说，以这种方式做事很不寻常。通常，EXE 会调用 DLL 并传递 DLL 所需的任何信息。该信息可能包括允许 DLL 查询其主机 EXE 的回调函数、接口等。

Answer 2

如果子模块（您的 DLL）知道父应用程序的数据结构和功能，这是可能的。这些数据和函数必须在 Parent 端可用。

Answer 3

这是为了将我的评论进一步扩展到大卫的回答：

---

DLL 端：

1. 在 DLL 中添加 Init 过程
2. 导出它。
3. 根据需要添加所需的类型/变量声明

片段代码：

library TheDLL;

...

var
  OwnerAPP: HMODULE; // To be initialized by a call of the exported procedure Init from the EXE

...

type
  TTestCallfromExe = procedure(f_Text: PAnsiChar); stdcall;

var
  OwnerAPP: LongInt;
  l_TestCallfromExe: TTestCallfromExe;

procedure Init(Owner: HMODULE);
begin
  OwnerAPP := Owner;
end;

...

exports
  Init, // This is it and the others exports follow
  ...

对TestCallfromExe 的调用与对任何Dll 的导出函数/过程的调用一样。只要 OwnerAPP 正确初始化，就可以根据 OP 的要求在 Dll 导出函数的主体中进行调用。

---

EXE端：

根据需要导出每个过程/函数（从 DLL 调用），当然你应该实现它们。

program TheEXE;

uses
  ...
  MyExportImplementation; // Refence to implementatio unit

...

exports
  TestCallfromExe, // This is it
  ...

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

示例实现细节：

unit MyExportImplementation;

interface

...

procedure TestCallfromExe(f_Text: PAnsiChar); stdcall;

implementation

...

procedure TestCallfromExe(f_Text: PAnsiChar); stdcall;
begin
  MessageBoxA(0, f_Text, 'Exe Dialog Ansi (stdcall)', 0);
end;

...

end.

---

把它们放在一起：

这是基于 DemoDLL（来自 BTMemory）示例，例如在 TheEXE.dpr 项目的 MainForm 单元中实现：

procedure TForm1.BtnCAllClick(Sender: TObject);
var
  l_Init: procedure(Owner: HMODULE);
begin
  m_DllHandle := LoadLibrary('TheDLL.dll');
  try
    if m_DllHandle = 0 then
      Abort;

    @l_Init := GetProcAddress(m_DllHandle, 'Init');  // <<<
    if @l_Init = nil then
      Abort;

    // Fetch the remainding exported function(s)/procedure(s) adresses

    l_Init(HInstance); // <<<  Hand EXE's HInstance over to the DLL

    // Call exported function(s)/procedure(s) accordingly
  except
    Showmessage('An error occured while loading the dll');
  end;

  if m_DllHandle <> 0 then
    FreeLibrary(m_DllHandle)
end;

---

Nota Bene：

我也用 BTMemory 对其进行了测试，它可以工作。