1. A Little API Help Please

Hello list.

I am making a window.  The window is just an invisible window to receive 
tcp and timer messages.  I am also using a console.  The problem is that 
in the CTRL+ALT+DEL menu, it shows the name on the console(EXW).  I want 
it to say what I tell it to.

Here is some code...

global constant USER32 = open_dll("user32.dll"), 
         xPostQuitMessage = define_c_proc(USER32, "PostQuitMessage", 
{C_INT}), 
         xDefWindowProc = define_c_func(USER32, 
"DefWindowProcA",repeat(C_UINT,4),C_UINT), 
         xRegisterClassEx = define_c_func(USER32, "RegisterClassExA", 
{C_POINTER}, C_INT), 
         xCreateWindow = define_c_func(USER32, 
"CreateWindowExA",repeat(C_INT,12),C_INT), 
         xGetMessage	= define_c_func(USER32, "GetMessageA", 
repeat(C_INT,4), C_INT), 
         xTranslateMessage = define_c_proc(USER32, "TranslateMessage", 
{C_INT}), 
         xDispatchMessage = define_c_proc(USER32, "DispatchMessageA", 
{C_INT}), 
         xSetTimer = define_c_func(USER32, "SetTimer", 
{C_INT,C_INT,C_INT,C_INT},C_INT), 
         xKillTimer = define_c_func(USER32, "KillTimer", 
{C_INT,C_INT},C_INT), 
         SIZEOF_MESSAGE	= 40, 
         SIZEOF_WNDCLASSEX	= 48, 
         WM_CREATE = #00000001, 
         WM_DESTROY = #00000002, 
         WM_COMMAND = #00000111, 
         WM_TIMER = #113, 
      	WINDOW_CLASS_NAME	= allocate_string("MyWndClass"),
	      APP_NAME	= allocate_string("My Window!!!"), 
	      WC_cbSize = 0,
	      WC_style	= 4,
	      WC_WndProc = 8,
	      WC_cbClsExtra = 12,	-- Normally NULL
	      WC_cbWndExtra = 16,	-- Normally NULL
	      WC_hInstance = 20,
	      WC_hIcon	= 24,
	      WC_hCursor = 28,
	      WC_hbrBackground = 32,
	      WC_lpszMenuName = 36,
	      WC_lpszClassName = 40,
	      WC_hIconSm = 44

atom  main_window_handle
main_window_handle = 0

	atom msg
	atom wndclass

	msg               = allocate(SIZEOF_MESSAGE)
	wndclass          = allocate(SIZEOF_WNDCLASSEX)

	-- zero out wndclass structure so we can poke only relevant values
	mem_set(wndclass,0,SIZEOF_WNDCLASSEX)

	-- poke relevant structure members only
	poke4(wndclass+WC_cbSize,			SIZEOF_WNDCLASSEX)
	
	poke4(wndclass+WC_style,         	0)
	poke4(wndclass+WC_cbClsExtra,		   0)
	poke4(wndclass+WC_cbWndExtra,		   0)
	poke4(wndclass+WC_WndProc,         	call_back(routine_id("WndProc")))
	poke4(wndclass+WC_hInstance,        instance())
	poke4(wndclass+WC_hIcon,          
0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))
	poke4(wndclass+WC_hCursor,         	0)--c_func(xLoadCursor, {NULL, 
IDC_ARROW}))
	poke4(wndclass+WC_hbrBackground,    
0)--c_func(xGetSysColor,{COLOR_APPWORKSPACE}))
	poke4(wndclass+WC_lpszMenuName,		0)
	poke4(wndclass+WC_lpszClassName,    WINDOW_CLASS_NAME)
	poke4(wndclass+WC_hIconSm,          
0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))

	if not c_func(xRegisterClassEx, {wndclass}) then
		handle_error("Failed: RegisterClassEx")
	end if

	main_window_handle         =
	c_func(xCreateWindow,{
                                 0,
                                 WINDOW_CLASS_NAME,
                                 APP_NAME,
                                 0,
                                 100, 110,
                                 10, 10,
                                 0,
                                 0,
                                 instance(),
                                 0
                        })

	if not(main_window_handle) then
		handle_error("Failed: CreateWindowEx")
	end if

<end of code>

Now if I use #80000000+#10000000 in place of the "dwStyle"(the one after 
APP_NAME) paramater, it works sorta.  It shows up as it should in the 
CTRL+ALT+DEL menu but when I go over to the console window it 
creates(not shown), it then says "EXW" again and the "My Window!!!" text 
dissappears sad

Any ideas on this??

Thanks, 
   Robert Szalay

$-> Not an API Guy <-$

new topic     » topic index » view message » categorize

2. Re: A Little API Help Please

--Alt-Boundary-23147.2705109
Content-description: Mail message body

WM_SETTEXT Message


An application sends a WM_SETTEXT message to set the text of a window. 
Syntax
To send this message, call the SendMessage function as follows. 

lResult = SendMessage( 
    // returns LRESULT in lResult 

   (HWND) hWndControl, 
    // handle to destination control 

   (UINT) WM_SETTEXT, 
    // message ID 

   (WPARAM) wParam, 
    // = (WPARAM) () wParam;

   (LPARAM) lParam 
    // = (LPARAM) () lParam;

); 


Parameters
    wParam 
    This parameter is not used. 
    lParam 
    Pointer to a null-terminated string that is the window text. 

so to do this you would:

newWintxt = allocate_string("NewTXT")
Wintxt=c_func(SendMessage,{hwnd,WM_SETTEXT,0,newWintxt})
free(newWintxt)

Wolf has a great demo that helps change the icon of the window if you
need this too.

Euman


On 27 Jul 2003 at 9:34, Robert Szalay wrote:

> 
> 
> Hello list.
> 
> I am making a window.  The window is just an invisible window to
> receive tcp and timer messages.  I am also using a console.  The
> problem is that in the CTRL+ALT+DEL menu, it shows the name on the
> console(EXW).  I want it to say what I tell it to.
> 
> Here is some code...
> 
> global constant USER32 = open_dll("user32.dll"), 
>          xPostQuitMessage = define_c_proc(USER32, "PostQuitMessage",
> {C_INT}), 
>          xDefWindowProc = define_c_func(USER32, 
> "DefWindowProcA",repeat(C_UINT,4),C_UINT), 
>          xRegisterClassEx = define_c_func(USER32, "RegisterClassExA",
> {C_POINTER}, C_INT), 
>          xCreateWindow = define_c_func(USER32, 
> "CreateWindowExA",repeat(C_INT,12),C_INT), 
>          xGetMessage	= define_c_func(USER32, "GetMessageA", 
> repeat(C_INT,4), C_INT), 
>          xTranslateMessage = define_c_proc(USER32, "TranslateMessage",
>          
> {C_INT}), 
>          xDispatchMessage = define_c_proc(USER32, "DispatchMessageA",
> {C_INT}), 
>          xSetTimer = define_c_func(USER32, "SetTimer", 
> {C_INT,C_INT,C_INT,C_INT},C_INT), 
>          xKillTimer = define_c_func(USER32, "KillTimer", 
> {C_INT,C_INT},C_INT), 
>          SIZEOF_MESSAGE	= 40, 
>          SIZEOF_WNDCLASSEX	= 48, 
>          WM_CREATE = #00000001, 
>          WM_DESTROY = #00000002, 
>          WM_COMMAND = #00000111, 
>          WM_TIMER = #113, 
>        WINDOW_CLASS_NAME	= allocate_string("MyWndClass"),
>        APP_NAME	= allocate_string("My Window!!!"), 
>        WC_cbSize = 0,
>        WC_style	= 4,
>        WC_WndProc = 8,
>        WC_cbClsExtra = 12,	-- Normally NULL
>        WC_cbWndExtra = 16,	-- Normally NULL
>        WC_hInstance = 20,
>        WC_hIcon	= 24,
>        WC_hCursor = 28,
>        WC_hbrBackground = 32,
>        WC_lpszMenuName = 36,
>        WC_lpszClassName = 40,
>        WC_hIconSm = 44
> 
> atom  main_window_handle
> main_window_handle = 0
> 
>  atom msg
>  atom wndclass
> 
>  msg               = allocate(SIZEOF_MESSAGE)
>  wndclass          = allocate(SIZEOF_WNDCLASSEX)
> 
>  -- zero out wndclass structure so we can poke only relevant values
>  mem_set(wndclass,0,SIZEOF_WNDCLASSEX)
> 
>  -- poke relevant structure members only
>  poke4(wndclass+WC_cbSize,			SIZEOF_WNDCLASSEX)
> 
>  poke4(wndclass+WC_style,         	0)
>  poke4(wndclass+WC_cbClsExtra,		   0)
>  poke4(wndclass+WC_cbWndExtra,		   0)
>  poke4(wndclass+WC_WndProc,         	call_back(routine_id("WndProc")))
>  poke4(wndclass+WC_hInstance,        instance())
>  poke4(wndclass+WC_hIcon,          
> 0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))
>  poke4(wndclass+WC_hCursor,         	0)--c_func(xLoadCursor, {NULL,
> IDC_ARROW}))
>  poke4(wndclass+WC_hbrBackground,    
> 0)--c_func(xGetSysColor,{COLOR_APPWORKSPACE}))
>  poke4(wndclass+WC_lpszMenuName,		0)
>  poke4(wndclass+WC_lpszClassName,    WINDOW_CLASS_NAME)
>  poke4(wndclass+WC_hIconSm,          
> 0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))
> 
>  if not c_func(xRegisterClassEx, {wndclass}) then
>   handle_error("Failed: RegisterClassEx")
>  end if
> 
>  main_window_handle         =
>  c_func(xCreateWindow,{
>                                  0,
>                                  WINDOW_CLASS_NAME,
>                                  APP_NAME,
>                                  0,
>                                  100, 110,
>                                  10, 10,
>                                  0,
>                                  0,
>                                  instance(),
>                                  0
>                         })
> 
<snip>

> 


--Alt-Boundary-23147.2705109
Content-type: text/html; charset=US-ASCII
Content-transfer-encoding: 7BIT
Content-description: Mail message body

<?xml  version="1.0" ?><html>
<head>
<title></title>
</head>
<body>
<p><font face="Times New Roman" size="6"><span
style="font-size:24pt"><b>WM_SETTEXT Message</b></span></font></p>
<div align="left"><br/></div>
<p><br/>
</p>
<p><font face="Times New Roman" size="3"><span style="font-size:12pt">An
application sends a <b>WM_SETTEXT</b> message to set the text of a window.
</span></font></p>
<p><font face="Times New Roman" size="3"><span
style="font-size:12pt">Syntax</span></font></p>
<p><font face="Times New Roman" size="3"><span style="font-size:12pt">To send
this message, call the SendMessage function as follows. </span></font></p>
<div align="left" style="margin-left=6mm; margin-right=6mm;
text-indent=0mm"><br/></div>
<table cellpadding="0" cellspacing="2" style="border-collapse: collapse; border:
none">
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">lResult = SendMessage( </span></font></div>
    </td>
    <td valign="middle" width="381">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">    // returns LRESULT in lResult
    </span></font></div>
    </td></tr>
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">   (HWND) hWndControl, </span></font></div>
    </td>
    <td valign="middle" width="381">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">    // handle to destination control
    </span></font></div>
    </td></tr>
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">   (UINT) WM_SETTEXT, </span></font></div>
    </td>
    <td valign="middle" width="381">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">    // message ID </span></font></div>
    </td></tr>
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">   (WPARAM) wParam, </span></font></div>
    </td>
    <td valign="middle" width="381">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">    // = (WPARAM) ()
    wParam;</span></font></div>
    </td></tr>
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">   (LPARAM) lParam </span></font></div>
    </td>
    <td valign="middle" width="381">
<div align="left"><font face="Courier New"><span
    style="font-size:10pt">    // = (LPARAM) ()
    lParam;</span></font></div>
    </td></tr>
    <tr>
    <td valign="middle" width="235">
<div align="left"><font face="Courier New"><span style="font-size:10pt">);
    </span></font></div>
    </td>
    <td valign="middle" width="381"></td></tr>
</table>
<p><font face="Times New Roman" size="3"><span
style="font-size:12pt">Parameters</span></font></p>
<p style="margin-left=6mm; margin-right=6mm; text-indent=0mm"><font face="Times
New Roman" size="3"><span style="font-size:12pt"><i>wParam</i> </span></font></p>
<p style="margin-left=13mm; margin-right=6mm; text-indent=0mm"><font face="Times
New Roman" size="3"><span style="font-size:12pt">This parameter is not used.
</span></font></p>
<p style="margin-left=6mm; margin-right=6mm; text-indent=0mm"><font face="Times
New Roman" size="3"><span style="font-size:12pt"><i>lParam</i> </span></font></p>
<p style="margin-left=13mm; margin-right=6mm; text-indent=0mm"><font face="Times
New Roman" size="3"><span style="font-size:12pt">Pointer to a null-terminated
string that is
the window text. </span></font></p>
<div align="left"><br/></div>
<div align="left"><font face="Arial"><span style="font-size:10pt">so to do this
you would:</span></font></div>
<div align="left"><br/>
</div>
<div align="left"><font face="Arial"><span style="font-size:10pt">newWintxt =
allocate_string(&quot;NewTXT&quot;)</span></font></div>
<div align="left"><font face="Arial"><span
style="font-size:10pt">Wintxt=c_func(SendMessage,{hwnd,WM_SETTEXT,0,newWintxt})</span></font></div>
<div align="left"><font face="Arial"><span
style="font-size:10pt">free(</span></font><font face="Arial"><span
style="font-size:10pt">newWintxt)</span></font></div>
<div align="left"><br/>
</div>
<div align="left"><font face="Arial"><span style="font-size:10pt">Wolf has a
great demo that helps change the icon of the window if you</span></font></div>
<div align="left"><font face="Arial"><span style="font-size:10pt">need this
too.</span></font></div>
<div align="left"><br/>
</div>
<div align="left"><font face="Arial"><span
style="font-size:10pt">Euman</span></font></div>
<div align="left"><br/>
</div>
<div align="left"><br/></div>
<div align="left"><font face="Arial"><span style="font-size:10pt">On 27 Jul 2003
at 9:34, Robert Szalay wrote:</span></font></div>
<div align="left"><br/>
</div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; ============ The Euphoria Mailing List ============
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; Hello list.</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; I am making a window.  The window is just an
invisible window to</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; receive tcp and timer messages.  I am also using
a console.  The</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; problem is that in the CTRL+ALT+DEL menu, it shows
the name on the</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; console(EXW).  I want it to say what I tell it
to.</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; Here is some code...</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; global constant USER32 =
open_dll(&quot;user32.dll&quot;), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xPostQuitMessage = define_c_proc(USER32,
&quot;PostQuitMessage&quot;,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_INT}), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xDefWindowProc = define_c_func(USER32, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; &quot;DefWindowProcA&quot;,repeat(C_UINT,4),C_UINT),
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xRegisterClassEx = define_c_func(USER32,
&quot;RegisterClassExA&quot;,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_POINTER}, C_INT), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xCreateWindow = define_c_func(USER32, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; &quot;CreateWindowExA&quot;,repeat(C_INT,12),C_INT),
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xGetMessage    =
define_c_func(USER32, &quot;GetMessageA&quot;, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; repeat(C_INT,4), C_INT), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xTranslateMessage = define_c_proc(USER32,
&quot;TranslateMessage&quot;,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_INT}), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xDispatchMessage = define_c_proc(USER32,
&quot;DispatchMessageA&quot;,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_INT}), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xSetTimer = define_c_func(USER32,
&quot;SetTimer&quot;, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_INT,C_INT,C_INT,C_INT},C_INT),
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
xKillTimer = define_c_func(USER32,
&quot;KillTimer&quot;, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; {C_INT,C_INT},C_INT), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
SIZEOF_MESSAGE     =
40, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
SIZEOF_WNDCLASSEX          =
48, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
WM_CREATE = #00000001, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
WM_DESTROY = #00000002, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
WM_COMMAND = #00000111, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;         
WM_TIMER = #113, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WINDOW_CLASS_NAME          =
allocate_string(&quot;MyWndClass&quot;),</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
APP_NAME        =
allocate_string(&quot;My Window!!!&quot;), </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;        WC_cbSize =
0,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_style           =
4,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;        WC_WndProc
= 8,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_cbClsExtra = 12,      --
Normally NULL</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_cbWndExtra = 16,   -- Normally
NULL</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_hInstance = 20,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_hIcon          =
24,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;        WC_hCursor
= 28,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_hbrBackground = 32,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_lpszMenuName = 36,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;       
WC_lpszClassName = 40,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;        WC_hIconSm
= 44</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; atom  main_window_handle</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; main_window_handle = 0</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  atom msg</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  atom wndclass</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
msg              
= allocate(SIZEOF_MESSAGE)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
wndclass          =
allocate(SIZEOF_WNDCLASSEX)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  -- zero out wndclass structure so we can poke
only relevant values</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
mem_set(wndclass,0,SIZEOF_WNDCLASSEX)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  -- poke relevant structure members
only</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_cbSize,                                   SIZEOF_WNDCLASSEX)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_style,        
      0)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_cbClsExtra,                   
0)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_cbWndExtra,                 
0)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_WndProc,        
          call_back(routine_id(&quot;WndProc&quot;)))</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_hInstance,       
instance())</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_hIcon,         
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_hCursor,        
 0)--c_func(xLoadCursor,
{NULL,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; IDC_ARROW}))</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_hbrBackground,    </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
0)--c_func(xGetSysColor,{COLOR_APPWORKSPACE}))</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_lpszMenuName,                      0)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_lpszClassName,   
WINDOW_CLASS_NAME)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
poke4(wndclass+WC_hIconSm,         
</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
0)--c_func(xLoadIcon,{NULL,IDI_APPLICATION}))</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  if not c_func(xRegisterClassEx, {wndclass})
then</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;   handle_error(&quot;Failed:
RegisterClassEx&quot;)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  end if</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; 
main_window_handle        
=</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  c_func(xCreateWindow,{</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
0,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
WINDOW_CLASS_NAME,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
APP_NAME,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
0,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
100, 110,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
10, 10,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
0,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
0,</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
instance(),</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                                 
0</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;                        
})</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  if not(main_window_handle)
then</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;   handle_error(&quot;Failed:
CreateWindowEx&quot;)</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;  end if</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; &lt;end of code&gt;</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; Now if I use #80000000+#10000000 in place of the
&quot;dwStyle&quot;(the one</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; after APP_NAME) paramater, it works sorta.  It
shows up as it should</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; in the CTRL+ALT+DEL menu but when I go over to the
console window it</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; creates(not shown), it then says &quot;EXW&quot;
again and the &quot;My Window!!!&quot;</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; text dissappears sad</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; Any ideas on this??</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; Thanks, </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;    Robert Szalay</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; $-&gt; Not an API Guy &lt;-$</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
--^----------------------------------------------------------------</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; This email was sent to: euman at
bellsouth.net</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; EASY UNSUBSCRIBE click here:</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; http://topica.com/u/?b1dd66.b3n6Lc.ZXVtYW5A Or send
an email to:</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; EUforum-unsubscribe at topica.com</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; TOPICA - Start your own email discussion group.
FREE!</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
http://www.topica.com/partner/tag02/create/index2.html</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt;
--^----------------------------------------------------------------</span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><font face="Arial" color="#7f0000"><span
style="font-size:10pt">&gt; </span></font></div>
<div align="left"><br/>
</div>
<div align="left"></div>

--Alt-Boundary-23147.2705109--

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu