EXE导出函数，有人成功吗？(50分)

新建EXE工程，在EXE导出一个函数
program mm;

uses
Forms,windows,
m in 'm.pas' {Form1};

function test(i:Integer;b:BOOL;var pChar)Char;stdcall;
begin
if i=1 then
result:='dddddddddddddddddd';
if b then
p:='cccccccccccccccccccccc';
end;

exports
test;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

再建一EXE工程调用
function test(i:integer;b:BOOL;var pChar)Char;stdcall; external 'project1.exe';
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var pchar;
begin
caption:=test(1,False,p);
end;

无法调用。。。报异常。。。有人试过成功吗？

写成DLL就是了。

我知道DLL可以，只是想试试EXE是否也可以像DLL那样

不行哦。

WIN 的　ntoskrnl.exe　可以导出哦。。晕晕

三层的不就是这样吗

那种不一样了。。会写注册表的，ActiveX EXE了

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1493893

楼上。不能静态调用的，不爽。。。

可以的。。。。我之前的系统就是从Exe导出函数跟变量的。