exe也可以当Dll用

最新推荐文章于 2024-05-15 09:33:17 发布

seagull327

最新推荐文章于 2024-05-15 09:33:17 发布

阅读量1.2k

点赞数

分类专栏：动态链接库[Dll] 文章标签： exe dll integer function

本文链接：https://blog.csdn.net/haiou327/article/details/6644546

版权

动态链接库[Dll] 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

function abcd(x: integer): integer; stdcall;    
var    
  Form1: TForm1;    
implementation    
    
function abcd(x: integer): Integer; stdcall;    
begin    
  Result := x * 2;    
end;    
{$R *.dfm}    
exports    
  abcd;    
    
var    
  abcd:function(x:integer):Integer;stdcall;    
  H: THandle;    
begin    
  h := LoadLibrary('exeDllTest.exe');    
  if H > 32 then    
  begin    
    @abcd := GetProcAddress(h, 'abcd');    
    ShowMessage(inttostr(abcd(8)));    
  end;    
  FreeLibrary(h);    
end;