Donnay Software Web Forums
http://bb.mobile.donnay-software.com/Donnay/
http://bb.mobile.donnay-software.com/Donnay/viewtopic.php?f=2&t=2500
Code: Select all
STATIC DLLFUNCTION GetCursorPos( @pPoint ) ;
USING STDCALL ;
FROM USER32.DLL
FUNCTION MyCursorPos()
LOCAL sPoint := REPLICATE(CHR(0),8)
LOCAL nX := 0
LOCAL nY := 0
STATIC GetCursorPos
IF GetCursorPos = NIL
GetCursorPos := DllPrepareCall("user32.dll",;
DLL_STDCALL,;
"GetCursorPos")
ENDIF
DllExecuteCall(GetCursorPos,@sPoint)
nX := BIN2L(SUBSTR(sPoint,1,4))
nY := BIN2L(SUBSTR(sPoint,5,4))
nY := (- 1 * nY)+APPDESKTOP():CURRENTSIZE()[2] // Xbase++ 0,0 lower left
RETURN ({nX,nY})unixkd wrote:I got error: Function not declared. I thought the DLLFUNCTION .... declares the function ?
Code: Select all
#include "DLL.CH"
STATIC DLLFUNCTION GetCursorPos( @pPoint ) ;
USING STDCALL ;
FROM USER32.DLL
PROCEDURE MAIN
? MyCursorPos()
WAIT
RETURN
FUNCTION MyCursorPos()
LOCAL sPoint := REPLICATE(CHR(0),8)
LOCAL nX := 0
LOCAL nY := 0
STATIC GetCursorPos
IF GetCursorPos = NIL
GetCursorPos := DllPrepareCall("user32.dll",;
DLL_STDCALL,;
"GetCursorPos")
ENDIF
DllExecuteCall(GetCursorPos,@sPoint)
nX := BIN2L(SUBSTR(sPoint,1,4))
nY := BIN2L(SUBSTR(sPoint,5,4))
nY := (- 1 * nY)+APPDESKTOP():CURRENTSIZE()[2] // Xbase++ 0,0 lower left
RETURN ({nX,nY})Code: Select all
#include "DLL.CH"
// https://docs.microsoft.com/de-de/windows/desktop/inputdev/virtual-key-codes
#define VK_LBUTTON 0x01
#define VK_RBUTTON 0x02
DLLFUNCTION GetAsyncKeyState( n ) USING STDCALL FROM USER32.DLL
PROCEDURE MAIN
CLS
? "Press right mouse button"
DO WHILE GetAsyncKeyState( VK_RBUTTON ) = 0
Sleep( 10 )
ENDDO
? "seems to work ;)"
WAIT
RETURN