极其高难的问题

[fwtandpj]

在delphi里，我有一个公共单元文件，这个单元里定义了一些系统的公共函数。当我知道了函数名称的时候如何利用程序获得这些函数的地址，进而可以利用函数指针方法等动态的调用这些函数

[younggle]

很简单的。请看下例：

HINSTANCE hInst = LoadLibrary("XXXX.DLL");
if(hInst)
{
typedef BOOL (WINAPI *MYFUNC)(HWND,COLORREF,BYTE,DWORD);//定义函数指针类型MYFUNC，

MYFUNC fun = NULL;
fun=(MYFUNC)GetProcAddress(hInst, "函数名字");
if(fun)fun(this->GetSafeHwnd(),0,250,2);
FreeLibrary(hInst);
}

[dext]

procedure ABC(i:Integer);
begin
end;

var
a: procedure (i:Integer);

procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:= IntToStr(Integer(@ABC));
a:= ABC;
end;