home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol10n17.zip
/
DYNLINK
< prev
next >
Wrap
Text File
|
1991-09-12
|
551b
|
18 lines
Declare Function LoadLibrary Lib "kernel" (modname As String) As Integer
Declare Function GetProcAddress Lib "kernel" (handle As Integer, \
funcname As String) As Long
Sub MAIN
Input "Module name", modname$
Input "Function name", funcname$
module = LoadLibrary(modname$)
If module < 32 Then Goto done ' failed
funcptr = GetProcAddress(module, funcname$)
Print modname$; "."; funcname$; " at "; funcptr; " in module#"; module
' No way to _call_ funcptr: that's why we need DECLARE!
done:
End Sub