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

本文介绍在Delphi中如何通过设置函数导出表的名称为空字符串来隐藏DLL中的函数名,同时提供了静态和动态调用隐藏函数的方法。隐藏函数名可以增加程序的安全性和灵活性。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

用 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); stdcallexternal 'proDll.dll' index 1;
procedure ShowMessageB(hWnd: HWND); stdcallexternal '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(0or LoWord(1)));
      
if @ShowMessageA = nil then
        
raise Exception.Create('proDll.dll 中没有输出 ShowMessageA 函数');
      @ShowMessageB :
= GetProcAddress(hDllHandle, Pointer(HiWord(0or 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.

 




转载于:https://www.cnblogs.com/rogee/archive/2010/09/15/1827283.html

内容概要:本文系统介绍了基于C#(VS2022+.NET Core)与HALCON 24.11的工业视觉测量拟合技术,涵盖边缘提取、几何拟合、精度优化及工业部署全流程。文中详细解析了亚像素边缘提取、Tukey抗噪算法、SVD平面拟合等核心技术,并提供了汽车零件孔径测量、PCB焊点共面性检测等典型应用场景的完整代码示例。通过GPU加速、EtherCAT同步等优化策略,实现了±0.01mm级测量精度,满足ISO 1101标准。此外,文章还探讨了深度学习、量子启发式算法等前沿技术的应用前景。 适合人群:具备一定编程基础,尤其是熟悉C#和HALCON的工程师或研究人员,以及从事工业视觉测量与自动化检测领域的技术人员。 使用场景及目标:①学习如何使用C#和HALCON实现高精度工业视觉测量系统的开发;②掌握边缘提取、抗差拟合、3D点云处理等核心技术的具体实现方法;③了解工业部署中的关键技术,如GPU加速、EtherCAT同步控制、实时数据看板等;④探索基于深度学习和量子计算的前沿技术在工业视觉中的应用。 其他说明:本文不仅提供了详细的理论分析和技术实现,还附有完整的代码示例和实验数据,帮助读者更好地理解和实践。同时,文中提到的硬件选型、校准方法、精度验证等内容,为实际项目实施提供了重要参考。文章最后还给出了未来的技术演进方向和开发者行动建议,如量子-经典混合计算、自监督学习等,以及参与HALCON官方认证和开源社区的建议。
内容概要:本文介绍了基于WOA-GRU-Attention模型的时序数据分类预测项目,旨在提升时序数据分类准确率,实现智能优化,并提供强泛化能力的分类框架。项目背景指出传统机器学习方法难以处理时序数据的复杂特性,而GRU、注意力机制和WOA的结合能有效应对这些问题。文章详细描述了项目的目标与意义,包括提升分类准确率、实现智能优化、推动元启发式算法的应用等。同时,文中列出了项目面临的挑战及解决方案,如高维数据特征复杂、超参数调优难度大等。项目模型架构由WOA、GRU和注意力机制三部分组成,通过Python代码示例展示了模型的具体实现,包括模型定义、训练过程和WOA优化算法的核心步骤。; 适合人群:具备一定编程基础,尤其是对深度学习、时序数据分析感兴趣的开发者和研究人员。; 使用场景及目标:① 提升时序数据分类准确率,特别是在金融、医疗、智能制造等领域;② 实现模型训练过程的智能优化,避免传统调参的局限;③ 提供具备强泛化能力的时序数据分类框架,支持多行业多场景应用;④ 推动高性能时序模型的工业应用落地,提高智能系统的响应速度和决策质量。; 其他说明:项目不仅实现了工程应用,还在理论层面对GRU结构与注意力机制的融合进行了系统分析,结合WOA优化过程对模型训练动力学展开研究,促进了深度学习与优化算法交叉研究领域的发展。读者可以通过提供的代码示例和链接进一步了解项目的具体实现和应用场景。
内容概要:本文详细介绍了如何使用PyQt5创建一个功能全面的桌面备忘录应用程序,涵盖从环境准备、数据库设计、界面设计到主程序结构及高级功能实现的全过程。首先,介绍了所需安装的Python库,包括PyQt5、sqlite3等。接着,详细描述了SQLite数据库的设计,创建任务表和类别表,并插入默认类别。然后,使用Qt Designer设计UI界面,包括主窗口、任务列表、工具栏、过滤器和日历控件等。主程序结构部分,展示了如何初始化UI、加载数据库数据、显示任务列表以及连接信号与槽。任务管理功能方面,实现了添加、编辑、删除、标记完成等操作。高级功能包括类别管理、数据导入导出、优先级视觉标识、到期日提醒、状态管理和智能筛选等。最后,提供了应用启动与主函数的代码,并展望了扩展方向,如多用户支持、云同步、提醒通知等。 适合人群:零基础或初学者,对Python和桌面应用程序开发感兴趣的开发者。 使用场景及目标:①学习PyQt5的基本使用方法,包括界面设计、信号与槽机制;②掌握SQLite数据库的基本操作,如创建表、插入数据、查询等;③实现一个完整的桌面应用程序,具备增删改查和数据持久化功能;④了解如何为应用程序添加高级特性,如类别管理、数据导入导出、到期日提醒等。 阅读建议:此资源不仅适用于零基础的学习者,也适合有一定编程经验的开发者深入理解PyQt5的应用开发。建议读者跟随教程逐步实践,结合实际操作来理解和掌握每个步骤,同时可以尝试实现扩展功能,进一步提升自己的开发技能。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值