Enrico Maria Giordano wrote:It should work with both 32 and 64 bit.
got it work under BCC7 32 Bit, nice
![Very Happy :D](./images/smilies/icon_biggrin.gif)
Enrico Maria Giordano wrote:It should work with both 32 and 64 bit.
#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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 14 guests