Delphi中动态链接库(DLL)的建立和使用

  function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:　
  如下例所示:
  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;

  在调用动态链接库时应注意, 所需动态链接库须与应用程序在同一目录或Windows System 目录下。

  动态链接库是 Windows下程序组织的一种重要方式,使用动态链接库可以极大地保护用户在不同开发工具、不同时期所做的工作,提高编程效率。