function VerifyPublicKey(RandomM:PChar;DataOut:PChar):integer;stdcall;External'AA.dll';
procedure TForm1.Button1Click(Sender: TObject);
var Flag:integer;
RStr:STRING;
DStr:STRING;
begin
DStr:='9999999';//
Flag:=VerifyPublicKey(RStr,DStr);
if Flag=1 then
begin
Application.MessageBox('OK!','系统提示',mb_ok);
Memo1.Lines.Add(DStr^);//显示返回的内容
end
else
begin
Application.MessageBox('失败!','系统提示',mb_ok);
end;
end;