Hola mira si sabes como manejar los puertos, en el link que te paso estan los los numeros de los codigos de cada uno incluido el del joystick, si sabes como leer puertos, tal vez te sirva colocando el numero de puerto para que funcione. Proba y Avisame si te funciono sino seguiremos buscando
http://www.portalfox.com/index.php?name=News&file=article&sid=871
Sino sabes como leer puertos aca te paso uno pero no se si te sirve de algo. Creo que el link que te paso Jose Antonio es lo mejor que podes utilizar, incluso tenes el codigo publicado. yo igualmente mas abajo te paso uno sencillo
Deseas saber que puertos tienes disponibles en tu Pc ?
DO decl
? "Testing port COM1:", TestPort("COM1")
? "Testing port COM2:", TestPort("COM2")
? "Testing port COM3:", TestPort("COM3")
? "Testing port COM4:", TestPort("COM4")
FUNCTION TestPort (lcPort)
#DEFINE OPEN_EXISTING 3
#DEFINE GENERIC_READ 2147483648 && 0x80000000
#DEFINE FILE_FLAG_OVERLAPPED 1073741824 && 0x40000000
#DEFINE INVALID_HANDLE_VALUE -1
LOCAL hPort
hPort = CreateFile (lcPort, GENERIC_READ, 0,0,;
OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0)
= CloseHandle(hPort)
RETURN (hPort <> INVALID_HANDLE_VALUE)
PROCEDURE decl
DECLARE INTEGER CreateFile IN kernel32;
STRING lpFileName, INTEGER dwAccess, INTEGER dwShareMode,;
INTEGER lpSecurityAttr, INTEGER dwCreationDisp,;
INTEGER dwFlagsAndAttr, INTEGER hTemplateFile
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
Suerte!!!!!!!
