delphi控制台控制

delphi 控制台控制示例 unit consolekey; interface procedure PressAnyKeyToContinue(TipMsg: String); implementation ....