Ask Delphi中通过GetProcAddress获得的Dll入口函数的地址后如何调用这个函数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你个例子:type TMyProc = procedure(Param: Pchar); Stdcall;var MyProc: TMyproc; MyHandle: THandle;begin MyHandle := LoadLibrary('Mydll'); if MyHandle <= 0 then raise Exception.Create('动态链接库调用失败,错误代码是:' + IntToStr(GetLastError)) else @MyProc := GetProcAddress(MyHandle, 'demoproc'); if not Assigned(MyProc) then raise Exception.Create('GetProcAddress调用失败,错误代码是:' + IntToStr(GetLastError)) else MyProc(PChar('a string')); Freelibrary(Myhandle); // 卸载DLLend; TMyProc = procedure(Param: Pchar); Stdcall;如果参数多于一个,怎么写 请问intraweb怎么响应flash的单击事件? 江湖救急 在线等 高分:请教一个用SQL语句向SQL Server2000插入二进制(image)数据的问题! 学习delphi,第一次做报表,欢迎来拿分! 还是系统登陆的问题啊 求救 内存耗尽 现在都没有高手了论坛了 我的很多问题都没有解决哦!!哎。。。。 怎样通过 一个sql语句关闭某个表的触发器? 大富翁离线资料下载(截止2001-11-23) 装ADSL的机器不能正确显示自己IP的问题 怎样定义TStrings类型的变量
type
TMyProc = procedure(Param: Pchar); Stdcall;var
MyProc: TMyproc;
MyHandle: THandle;
begin
MyHandle := LoadLibrary('Mydll');
if MyHandle <= 0 then
raise Exception.Create('动态链接库调用失败,错误代码是:' + IntToStr(GetLastError))
else
@MyProc := GetProcAddress(MyHandle, 'demoproc');
if not Assigned(MyProc) then
raise Exception.Create('GetProcAddress调用失败,错误代码是:' + IntToStr(GetLastError))
else
MyProc(PChar('a string'));
Freelibrary(Myhandle); // 卸载DLL
end;