mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
29 lines
434 B
ObjectPascal
29 lines
434 B
ObjectPascal
{ %needlibrary }
|
|
{ %delfiles=tw6822a }
|
|
|
|
program loader;
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
popuperr,
|
|
dynlibs;
|
|
var
|
|
h: TLibHandle;
|
|
const
|
|
{$ifdef unix}
|
|
libname = './libtw6822a.'+SharedSuffix;
|
|
{$else unix}
|
|
libname = 'tw6822a.' + SharedSuffix;
|
|
{$endif unix}
|
|
|
|
begin
|
|
writeln('hello from loader program');
|
|
h:= loadlibrary(libname);
|
|
if h = nilhandle then
|
|
begin
|
|
write('could not load library');
|
|
exit;
|
|
end;
|
|
freelibrary(h);
|
|
end.
|