Simular tecla @ pulsada

[angelmt]

Hola a todos

Por favor echarme una mano porque estoy ahora mismo atascado.

Como puedo enviar a una caja de texto el caracter @ siendo una aplicacion distinta a la mia.

uso keybd_event para todos los caracteres ,pero con la @ no consigo hacerlo

Un saludo

[[duilioisola]]

La arroba tiene el código 64.
Has probado a enviarle ese número?

[angelmt]

Hola , si lo he probado pero no hace nada

[[escafandra]]

Prueba así:

Código Delphi [-]
keybd_event(VK_RMENU,0,0,0);
keybd_event(VkKeyScan('@'),0,0,0);
keybd_event(VK_RMENU, 0, KEYEVENTF_KEYUP, 0);

Saludos.

[angelmt]

Funciona perfecto!!

Muchisimas gracias.

Un saludo

[[escafandra]]

Aunque para la mayoría de los teclados con formato español va a funcionar, puede darse el caso de que en alguno falle. Es debido a que @ resulta de la combinación de teclas. El código podría complicarse un poco para conseguir una funcionalidad mas global...

Saludos.

[[escafandra]]

Para nutrir y completar un poco el tema:

Código Delphi [-]
procedure Keyb_Event(C: CHAR);
var
  S: WORD;
begin

   S:=  VkKeyScan(C);
   if(S and $0100) <> 0 then keybd_event(VK_SHIFT,0,0,0);
   if(S and $0200) <> 0 then keybd_event(VK_LCONTROL,0,0,0);
   if(S and $0400) <> 0 then keybd_event(VK_LMENU,0,0,0);

   keybd_event(S,0,0,0);
   keybd_event(S,0,KEYEVENTF_KEYUP,0);

   if(S and $0100) <> 0 then keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
   if(S and $0200) <> 0 then keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
   if(S and $0200) <> 0 then keybd_event(VK_LMENU,0,KEYEVENTF_KEYUP,0);

end;

Ejemplo de uso:

Keyb_Event('@');

Saludos.

[angelmt]

Muchas gracias nuevamente.

Esto ultimo me viene aun mejor para lo que quiero hacer...era justo lo que necesitaba.

Un saludo