请问一下如何动态调用一个中的函数(dll与文件名存在数据库中)

Question

delphi help里的例子：
=========================
uses Windows, ...;
type  TTimeRec = record
    Second: Integer;
    Minute: Integer;
    Hour: Integer;
  end;  TGetTime = procedure(var Time: TTimeRec);  THandle = Integer;var  Time: TTimeRec;
  Handle: THandle;
  GetTime: TGetTime;
  ...
begin
  Handle := LoadLibrary('DATETIME.DLL');
  if Handle <> 0 then
  begin
    @GetTime := GetProcAddress(Handle, 'GetTime');
    if @GetTime <> nil then
    begin
      GetTime(Time);
      with Time do
        WriteLn('The time is ', Hour, ':', Minute, ':', Second);
    end;
    FreeLibrary(Handle);
  end;end;

Answer 1

在程序首部先声明一个函数。必须用Far关键字表示当前函数为一个远程调用。同时，还要列出它的所有参数和一人Exprots表不当前的函数为一外部函数。再加上DLL的文件名就可。
在程序中的调用和用本程序定义的函数一样。如：Function GetMax(const x,y: Integer):Integer;Far;exprots 'GetMax.dll';