Delphi и cmd

[Homadrom]

Привет всем. Кто-нибудь может объяснить следующее:
Уже всякими способами пробовал отправить в cmd текст или символ, но все безуспешно.
Передается только нажатие Enter и все.
Пользовался в основном Sendmessage и Postmessage.
Почему так происходит? В cmd встроена защита от стороннего вмешательства?

[raxp]

Работа с консолью

[Stilet]

Пользовался в основном Sendmessage и Postmessage.

Просто неправильно пробовал )
Взял бы и показал как делаешь.

В cmd встроена защита от стороннего вмешательства?

Нет там ниче такого. К слову keybrd_event() без проблем с консолькой работает.

[Homadrom]

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

Работа с консолью

Спасибо. Но опять ничего не вводится. Да и попроще что-нибудь надо. Типа команды одной и все.

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

Просто неправильно пробовал )
Взял бы и показал как делаешь.

Вот последний вариант, который не вышел:

var
h:hwnd;

begin
h:=findwindow('ConsoleWindowClass',nil);
PostMessage(h,WM_SETFOCUS,0,0);
PostMessage(h, WM_Keyup, Ord('p'), 1); 
PostMessage(h, WM_Keyup, byte(vk_Return), 1);
end;

Кстати, работает только Enter, а вот vk_space уже никого. Другие тоже.

Таки да, может подскажешь, как тогда вводить текст в консоль и забирать его из нее? Как правильно с ней работать?
p.s. Да, кстати, действия все производить надо через манипуляции с окном, а не через батники и shellexecute.

[raxp]

Но опять ничего не вводится.

еще как вводится

[Homadrom]

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

еще как вводится

Может тогда подскажешь в чем мой косяк может быть?

[Человек_Борща]

Спасибо. Но опять ничего не вводится. Да и попроще что-нибудь надо. Типа команды одной и все.

По-проще ничего нет. Других способов тоже нет.

Открываете процесс через OpenProcess или сами его создаете через CreateProcess, получаете пайпы чтения, записи, ошибок. Дальше пишите туда.

Ссылку вам дали.

FindWindow работает только в том случае если у вас только 1 консоль запущена, ибо у консолей ConsoleWindowClass - оконный класс 1 на всех.

[Stilet]

в чем мой косяк может быть?

WM_Keyup нормально только в паре с WM_KEYDOWN работает.

[Homadrom]

Так, часть проблем решилась сменой версии Delphi. То есть то, что выслал - заработало. Но это лишь по одному символу передает.
Сейчас буду пробовать на Lazarus переносить все.

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

WM_Keyup нормально только в паре с WM_KEYDOWN работает.

Работает все-таки.

Сообщение от Человек_Борща

По-проще ничего нет. Других способов тоже нет.

То есть, чтобы нормально работать с консолью, обязательно нужно её воссоздать у себя в приложении?

Сообщение от Человек_Борща

FindWindow работает только в том случае если у вас только 1 консоль запущена

Дак, мне только с одной и нужно работать.

Сообщение от Человек_Борща

Открываете процесс через OpenProcess или сами его создаете через CreateProcess, получаете пайпы чтения, записи, ошибок. Дальше пишите туда.

Ссылку вам дали.

Забавно вот что. Попробовал эту процедуру в новой версии Delphi и стал жаловаться вот на эту строку:

OemToAnsi(Buffer, Buffer);

То есть ни в новой, ни в старой не работает.

p.s. Далее буду все делать на Lazarus. Кто что скажет, какие трудности в переносе этого дела туда будут?

[raxp]

...если научиться пользоваться справкой, то проблем меньше станет.