fpcsrc/tests/webtbs/tw13628b.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

{ %needlibrary }

program loadmodule;

uses
  popuperr,
  dynlibs;

const
  {$ifdef unix}
  {$ifdef darwin}
  libname = './libtw13628a.dylib';
  {$else darwin}
  libname = './libtw13628a.so';
  {$endif darwin}
  {$endif unix}

  {$ifdef windows}
  libname = 'tw13628a.dll';
  {$endif windows}

var
  hdl: TLibHandle;
begin
  hdl := loadlibrary(libname);
  if (hdl=nilhandle) then
    halt(1);
  if not UnloadLibrary(hdl) then
    halt(2);;
end.