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

7 lines
230 B
Text

Prototype.l ProtoMessageBoxW(Window.l, Body.p-unicode, Title.p-unicode, Flags.l = 0)
If OpenLibrary(0, "User32.dll")
MsgBox.ProtoMessageBoxW = GetFunction(0, "MessageBoxW")
MsgBox(0, "Hello", "World")
CloseLibrary(0)
EndIf