静态调用往往不够灵活和影响性能，采取动态调用是上上之选。 不废话上通用代码。 procedure TForm1.btn12Click(Sender: TObject); type TIntFunc = function(n: Integer): Extended; stdcall; var Th: Thandle; Tf: TIntFunc; Tp: TFarProc; begin Th := LoadLibrary(‘dll.dll’); { 装载DLL } if Th > 0 then tr