MSG Box

Scris de **aNgeL =]** Sam Iul 11, 2009 11:10 am

Un cod care face exact ce face si functia din VB "MsgBox".

Cod:

#constant MsgOKOnly = 0
#constant MsgOKCancel = 1
#constant MsgAbortRetryIgnore = 2
#constant MsgYesNoCancel = 3
#constant MsgYesNo = 4
#constant MsgRetryCancel = 5
#constant MsgCritical = 16
#constant MsgQuestion = 32
#constant MsgExclamation = 48
#constant MsgInformation = 64
#constant MsgDefaultButton1 = 0
#constant MsgDefaultButton2 = 256
#constant MsgDefaultButton3 = 512
#constant MsgApplicationModal = 0
#constant MsgSystemModal = 4096
#constant MsgOK = 1
#constant MsgCancel = 2
#constant MsgAbort = 3
#constant MsgRetry = 4
#constant MsgIgnore = 5
#constant MsgYes = 6
#constant MsgNo = 7

i as integer
repeat
i = msgbox("Vrei sa iesi?",MsgYesNo+MsgCritical,"Iesire")
if i = MsgNo then wait 500
until i = MsgYes

function MsgBox(msg as string,opts as integer,title as string)
local dll_num as integer : local hwnd as integer
local response as integer
dll_num = FreeDll()
if dll_num > 0
load dll "user32.dll",dll_num
hwnd = call dll (dll_num,"GetActiveWindow")
response = call dll (dll_num,"MessageBoxA",hwnd,msg,title,opts)
delete dll dll_num
else
response = -1
endif
endfunction response

function FreeDll()
local i as integer : stop as integer
repeat
inc i
if i < 256 then if dll exist(i)=0 then stop = 1
until stop = 1 or i > 255
if i > 255 then i = 0
endfunction i