请教DLL中全局变量的问题
根据教材，同一个DLL被多个应用程序调用时只在内存中装入一次，各应用程序共享相同的内存片段，因此本人理解同一个DLL中定义的全局变量及其数值也应是共享的。可作了例程一试，理解并不正确，请问怎样才能让几个调用程序共享DLL中全局变量的数据？
谢谢
我的代码如下：
DLL代码：
library dllsamplesum;
uses
SysUtils, Classes;
var
arr1，arr2: integer;//DLL中定义全局变量
{$R *.res}
function exp1(X:integer):integer;stdcall;
begin
arr1:=x*3; result:=arr1;
end;
function exp2(X:integer):integer;stdcall;
begin
arr2:=x*3; result:=arr2;
end;
function expadd():integer;stdcall;
begin
result:=arr1+arr2;
end;
exports
exp1,exp2,expadd;//为了测试设计了三个输出函数
begin
end.
第一个调用程序，调用第一个输出函数，对arr1进行赋值：
为直观节约版面，仅将调用代码复制如下，
function exp1(x:integer):integer;stdcall;external 'dllsamplesum.dll' name 'exp1';
procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.TextOut(100,100,inttostr(exp1(random(100))));
end;
第二个调用程序，调用第二个输出函数，对arr2进行赋值：
function exp2(x:integer):integer;stdcall;external 'dllsamplesum.dll' name 'exp2';
procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.TextOut(100,100,inttostr(exp2(random(100))));
end;
第三个调用程序，调用第三个输出函数，尝试利用arr1、arr2的值进行计算，测试结果，永远是0：
function expadd():integer;stdcall;external 'dllsamplesum.dll' name 'expadd';
procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.TextOut(100,100,inttostr(expadd()));
end;
[ 本帖最后由 yalewang 于 2010-8-4 16:51 编辑 ]
