OpenEuphoria

RE: [Win] dos boxes (Kat)

• Posted by Al Getz <Xaxo at aol.com> Apr 30, 2001
• 495 views

Matthew Lewis wrote:
> 
> > -----Original Message-----
> > From: Kat [mailto:gertie at PELL.NET]
> 
> > But Al, there is no *windoze* window, i am using puts(), and 
> > there is no 
> > WM_CREATE!
> 
> The following works for me:
> 
> -- begin code
> -- console.exw
> include dll.e
> include machine.e
> include get.e
> 
> constant
> kernel32 = open_dll( "kernel32.dll" ),
> SetConsoleTitle = define_c_func( kernel32, "SetConsoleTitleA",
>     { C_POINTER }, C_SHORT )
> 
> puts(1, "Euphoria Console\n")
> atom lpsz
> lpsz = allocate_string( "Euphoria Console" )
> ? c_func( SetConsoleTitle, { lpsz } )
> 
> free(lpsz)
> if wait_key() then
> 
> end if
> -- end code
> 
> 

Yeah, and some people only know how to read one post before
they reply 

Bye