Combinação de teclas

[Sérgio Assunção]

Boa noite amigos...

Estou desenvolvendo um software que irá rodar de forma oculta (form invisivel), que irá capturar a tela a cada 5 ou 10 minutos, conforme parâmetros. Gostaria de saber se tem e como eu poderia acessá-lo (torná-lo visivel) através da combinação de teclas? tipo um ctrl+f10 por exemplo ? É possivel, mesmo sabendo que o form não estará focado ?

Obrigado.

Sérgio

[EMBarbosa]

Se você estiver usando a biblioteca JEDI (JVCL), há o componente TjvHotKey ou o TjvApplicationHotKey. Um dos dois atende o que você quer (só não me lembro exatamente qual agora ).

Se não possuir a biblioteca JEDI e NÃO quiser instalar, dependendo da versão do seu Delphi, há o componente THotkey.

Em caso de nenhuma das alternativas acima funcionarem, tente o abaixo:

- No evento OnCreate do form coloque o código abaixo:

procedure TForm1.FormCreate(Sender: TObject);

begin

  if not RegisterHotkey(Handle, 1, MOD_CONTROL or MOD_ALT, VK_F11) then

    ShowMessage('Erro ao programar Ctrl+Alt+F11');


  if not RegisterHotkey(Handle, 2, MOD_CONTROL or MOD_ALT, VK_F12) then

    ShowMessage('Erro ao programar Ctrl+Alt+F12');

end;[/code]




- No evento OnDestroy do form coloque o código abaixo:



[code]procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotkey(Handle, 1);

  UnRegisterHotkey(Handle, 2);

end;

- Declere a procedure abaixo na seção private:

  private

    procedure WMHotkey(var Msg: TWMHotkey); message WM_HOTKEY;

[/code]


- Abaixo da palavra implementation escreva a procedure:



[code]procedure TForm1.WMHotkey(var Msg: TWMHotkey);

begin

  case Msg.HotKey of

    1: WinExec('calc.exe', SW_SHOW);

    2: ShowMessage('Ctrl+Alt+F12 foram pressionadas');

  end;

end;

fonte: http://www.tecnobyte.com.br/dica2.html

Espero que ajude...

[Sérgio Assunção]

Blz Elton... deu certo!

Agradeço muito a sua atenção.

Sérgio

[EMBarbosa]

De nada.

Mas, só de curiosidade, qual método você usou?

[Sérgio Assunção]

De nada.

Mas, só de curiosidade, qual método você usou?

Usei exatamente o código que você postou. Registrei apenas o (MOD_CONTROL, VK_F12), ficou da hora !

Valeu

Sérgio