dl.pp 382 B

123456789101112131415161718
  1. Unit dl;
  2. Interface
  3. Const
  4. LibDL = 'dl';
  5. RTLD_LAZY = $001;
  6. RTLD_NOW = $002;
  7. RTLD_BINDING_MASK = $003;
  8. Function dlopen(Name : PChar; Flags : longint) : Pointer; cdecl; external libdl;
  9. FUnction dlsym(Lib : Pointer; Name : Pchar) : Pointer; cdecl; external Libdl;
  10. Function dlclose(Lib : Pointer) : Longint; cdecl; external libdl;
  11. implementation
  12. end.