[[cHackAll]]

Empezado por ixMike

¿Eso no son dos teclas?

Necesitarás obtener el Handle de la ventana a la que se la quieres mandar con FindWindow y/o FindWindowEx, y después mandarle la combinación con un SendMessage.

Pero no estoy muy puesto en el tema, esperemos que se pase por aquí cHackAll y te (nos) diga exactamente cómo se hace.


Salu2.

Encontré lo que comentaban aquí, sin embargo y para variar hice este code que me parece un poco mas adecuado;

Código Delphi [-]
function AttachConsole(dwProcessId: Cardinal): LongBool; stdcall; external 'kernel32.dll';
function SetConsoleDisplayMode(hOutputHandle, dwFlags: Cardinal; lpNewScreenBufferDimensions: PCOORD): LongBool; stdcall; external 'kernel32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var hWnd, dwProcessId: Cardinal;
begin
 hWnd := FindWindow('ConsoleWindowClass', nil); // si la consola tiene un 'Caption', ponganlo en el segundo parámetro 
 GetWindowThreadProcessId(hWnd, dwProcessId);
 AttachConsole(dwProcessId);
 SetConsoleDisplayMode(GetStdHandle(STD_OUTPUT_HANDLE), 1, nil);
 FreeConsole;
 SetForegroundWindow(hWnd);
 keybd_event(VK_RETURN, $1C, 0, 0);
end;

PD: Escuché los llamados de auxilio

Saludos