HanDs
管理员

[Delphi文章] Delphi中编写无输出函数名的DLL文件 



用 Delphi 用长了,总是发现,有些和 MS 不同的地方。例如,MS 的公开库中,常常隐藏了许多重要函数,这些函数在系统中常常有起着非常巨大的作用。一旦知道如何调用,可以给自己的应用程序提供很强的功能和很大的灵活性。但,这些函数通常又没有函数名(即使用 ExeScope 查看 DLL 文件的导出表也看不出函数意义),仅仅只有一个序号来表示。有时候我又自己想,为什么我在写程序的时候不能学学 MS 隐藏一些自己不希望公开的函数呢?
 
其实用 Delphi 写 DLL 的时候,使用简单的技巧就可以实现隐藏函数名的效果。让我们来看看下面这个 DLL 源码:
 
library proDll;
 
uses
  Windows;
 
{$R *.res}
 
procedure ShowMessageA(hWnd: HWND); stdcall;
begin
  MessageBox(hWnd, '您调用的是 ShowMessageA 函数', 'DLL 函数信息',
    MB_ICONINFORMATION);
end;
 
procedure ShowMessageB(hWnd: HWND); stdcall;
begin
  MessageBox(hWnd, '您调用的是 ShowMessageB 函数', 'DLL 函数信息',
    MB_ICONINFORMATION);
end;
 
exports
  ShowMessageA index 1 name '',
  ShowMessageB index 2 name '';
 
begin
end.
 
注意看 exports 部分,用 index 关键字指定输出函数的序号,后面紧跟一个 name 关键字指明输出函数名称。关键就在这里,name 后面是一个空字符串,这样就给函数生成了一个空字符串名。实际效果既是隐藏了输出函数的名称。是不是很容易呢?
 
那么我们怎样调用这样的输出函数呢?由于没有了函数名,我们调用起来会显得和以前不一样。其实也不用担心,调用同样非常简单。我下面就静态调用和动态调用制作了两个工程,源码如下:
 
静态调用例子:
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure ShowMessageA(hWnd: HWND); stdcall; external 'proDll.dll' index 1;
procedure ShowMessageB(hWnd: HWND); stdcall; external 'proDll.dll' index 2;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessageA(Handle);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessageB(Handle);
end;
 
end.
 
动态调用的例子:
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
type
  TDllShowMessageFunc = procedure (hWnd: HWND); stdcall;
 
var
  hDllHandle: THandle;
  ShowMessageA, ShowMessageB: TDllShowMessageFunc;
 
procedure LoadFuncDll;
begin
  if hDllHandle = 0 then
  begin
    hDllHandle := LoadLibrary('proDll.dll');
    if hDllHandle = 0 then
      raise Exception.Create('proDll.dll 加载失败');
    try
      {
      lpProcName: the second argument of function GetProcAddress
        Points to a null-terminated string containing the function name,
        or specifies the function's ordinal value. If this parameter is
        an ordinal value, it must be in the low-order word; the high-order
        word must be zero.
      }
      @ShowMessageA := GetProcAddress(hDllHandle, Pointer(HiWord(0) or LoWord(1)));
      if @ShowMessageA = nil then
        raise Exception.Create('proDll.dll 中没有输出 ShowMessageA 函数');
      @ShowMessageB := GetProcAddress(hDllHandle, Pointer(HiWord(0) or LoWord(2)));
      if @ShowMessageB = nil then
        raise Exception.Create('proDll.dll 中没有输出 ShowMessageB 函数');
    except
      FreeLibrary(hDllHandle);
      hDllHandle := 0;
      raise;
    end;
  end;
end;
 
procedure FreeFuncDll;
begin
  if hDllHandle <> 0 then
  begin
    FreeLibrary(hDllHandle);
    hDllHandle := 0;
    @ShowMessageA := nil;
    @ShowMessageB := nil;
  end;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  if @ShowMessageA = nil then LoadFuncDll;
  ShowMessageA(Handle);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  if @ShowMessageB = nil then LoadFuncDll;
  ShowMessageB(Handle);
end;
 
initialization
  // do nothing
finalization
  FreeFuncDll;
end.


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
Delphi 中编写无输出函数名的 DLL 文件
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复