Resultados 1 a 2 de 2

Tópico: pressionar ctrl shift J

  1. #1
    Membro ingresso
    Data de Ingresso
    Mar 2008
    Posts
    210
    Post Thanks / Like

    Question pressionar ctrl shift J

    alguém pode me ajudar preciso pressionar essas 3 teclas juntas

    { Mantém pressionada CTRL }keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
    { Mantém pressionada SHIFT }keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
    { Pressiona J } o J nao tem na lista de VK por isso n consigo fazer ele funcionar
    { Libera (solta) CTRL }keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
    { Libera (solta) SHIFT }keybd_event(VK_SHIFT, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  2. #2
    Novato ingresso
    Data de Ingresso
    Jul 2009
    Posts
    2
    Post Thanks / Like
    Citação Postado originalmente por demoniako Ver Post
    alguém pode me ajudar preciso pressionar essas 3 teclas juntas

    { Mantém pressionada CTRL }keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
    { Mantém pressionada SHIFT }keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
    { Pressiona J } o J nao tem na lista de VK por isso n consigo fazer ele funcionar
    { Libera (solta) CTRL }keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
    { Libera (solta) SHIFT }keybd_event(VK_SHIFT, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
    Eu utilizo apenas ALT e CTRL, mas você pode incrementar com o SHIFT.

    procedure SetShortCut(var Msg: TWMKey; var Handled: Boolean);
    begin
    case Msg.CharCode of
    Ord('1'):
    begin
    if Msg.KeyData and $20000000 <> 0 then //Alt precionado
    begin
    ShowMessage('Precionou ALT + 1 ');
    Handled := True;
    end;
    end;
    Ord('F'):
    begin
    if GetKeyState(VK_CONTROL) < 0 then //Ctrl precionado
    begin
    ShowMessage('Precionou CTRL + F ');
    Handled := True;
    end;
    end;
    end;
    end;

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •