Автор: Panov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Модуль-заготовка для динамического подключения библиотек.

Модуль подключается к проекту.
Для загрузки и выгрузки библиотек используется по одной функции.

Зависимости: windows.pas, sysutils.pas
Автор:       panov, panov@hotbox.ru
Copyright:   нет
Дата:        30 марта 2004 г.
***************************************************** }

unit proc;

interface
uses windows, sysutils, classes;

const
  _MyLibraryName = '..\dll\proc.dll'; //имя библиотеки
var
  hLib: THandle;

procedure LoadLib;
procedure UnloadLib;

implementation

procedure LoadLib;
begin
  if hLib <> 0 then
    Exit;
  hLib := LoadLibrary(PChar(_MyLibraryName));
  if (hLib = 0) then
  begin
    raise Exception.Create('Не могу загрузить библиотеку ' + _MyLibraryName);
    Exit;
  end;
end;

procedure UnloadLib;
begin
  FreeLibrary(hLib);
  hLib := 0;
end;

initialization
  hLib := 0;
end.

Пример использования:

unit proc;

interface
uses windows, sysutils;

const
  _MyLibraryName = '..\dll\proc.dll'; //имя библиотеки
var
  hLib: THandle;

  ExecCmd: procedure(const aCommand: string; const aShow, aWaitExit: Boolean);

procedure LoadLib;
procedure UnloadLib;

implementation

procedure LoadLib;
begin
  if hLib <> 0 then
    Exit;
  hLib := LoadLibrary(PChar(_MyLibraryName));
  if (hLib = 0) then
  begin
    raise Exception.Create('Не могу загрузить библиотеку ' + _MyLibraryName);
    Exit;
  end;

  @ExecCmd := GetProcAddress(hLib, 'ExecCmd');
end;

procedure UnloadLib;
begin
  FreeLibrary(hLib);
  hLib := 0;
end;

initialization
  hLib := 0;
end.

{
В любом модуле пишем:

  uses proc;
...
  LoadLib; //Загрузка библиотеки.
  ExecCmd('c:\command.com',True,True);
  UnloadLib; //Выгрузка библиотеки.
}