请问用LoadLibrary , GetProcAddress 如何引用API函数?(10分)

icysword · 2002-01-10

请问用LoadLibrary , GetProcAddress 如何引用API函数? 能举个例子吗?

zw84611 · 2002-01-10

搜一下已答问题可得： -----------------------------------------------------     静态调用：function testfunc;far;external 'c:/run/dll/testdll.dll';     动态调用：temphd:=loadlibrary('c:/run/dll/testdll.dll');               getprocess(...);               freelibrary(...);               ----------------------------------------------------- var   h : THandle;   fn : function(PARAMETER_LIST_HERE) : RETURN_TYPE; begin   h := LoadLibraryEx(DLL_FILE_PATH,0,0);   if h=0 then   begin     showMessage('load library error!');     exit;   end;   @fn := GetProcAddress(h,PROC_NAME); //case sensitive   if @fn=nil then   begin     showMessage('get proc address error!');     FreeLibrary(h);     exit;   end;   fn(PARAMETER_LIST_HERE); // call proc or function   ...   FreeLibrary(h); end;

icysword · 2002-01-11

多谢答复, 但在使用中发现问题, 能否再赐教. 代码如下(程序产生非法操作): var   buffer

char;   h : THandle;   fn : function (lpBuffer: PChar; uSize: UINT): UINT; begin h:=LoadLibrary('kernel32.dll'); if h=0 then   begin     showMessage('load library error!');     exit;   end; @fn := GetProcAddress(h,'GetWindowsDirectoryA'); if @fn=nil then   begin     showMessage('get proc address error!');     freelibrary(h);     exit;   end; getmem(buffer,260); fn(buffer,260); freelibrary(h); end; 为何会产生非法操作??

zw84611 · 2002-01-11

做两处改动： fn : function (lpBuffer: PChar; uSize: UINT): UINT; stdcall; .... @fn := GetProcAddress(h,Pchar('GetWindowsDirectoryA'));

icysword · 2002-01-11

呵呵, 成功了. 谢谢了, ^-^

请问用LoadLibrary , GetProcAddress 如何引用API函数?(10分)

icysword

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

icysword

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

icysword

Unregistered / Unconfirmed

Similar threads