RosettaCodeData/Task/Call-a-function-in-a-shared-library/PureBasic/call-a-function-in-a-shared-library-1.basic

6 lines
157 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
if OpenLibrary(0, "USER32.DLL")
*MessageBox = GetFunction(0, "MessageBoxA")
CallFunctionFast(*MessageBox, 0, "Body", "Title", 0)
CloseLibrary(0)
endif