//我自己试了都没有事呀。
library calculate;uses
Windows,
SysUtils,
Classes;function f1(s1, s2: PChar): PChar ; stdcall;
begin
MessageBox(0, s1, 'taxi', mb_ok);
result := PChar(string(s1) + string(s2));
end;{$R *.res}exports
f1;begin
end.
library calculate;uses
Windows,
SysUtils,
Classes;function f1(s1, s2: PChar): PChar ; stdcall;
begin
MessageBox(0, s1, 'taxi', mb_ok);
result := PChar(string(s1) + string(s2));
end;{$R *.res}exports
f1;begin
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货