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]

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. :D :D :D

[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:

procedure Pulsar(Key: Byte);
begin
keybd_event(Key, 0, 0, 0);
keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;


La utilizariamos, por ejemplo asi:

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:


//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...

[rob1]

gracias muchachos unos idolos pero como puedo hacer para q funcione tmb fuera de mi aplicaion, por ej en word, bloc de notas, etc

EDITADO.......>>> no no che ya lo consegui gracias una vez mas :P

[reevil]

estaria bien que pusieras como lo conseguiste para que otros con dudas similares encuentren la solucion

saludos

[rob1]

Hey... no conteste pq no solucione el problema, aunq eso creia aql dia, el programa funciona con el bloc de notas, con el word, etc. pero hay una aplicacion con la qno funciona, no entiendo bien pq la cuestion es q esta aplicacion ocupa toda la pantalla, sera por eso? alguien tiene alguna solucion, para q mi aplicacion tenga efecto SIEMPRE? gracias

[kanyrosana]

podrias colocar como te funciono en word o en excel.