Delphi GUI程序中使用控制台

最新推荐文章于 2019-02-09 12:51:00 发布

love3s

最新推荐文章于 2019-02-09 12:51:00 发布

阅读量2.2k

点赞数

分类专栏： Delphi 文章标签： delphi 测试

本文链接：https://blog.csdn.net/love3s/article/details/7842146

版权

Delphi 专栏收录该内容

41 篇文章 1 订阅

订阅专栏

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  AllocConsole;
  try
    SetConsoleTitle('测试用例');
    s := Format('控制台测试窗口_进程ID_%d', [GetCurrentProcessId]);
    Writeln(s);
    Writeln('随便输入些东西, 然后按回车键');
    Readln(s);
    ShowMessage(s);
  finally
    FreeConsole;
  end;
end;