Timed message box (easy)

netmaestro · Post by **netmaestro** » Tue Mar 13, 2007 9:22 pm

Sometimes it pays to dig through the API dlls and look for those little undocumented gems:

OpenLibrary (0, "user32.dll")
Prototype MessageBoxTimed(hWnd.l, lpText.s,lpCaption.s, uType.l, wLanguageID.w, dwMilliseconds.l)
Global MessageBoxTimed.MessageBoxTimed = GetFunction(0,"MessageBoxTimeoutA")

MessageBoxTimed(0,"What do you know for sure?","Hey there!",#MB_OK|#MB_SYSTEMMODAL|#MB_ICONQUESTION, 0, 3000)

There's a W version in there too for unicode.

Trond · Post by **Trond** » Tue Mar 13, 2007 9:30 pm

It doesn't show any message box here.

netmaestro · Post by **netmaestro** » Tue Mar 13, 2007 9:34 pm

What are you running, w2k? Maybe it's not in that. It's in XP and Vista.

ts-soft · Post by **ts-soft** » Tue Mar 13, 2007 9:43 pm

For Unicode and Ansi:

Code: Select all

Import "user32.lib"
  MessageBoxTimed(a.l,b.p-unicode,c.p-unicode,d.l,e.l,f.l) As "_MessageBoxTimeoutW@24"
EndImport

MessageBoxTimed(0,"What do you know for sure?","Hey there!",#MB_OK|#MB_SYSTEMMODAL|#MB_ICONQUESTION, 0, 3000)

But this doesn't work with the user32.lib from pb

The user32.lib from PellesC works fine!

Trond · Post by **Trond** » Tue Mar 13, 2007 10:08 pm

I use XP pro. The function seems to be loaded ok as well, but the message box doesn't appear.

netmaestro · Post by **netmaestro** » Tue Mar 13, 2007 10:14 pm

All I can think of would be possibly that languageid parameter is tripping you up being from Norway. If it isn't that I'm stumped.

Trond · Post by **Trond** » Tue Mar 13, 2007 10:49 pm

The function returns 0, so does GetLastError_() after it.

netmaestro · Post by **netmaestro** » Tue Mar 13, 2007 11:16 pm

Well it's a bit of a hail mary pass, but it's worth a shot anyway:

Code: Select all

OpenLibrary (0, "user32.dll")
Prototype MessageBoxTimed(hWnd.l, lpText.s,lpCaption.s, uType.l, wLanguageID.w, dwMilliseconds.l)
Global MessageBoxTimed.MessageBoxTimed = GetFunction(0,"MessageBoxTimeoutA")

GetKeyboardLayout_(@layout.l)
langid.w = layout&$FFFF
MessageBoxTimed(0,"What do you know for sure?","Hey there!",#MB_OK|#MB_SYSTEMMODAL|#MB_ICONQUESTION, langid, 3000)

ts-soft · Post by **ts-soft** » Wed Mar 14, 2007 6:32 pm

User32.dll is allways loaded, so you can use this:

Code: Select all

Prototype MessageBoxTimed(hWnd.l, lpText.s,lpCaption.s, uType.l, wLanguageID.w, dwMilliseconds.l)
Global MessageBoxTimed.MessageBoxTimed = GetProcAddress_(GetModuleHandle_("user32.dll"),"MessageBoxTimeoutA")

MessageBoxTimed(0,"What do you know for sure?","Hey there!",#MB_OK|#MB_SYSTEMMODAL|#MB_ICONQUESTION, 0, 3000)

DarkDragon · Post by **DarkDragon** » Wed Mar 14, 2007 7:02 pm

ts-soft wrote:User32.dll is allways loaded...

No, kernel32.dll is always loaded. User32.dll is just sometimes loaded.

ts-soft · Post by **ts-soft** » Wed Mar 14, 2007 7:12 pm

@DarkDragon
I have never see any exe compiled by pb that have no DLL Dependency to User32.dll, so the DLL is loaded. Kernel32.dll is also loaded

DarkDragon · Post by **DarkDragon** » Wed Mar 14, 2007 7:22 pm

ts-soft wrote:@DarkDragon
I have never see any exe compiled by pb that have no DLL Dependency to User32.dll, so the DLL is loaded. Kernel32.dll is also loaded

Hmm... ok.

Afaik LoadLibrary_ (what PB's OpenLibrary uses) returns the same handle if it was already loaded. So there's no real difference between your's and the one of netmaestro except the one of netmaestro maybe has more future, if Fred takes the "user32.dll" out of the standardly linked libraries.

ts-soft · Post by **ts-soft** » Wed Mar 14, 2007 7:25 pm

@DarkDragon
Better is import of user32.lib, but the version included in pb is to old. Many functions are missing