Knowledge Base

This uses the function GetCursorPos from a Windows DLL, USER32.DLL, to call an external API.

You must first copy USER32.DLL from the folder C:\WINDOWS\SYSTEM32 into the TP folder of your project. (Replace C with the Windows drive if different.)

Example

This example shows the mouse co-ordinates in the Results pane of Program Management.

DECLARE SUB GetCursorPos Lib “USER32” (HBF_POSI as long);

‘——– Function main
SUB main()
END sub

‘——– Use of function GetCursorPos
SUB test()
DIM Mouse_Buffer as long;
DIM Mouse_PosX as Integer;
DIM Mouse_PosY as Integer;
Mouse_Buffer = ALLOC_BUFFER(10);
GetCursorPos( Mouse_Buffer );
Mouse_PosX = IGET_BUFFER( Mouse_Buffer , 0); ‘X coordinate is available at offset 0
Mouse_PosY = IGET_BUFFER( Mouse_Buffer,4);   ‘Y coordinate is available at offset 4
PRINT(“Mouse_PosX = “,Mouse_PosX);
PRINT(“Mouse_PosY = “,Mouse_PosY);
PRINT(” “);
Free_buffer(Mouse_Buffer);
END SUB

Coordinates as database variables

You can define Mouse_PosX and Mouse_PosY as PcVue Database variables for checking or display.