delphi中怎样加载dll?

Question

怎样动态的加载dll？
最好能给一个能运行的例子！

Answer 1

Typt
  TModPas=Function(Var OldPwd:PChar;Var NewPwd:PChar;HH:THandle):Boolean;stdcall;procedure TMainForm.cb1Click(Sender: TObject);
var
  HH:Thandle;
  ModPassWord:TModPas;
begin
Try
        hh:=LoadLibrary(PChar(CurDir+'xpformdll.dll'));
        if hh<>0 then
          @ModPassWord:=GetProcAddress(HH,'ModPassWord');
        if (@ModPassWord)<>nil then
          if TModPas(ModPassWord)(OldP,NewP,Application.Handle) then
           //Go you Program
      Finally
        Freelibrary(HH);
      End;
end;

Answer 2

wsforqyc(大海)
hh:=LoadLibrary(PChar(CurDir+'xpformdll.dll'));应该加上stdcall或其他标示符才对吧?
我这样用但是他老返回的是地址阿！