RosettaCodeData/Task/Call-a-function-in-a-shared-library/PureBasic/call-a-function-in-a-shared-library-1.basic
2023-07-01 13:44:08 -04:00

5 lines
157 B
Text

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