iamfly:
thanks!
我只是做了一个简单的例子,代码为:
SysUtils, Classes, Dialogs;
Function GetStringLength(parastrchar):integer;stdcall;
Function GetUserName(UserNamechar)char;stdcall;
procedure ReturnValues(paravalueschar);stdcall;
implementation
Function GetStringLength(parastrchar):integer;
begin
result:=length(parastr);
end;
Function GetUserName(UserNamechar)char;
begin
Showmessage(UserName);
result:=UserName;
end;
procedure ReturnValues(paravalueschar);
begin
Showmessage(paravalues);
end;