[Noooob]

Сообщение от NumLock

а традиционный способ чем не устраивает? hStdInput, CreatePipe, WriteFile

Если использовать

Код:

type
TAttachConsole=function (ProcessID:DWORD):boolean; stdcall;
var ProcessID:DWORD;
    AC:TAttachConsole;
    AKernel:Cardinal;
    cb : DWORD;
begin
 GetWindowThreadProcessId(FindWindow('ConsoleWindowClass',nil),ProcessID);
  AC:=nil;
  if ProcessID>0 then
    begin
      AKernel:=LoadLibrary('kernel32.dll');
      @AC:=GetProcAddress(AKernel,'AttachConsole');
      if @AC<>nil then
        begin
          AC(ProcessID);
           WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), pchar('tEST'), length('tEST'), cb, nil);
        end;
    end;
end;

то в консоль все пишет но при нажатии Enter ничего не делает. Вот скрин