2001-12-15 12:24 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

This commit is contained in:
Viktor Szakats
2001-12-15 11:29:03 +00:00
parent 1c2b5451fc
commit b217c19ef6
5 changed files with 35 additions and 14 deletions

View File

@@ -63,28 +63,32 @@
HB_FUNC( LIBLOAD )
{
#if defined(HB_OS_WIN_32)
{
hb_retnl( ( long ) LoadLibrary( hb_parc( 1 ) ) );
}
#else
{
hb_retnl( 0 );
}
#endif
}
HB_FUNC( LIBFREE )
{
#if defined(HB_OS_WIN_32)
{
hb_retl( FreeLibrary( ( HMODULE ) hb_parnl( 1 ) ) );
}
#else
{
hb_retl( FALSE );
}
#endif
}
/* Executes a Harbour pcode dynamically loaded DLL function or procedure
* Syntax: HB_DllDo( <cFuncName> [,<params...>] ) --> [<uResult>]
* Syntax: HB_libDo( <cFuncName> [,<params...>] ) --> [<uResult>]
*/
HB_FUNC( HB_LIBDO )
@@ -107,4 +111,5 @@ HB_FUNC( HB_LIBDO )
hb_vmDo( uiPCount - 1 );
}
}
}