H
HappyEveryDayR
Unregistered / Unconfirmed
GUEST, unregistred user!
最近，在Delphi环境下写了一个Dos控制台程序，代码如下：
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c: char;
begin
Writeln('Hello World!');
Write('Press any Key to continue...');
Readln;
end.
其中，想实现按任何意键后，返回Windows,并结束Dos程序的运行。
最后一行，Readln经过测试，发现它随可以直接读入用户的回车输入，但对于其它字符必须
要输入字符并按回车后，才能结束程序运行。而且你输入的字符会显示在屏幕上。
而在CB中有一个现成的函数getch()，它可以读入用户从键盘输入的任何字符,不必按回车，
且不向屏幕回显，十分不错。
请问哪位高手可以指点一下，实现该功能，多谢！
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
c: char;
begin
Writeln('Hello World!');
Write('Press any Key to continue...');
Readln;
end.
其中，想实现按任何意键后，返回Windows,并结束Dos程序的运行。
最后一行，Readln经过测试，发现它随可以直接读入用户的回车输入，但对于其它字符必须
要输入字符并按回车后，才能结束程序运行。而且你输入的字符会显示在屏幕上。
而在CB中有一个现成的函数getch()，它可以读入用户从键盘输入的任何字符,不必按回车，
且不向屏幕回显，十分不错。
请问哪位高手可以指点一下，实现该功能，多谢！
WORD;
]谢谢，但是，我通过看MSDN，对ReadConsoleInput(h,buf,1,n);您这句中函数第三个和最后