http://topic.csdn.net/t/20040831/18/3327148.html //定义函数指针 VC++
GetProcAddress返回的是一个函数地址的指针。
声明:FARPROC WINAPI GetProcAddress(__in HMODULE hModule, __in LPCSTR LpProcName);
你应该知道你要的函数的类型是什么,可以用typedef的方法定义函数类型,然后定义一个这种类型的变量,你得到地址后,
将地址的类型转换并存到那个变量中就行了。
Delphi 呢? 为什么要用Var声明一个函数啊?
补充:
procedure ShowTip; stdcall;
type
TMessageBoxA = function (hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
var
hMod: HMODULE;
pFuncAddr: Pointer;
begin
hMod := GetModuleHandle(PChar('user32.dll'));
pFuncAddr := GetProcAddress(hMod, PChar('MessageBoxA'));
if pFuncAddr <> nil then
begin
TMessageBoxA(pFuncAddr)(0, PChar('显示一个消息而已'), PChar('当然成功啦'), 64); //还可以这样调用;
end;
end;
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/god00/archive/2011/04/05/6302433.aspx