delphi - 将返回键发送到模拟控制台应用程序

Question

我正在使用 delphi 向控制台应用程序添加图形界面。
问题是当控制台应用程序要求输入时。
我通常会输入我的输入并按 Enter 使其接受我的字符串，但我不知道该怎么做。

我将此库用作控制台应用程序的“包装器”，它使用管道作为输入和输出流。
http://koders.com/delphi/fidDB05C6361540F62D532FC7C960D4111CE3AAEDB3.aspx?s=proxy

我试过像 WriteToConsoleApp(#04);发送 EOT，即 Control-D。这通常会起作用，但在这种情况下，它不会做任何事情。
我也试过 WriteToConsoleApp(#13); WriteToConsoleApp(#13#10);，但这些解决方案都不起作用。

如果您有任何建议，我将不胜感激。

Answer 1

您可以使用 SendMessage 或 PostMessage 函数将字符串/键发送到控制台应用程序。
例如;

SendMessage(WindowHandle, WM_CHAR, Ord('A'), 0);//sends 'A' to the window

或者

PostMessage(WindowHandle, WM_KEYDOWN, VK_RETURN, 0);//sends Return to the window