RosettaCodeData/Task/Call-a-function-in-a-shared-library/PureBasic/call-a-function-in-a-shared-library-1.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
157 B
Text

if OpenLibrary(0, "USER32.DLL")
*MessageBox = GetFunction(0, "MessageBoxA")
CallFunctionFast(*MessageBox, 0, "Body", "Title", 0)
CloseLibrary(0)
endif