PureBasic Forums - English

Posted: **Sat Nov 21, 2009 2:45 pm**

If OpenLibrary(0, "USER32.DLL")
    *MessageBox = GetFunction(0, "MessageBoxA")
     If *MessageBox
         CallFunctionFast(*MessageBox, 0, "Body", "Title", 0)
EndIf
        CloseLibrary(0)
EndIf

PureBasic 4.41 All normal To PureBasic 4.40 Beta 7 erroneous

Posted: **Sat Nov 21, 2009 3:53 pm**

please read the docs, the CallFunction has changed.
(no more string allowed as parameters)
and also, please report more in detail (description and topic-title )

Code: Select all

If OpenLibrary(0, "USER32.DLL")
    *MessageBox = GetFunction(0, "MessageBoxA")
     If *MessageBox
         CallFunctionFast(*MessageBox, 0, @"Body", @"Title", 0)
EndIf
        CloseLibrary(0)
EndIf

Posted: **Sat Nov 21, 2009 4:49 pm**

Rings wrote:please read the docs, the CallFunction has changed.
(no more string allowed as parameters)
and also, please report more in detail (description and topic-title )
Code: Select all
If OpenLibrary(0, "USER32.DLL")
    *MessageBox = GetFunction(0, "MessageBoxA")
     If *MessageBox
         CallFunctionFast(*MessageBox, 0, @"Body", @"Title", 0)
EndIf
        CloseLibrary(0)
EndIf

You mean its now:

Code: Select all

 CallFunctionFast(*MessageBox, 0, @"Body", @"Title", 0)

and not

Code: Select all

 CallFunctionFast(*MessageBox, 0, "Body", "Title", 0)

??

I don't know as i haven't played around with the beta's.

PureBasic Forums - English

CallFunction Issue 4.4x [Solved]

CallFunction Issue 4.4x [Solved]

Re: PureBasic 4.40 Beta 7 (Windows - x86) Bug

Re: PureBasic 4.40 Beta 7 (Windows - x86) Bug