Talking to your apps

[Jimmy]

It should work with both 32 and 64 bit.

got it work under BCC7 32 Bit, nice

[Armando]

Hello Friends:

It works fine for me.

Regards

[richard-service]

Hi

It's working.

[Enrico Maria Giordano]

According to my tests, the program works fine only with these compilers combinations:

- Harbour MSC32
- Harbour BCC64
- xHarbour BCC32
- xHarbour BCC64

[Enrico Maria Giordano]

Solved! Now it works for all compilers combinations:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, cText := Space( 30 )

   DEFINE DIALOG oDlg

   @ 1, 1 GET oGet VAR cText
   oGet:bGotFocus = { || Listen() }

   ACTIVATE DIALOG oDlg CENTERED

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( LISTEN )
{
    INPUT inputs[4];

    ZeroMemory(inputs, sizeof(inputs));

    // Pulsación de tecla Windows
    inputs[0].type = INPUT_KEYBOARD;
    inputs[0].ki.wVk = VK_LWIN;

    // Pulsación de tecla H
    inputs[1].type = INPUT_KEYBOARD;
    inputs[1].ki.wVk = 'H';

    // Liberación de tecla H
    inputs[2].type = INPUT_KEYBOARD;
    inputs[2].ki.wVk = 'H';
    inputs[2].ki.dwFlags = KEYEVENTF_KEYUP;

    // Liberación de tecla Windows
    inputs[3].type = INPUT_KEYBOARD;
    inputs[3].ki.wVk = VK_LWIN;
    inputs[3].ki.dwFlags = KEYEVENTF_KEYUP;

    // Envía las pulsaciones de teclas
    SendInput(4, inputs, sizeof(INPUT));    
}

#pragma ENDDUMP

[Antonio Linares]

excellent! many thanks Enrico!