盒子论坛 v2.1

如果form上有edit1,edit2,button控件
dll,帮助一下，大哥
library maxmin;
uses
  SysUtils,
  Classes;
   function ismin(x,y:integer):integer; export;
   begin
       if x<y then result:=x
        else
          result:=y;
     end;
   function ismax(x,y:integer):integer;export;
      begin
           if x>y then result:=x
           else
               result:=y;
       end;
  exports
        ismin,ismax;
{$R *.res}

begin
end.

帮助我用loadlirary ,getprocaddress,freelibrary写一个动态调用maxmin函数

----------------------------------------------
我希望我们通过网络能成为朋友

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/7/4 17:00:00

1楼：

function ismax(x,y:integer):integer;export;
最好改为 function ismax(x,y:integer):integer;stdcall;

procedure Form1.Button1Click(Sender: TObject);
type TMinMaxProc = function(x,y:integer): Integer; stdcall;
var
  H: HMODULE;
  Proc: TMinMaxProc;
begin
  H := SafeLoadLibrary('DllFile');
  if H > 0 then
  begin
    Proc := GetProcAddress(H, 'ProcName');
    if Assigned(Proc) then Proc(1, 2);
    FreeLibrary(H);
  end;
end;
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复