duvida com Keybd

[C.J.]

Bom precisei criar um aplicativo para automatizar uma função em minha casa...

usei o seguinte codigo:

Memo1.SelectAll;
Memo1.CopyToClipboard;
end;
keybd_event(vk_control,0,0,0);
 keybd_event(Ord('V'),0,0,0);
  keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);
 keybd_event(vk_return,0,0,0);   
keybd_event (VK_MENU, 0, 0, 0);
 keybd_event(VK_F4, 0, 0, 0);

só que depois de realizar todo o procedimento o meu teclado fica louco, eu aperto A ele aperta ESC etc

alguém sabe o porque disto? ou uma outra forma de usar essa função + sem usar tantos Keybd?

Abraços

[Douglas Soares]

Amigo, você copiou todo o texto do memo para o clipboard e depois tentou fechar o seu programa, é isso? se for....

tente isso:

Clipboard.AsText := Memo1.lines.text;
Memo2.lines.text := Clipboard.AsText;
Application.Terminate;

Se não é isso o que você quer explique melhor o seu problema...

Abraços

[Jhonas]

só que depois de realizar todo o procedimento o meu teclado fica louco, eu aperto A ele aperta ESC etc

alguém sabe o porque disto?

Voce está mantendo a tecla Ctrl pressionada

keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);

abraço

[C.J.]

como arrumo isto/

[Douglas Soares]

Bom precisei criar um aplicativo para automatizar uma função em minha casa...

Especifique melhor o que quer fazer...

[C.J.]

o Jonas já falou que estou matando apertado o ctrl como apertar e soltar?

[Jhonas]

Voce está mantendo a tecla Ctrl pressionada

keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);

{ Mantém pressionada CTRL }

keybd_event(VK_CONTROL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);

{ Libera (solta) CTRL }

keybd_event(VK_CONTROL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

abraço