Power Builder - Posición absoluta del mouse

Hola a todos:
Alguien sabe como obtener la posición absoluta del mouse?
a) Con Power Builder 7.0 (preferentemente)
b) Usando API's de última.

Muchas gracias

Para hallar la posición absoluta del mouse (de toda la pantalla). Puedes usar la API GetCursorPos().

1. Declaras en Global External Functions:
Function boolean GetCursorPos (ref mousepos mousepos2)Library "User32.dll"

2. Creas la Structure, llamada por ejemplo: MousePos
Long xpos, long ypos

3. Script:
Int li_x, li_y
Mousepos mouseloc
GetCursorPos(mouseloc)
Li_x = mouseloc.xpos
Li_y = mouseloc.ypos

//Visualizas las coordenadas
st_1.Text=string(Li_x)+","+string(Li_y)

Nota: Por si deseas situar el puntero del mouse en el punto que quieras, se utiliza la API SetCursorPos():

1. Global External Function:
Function boolean SetCursorPos(int cx, int cy)Library "User32.dll'

2. Structure: MousePos
Long xpos, long ypos

3. Script:
Mousepos mouseloc
SetCursorPos(300, 350)

Un saludo!

Muchísimas gracias...
Te cuento algo adicional. Medio que le esquivo al tema de usar apis, puesto que mi aplicación tiene que andar en W95/98,98sw,Me,2000,XP, es decir que normalmente tengo que programar lo menos específico para cada SO.
Me ha pasado que he incorporado el uso de las API's, y los chicos (MS), normalmente no respetan ni siquiera la declaración de parámetros, por lo tanto comienzan a aparecer errores inesperados y hasta que descubro que es, pasa bastante tiempo...
Muchisimas gracias, por tu aporte. Como siempre este foro es exelente...
Si alguien encuentra algo nativo de PB, ....
Desde ya muchas gracias....

Tambien podrias usar las apis de oscar, y cambiar parametros o lo que sea segun el SO, usando el objeto Environment, como en el ejemplo de PB...

string path

environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn <> 1 THEN RETURN
CHOOSE CASE env.OSType
CASE Macintosh!

path = "Macintosh HD:PB Apps Folder:Analyze"

CASE aix!
path = "/export/home/pb_apps/analyze.exe"

CASE Windows!, WindowsNT!
path = "C:\PB_apps\analyze.exe"

CASE ELSE
RETURN

END CHOOSE

Hola, desde ya muchísimas gracias:
pero, Que son las api's de oscar?

jeje... ups!

me referia a las apis que te ha posteado oscar...

GetCursorPos().
SetCursorPos().

eso me pasa por explicarme tan mal...