TGC Codebase Backup



Windows user32.dll MessageBox by Pillarofire

6th Jun 2006 23:43
Summary

Create a real Windows MessageBox using an easy to use DBPro function. <code>MessageBoxNP( message$, title$, MB_OPTION )</code>



Description

This is a short block of code that uses a common windows (r) dll to create a Standard Message box using a DBPro function.



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    
if mouseclick()=2
  foo = MessageBoxNP( "This is the Message", "Message Title", MB_ABORTRETRYIGNORE )
endif
print foo
wait mouse


`make a standard windows message box, NULL PARENT(NP)
function MessageBoxNP( message$, title$, MB_OPTION )
  #constant   MB_OK                       0
  #constant   MB_OKCANCEL                 1
  #constant   MB_ABORTRETRYIGNORE         2
  #constant   MB_YESNOCANCEL              3
  #constant   MB_YESNO                    4
  #constant   MB_RETRYCANCEL              5
  op = 0x00000000 + MB_OPTION
  #constant USER32_DLL 1
  load dll "user32.dll",   USER32_DLL
  result = call dll( USER32_DLL, "MessageBoxExA", (), message$, title$, op )
  delete dll USER32_DLL
endfunction result