Clipper On Line • Ver Tópico - disparar um processo

disparar um processo

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

disparar um processo

Mensagempor asimoes » 09 Mar 2018 20:55

Use

SET TYPEAHEAD TO 0

Comigo funcionou com HwGui
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

disparar um processo

Mensagempor asimoes » 09 Mar 2018 21:03

Poka

Tenta isso:

InKeyGui(1) // colocar na saída do sua função de tecla

#pragma BEGINDUMP

#include <windows.h>

#include "hbapi.h"

#include <olectl.h>

#include <time.h>

HB_FUNC( INKEYGUI ) 
{                                                                     
    MSG Msg;
    BOOL lNoLoop=FALSE;
    UINT dwTimer, nRet=0, uTimeout=1, uMilisec=1000;   

    if( HB_ISNUM(1) ) uTimeout = hb_parni(1);

    if( HB_ISNUM(2) ) uMilisec = hb_parni(2);

    if( uTimeout==0 ) uTimeout = 0x0FFFFFFF;

    if( uTimeout>0 ) uTimeout = uTimeout * uMilisec;

    dwTimer = SetTimer( NULL, 0, uTimeout, NULL);

    while( GetMessage(&Msg, NULL, 0, 0) )
    {

       switch( Msg.message )
       {
          case WM_KEYDOWN    :
          case WM_SYSKEYDOWN : { nRet    = Msg.wParam; lNoLoop = TRUE; break; }
          case WM_TIMER      : { lNoLoop = Msg.wParam == dwTimer;      break; }
       }
 
       if( lNoLoop )
       {
          KillTimer( NULL, dwTimer );
          hb_retni( nRet );
          return ;
       }
       else 
       {
          TranslateMessage( &Msg );  // Translates virtual key codes
          DispatchMessage( &Msg );   // Dispatches message to window
       } 
    }
}

#pragma ENDDUMP
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

disparar um processo

Mensagempor asimoes » 09 Mar 2018 21:10

Poka

Tem também um exemplo feito pelo Dr. Claudio Soto na pasta:
Talvez te dê uma ideia

\MiniGUI\SAMPLES\Advanced\ReadKey
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Anterior



Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro