ASM Community

Hi All

This is my attempt to convert Iczelion tutorials to HLA.

[*]All code was compiled with HLA v 1.47
[*]All code was written with RadASM v 2.0.1.8 So RadASM project files(.rap; .mnu ; .dlg) included.
[*]While working at convertions I found several errors in hhf files included with HLA package. That's why I post updated includes also.


Edit:
04-Apr-2003 Tutorial #22 added. Includes not changed.

Hi All

New convertion:
Itczelion Tutorial #23: Tray Icon + shell32.hhf

Hi All

New convertion:
Itczelion Tutorial #24: "Windows Hooks"

IMHO so far this tute is the most intresting of all Iczelion tutes I converted.
It cost me much sweat:) There is a couple of points related to this tute I'd like to tell about.


1.
mhook.dll module from this tutorial uses WindowFromPoint API function, that resides in user32.dll. The point is that WindowFromPoint actually recieves two parameters not one as MSDN reference tells us.

WindowFromPoint as defined in MSDN
("http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windows/windowreference/windowfunctions/windowfrompoint.asp")



This parameter is a pointer to POINT structure that contains x and y coords of mouse.
While actually it recieves two coords separatly (_Point.x, _Point.y). user32.hhf defines WindowFromPoint also with one parameter.

2.

 



                		UninstallHook();

                			mov(false,HookFlag);

			w.SetDlgItemText(hDlg,IDC_HOOK,HookText);

			w.SetDlgItemText(hDlg,IDC_CLASSNAME,NULL);

			w.SetDlgItemText(hDlg,IDC_HANDLE,NULL);

			w.SetDlgItemText(hDlg,IDC_WNDPROC,NULL);

First call of SetDlgItemText works fine. It changes text on the button. Three following calls supposed to wipe out content of 3 edit boxes. But it is not the case neither in original Itczelion app nor in my convertion:(
Somebody knows what's wrong with this code?

Best Regards

GJ

Hi Thomas

Thank you for comment. Just never before encountered with such cases.
Intresting how it is implemented inside a function?

So definition of WindowFromPoint in user32.hhf is also correct.

It works...

	WindowFromPoint: procedure

	( 

		_Point : POINT

	);

		@stdcall;

		@returns( "eax" );

		@external( "__imp__WindowFromPoint@8" );





   .....



    w.CallNextHookEx(hHook,nCode,wParam,lParam);

	mov(lParam,edx);

    w.WindowFromPoint((type w.MOUSEHOOKSTRUCT [edx]).pt);

It works also ...

	WindowFromPoint: procedure

	( 

		[B](p0:dword; p1:dword);[/B]

	);

		@stdcall;

		@returns( "eax" );

		@external( "__imp__WindowFromPoint@8" );





   .....



    w.CallNextHookEx(hHook,nCode,wParam,lParam);

	mov(lParam,edx);

    w.WindowFromPoint([B](type w.MOUSEHOOKSTRUCT [edx]).pt.x, (type w.MOUSEHOOKSTRUCT [edx]).pt.y);[/B]

:confused:
This tutorial is driving me mad.:)

Regards
GJ

It works...

code:-- ------------------------------------------------------------------------------
WindowFromPoint: procedure
(
_Point : POINT
);
@stdcall;
@returns( "eax" );
@external( "__imp__WindowFromPoint@8" );


.....

w.CallNextHookEx(hHook,nCode,wParam,lParam);
mov(lParam,edx);
w.WindowFromPoint((type w.MOUSEHOOKSTRUCT ).pt);

--------------------------------------------------------------------------------


It works also ...

code:--------------------------------------------------------------------------------
WindowFromPoint: procedure
(
(p0:dword; p1:dword);
);
@stdcall;
@returns( "eax" );
@external( "__imp__WindowFromPoint@8" );


.....

w.CallNextHookEx(hHook,nCode,wParam,lParam);
mov(lParam,edx);
w.WindowFromPoint((type w.MOUSEHOOKSTRUCT ).pt.x, (type w.MOUSEHOOKSTRUCT ).pt.y);

--------------------------------------------------------------------------------

This is because type POINT has the following definition in HLA:

 

type 	POINT: record

		x: dword;

		y: dword;

		align(4);

		endrecord;

When you pass a record by value as a procedure's parameter, HLA copies
all the bytes of the record onto the stack (C, btw, has the same behavior).
In both cases, the code passes two doublewords on the stack. The difference
between the two prototypes is that in one case you're passing a whole record
by value, in the other case you're passing an x-coordinate and a y-coordinate
by value. When you put the two parameters together, they have the same
memory layout as the POINT data type, hence they both look the same to the
Windows WindowFromPoint function.
Cheers,
Randy Hyde

Hi All

Tutorial #27: "Tooltip Controll"

Regards
GJ

Hi All,
New convertion:

Tutorial #31 Listview Control + user32.hhf(updated)

Note: Macro wsprintf added to user32.hhf. Tute #31 needs it and won't work without it.

Regards,GJ

Hi All,
Old convertion, New download:

Tutorial#24: Windows Hooks (updated)

One bug fixed (When edit boxes couldn't be cleared)
For more detailes see:http://www.asmcommunity.net/board/index.php?topic=13265

Regards, GJ