把exe文件当dll用，也可以在dll中调用exe中的函数

http://blog.sina.com.cn/s/blog_47108278010000hs.html

1. 被调用的exe文件

 

工程文件中

program Project1;

uses
   Forms,Dialogs,
   Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

 

function mymsgbox:Boolean;export;
begin
   showmessage('ok');
   result:=True;
end;

exports
   mymsgbox;

 

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

 

2.调用exe部分

 

在form1中添加一个按钮，单击调用exe的mymsgbox函数

 

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls;

type
   TForm1 = class(TForm)
       btn1: TButton;
       procedure btn1Click(Sender: TObject);
   private
       { Private declarations }
   public
       { Public declarations }
   end;

var
   Form1: TForm1;
     //  function mymsgbox:Boolean;external 'project1.exe';     
implementation

{$R *.DFM}

procedure TForm1.btn1Click(Sender: TObject);
var
   mymsgbox: function: Boolean;
begin

  //动态调用
  @mymsgbox := GetProcAddress(GetModuleHandle(pchar(application.Exename)), 'mymsgbox');
  if Assigned(mymsgbox) then //找到
     mymsgbox;

 

  //静态调用，结合上面的声明语句
  //mymsgbox; 
end;

end.

 

3.dll调用部分

 

library Project2;

uses
   SysUtils,
   Classes,
   Windows;

{$R *.RES}

function dllcall:Boolean;export;

var
   mymsgbox: function: Boolean;
begin
   @mymsgbox := GetProcAddress(GetModuleHandle(pchar('project1.exe')), 'mymsgbox');
   if Assigned(mymsgbox) then //找到
       mymsgbox;
end;

exports
   dllcall;

begin

end.