我想用 Delphi 编写包含函数的 Dll，然后在 Excel VBA 调用。试了很多次都无法返回正确的结果。
具体如下：
Delphi7 中的测试源码：
//********************************************************************************************
library XlsExt;
{比较两数的大小，并返回较大者}
uses
SysUtils,
Classes;
{$R *.res}
var
SaveExit:Pointer;
procedure LibExit; //为了不使退出Excel时出现异常
begin
ExitProc:=SaveExit; //恢复退出过程链表
end;
function MyMax(X,Y:SmallInt):SmallInt;stdcall; //定义函数
begin
try
if X>Y then MyMax:=X else MyMax:=Y;
except
MyMax:=333; //测试异常处理，可是好像没有看到这个结果。
end;
end;
exports //函数输出
MyMax;
begin
SaveExit:=ExitProc; //保存退出过程链表
ExitProc:=@LibExit; //设置LibExit为退出过程
相关问答：
使用Dll Export Viewer看到dll有2个导出函数
函数名 地址 相对偏移地址 序号 � ......
怎么实现dos下runas自动输入密码
http://bbs.pfan.cn/post-278076.html
代码如下:
VB code:
Option Explicit
Private Const LOGON_WITH_PROFILE = &H1&
Private Const CREATE_DEFAULT_ERRO ......
谢谢了。最好有代码
Insert into Table2(field1,field2,...) select value1,value2,... from Table1
insert into 表一 select * from 表二
如果字段不一致，要指定字段
insert into 表一(A,B) se ......
向各位高手求助。
我用delphi2009编写了一个管理系统，使用的是access数据库。现在想通过多人一起录入数据后，将数据导出，导出的数据库包含多个相同的表。再将导出的数据依次导入到同一个数据库的相同表中，导入 ......
我尝试一个 idhttp 访问网站链接的程序
在设置代理端口的时候出错
编译没有错误
就是在运行的时候 出现了
80 is not a valid integer value 的问题
我已经把 函数分类出来的 port 转换为 integer 了 ......
