Delphi語言學習9-函數的靜態和動態加載

1.靜態加載

procedure DoSomething; external 'MYLIB.DLL';

2.動態加載

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('libraryname');
    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;