Presionar Teclas

[rob1]

hola q tal... alguien me puede decir si se puede desde delphi hacer q se apriete una tecla??, si se puede como? grx bb

[vtdeleon]

alguien me puede decir si se puede desde delphi hacer q se apriete una tecla??

Danos mas detalles, no cobramos por palabras.

Saludos

[Sotrono]

Empezado por rob1

alguien me puede decir si se puede desde delphi hacer q se apriete una tecla??,

A no ser que tu programa tenga manos... no creo que sea posible.

[rob1]

ajaja q capo. Lo q quiero hacer es q me digan si conocen una funcion q simule q se presiona una tecla, algo q tenga el mismo efecto q apretar una tecla, no se si me explico :P

[[seoane]]

Algo sencillo:

Código Delphi [-]
procedure Pulsar(Key: Byte);
begin
 keybd_event(Key, 0, 0, 0);
 keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

La utilizariamos, por ejemplo asi:

Código Delphi [-]
  Pulsar(Ord('A'));
  Pulsar(VK_F1);

En la ayuda teclea "Virtual key codes" para ver la lista de teclas que puedes usar

[Sotrono]

Aca tenes otra forma:

Código Delphi [-]
//Escrito por roman
var
  Input: TInput;
begin
  Input.Itype := INPUT_KEYBOARD;
  Input.ki.wVk := VK_RETURN; // Tecla a simular

  // Presionar tecla
  SendInput(1, Input, SizeOf(Input));

  // Soltar tecla
  Input.ki.dwFlags := KEYEVENTF_KEYUP;
  SendInput(1, Input, SizeOf(Input));

Saludos...