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));
//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));