'-Begin-----------------------------------------------------------------
'-
'- FreeBasic Dynamic Link Library (DLL) for GuiXT
'- Compile it with -dll option.
'-
'- Author: Stefan Schnell
'-
'-----------------------------------------------------------------------
'-Includes------------------------------------------------------------
#Include Once "windows.bi"
Extern "Windows-MS"
'-Function expMsgBox------------------------------------------------
Function expMsgBox Alias "expMsgBox" (ByVal inMsg As String, _
ByVal inTitle As String, ByVal outRes As String) As Long Export
'-Variables-----------------------------------------------------
Dim resMsgBox As Long
resMsgBox = MessageBox(NULL, inMsg, inTitle, MB_YESNOCANCEL)
outRes = Str(resMsgBox)
expMsgBox = resMsgBox
End Function
End Extern
'-End-------------------------------------------------------------------
//-Begin----------------------------------------------------------------
Call "expMsgBox" dll="FreeBasic.dll" In="Hello World" In="GuiXT" Out="res"
Message "&[res]"
//-End------------------------------------------------------------------
; Begin-----------------------------------------------------------------
;
; PureBasic Dynamic Link Library (DLL) for GuiXT
;
; Author: Stefan Schnell
;
; ----------------------------------------------------------------------
; Function expMsgBox--------------------------------------------------
ProcedureDLL.i expMsgBox(inMsg.s, inTitle.s, *outRes)
; Variables-------------------------------------------------------
Protected resMsgBox.i
resMsgBox = MessageRequester(inTitle, inMsg, #PB_MessageRequester_YesNoCancel)
PokeS(*outRes, Str(resMsgBox))
ProcedureReturn resMsgBox
EndProcedure
; End-------------------------------------------------------------------
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
12 | |
12 | |
7 | |
5 | |
5 | |
4 | |
4 | |
3 | |
3 | |
3 |