var
  Form1: TForm1;
  h:thandle;
  pro:function:integer;stdcall;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
try
h:=loadlibrary('Pcris.dll');
@pro:=getprocaddress(h,'show');//show過程是顯示一窗體
getprocaddress是com里固有的函数么?
@pro:=fn_passwd()
怎么不成????提示fn_passwd没有定义???
undeclared identifier:'fn_passwd'