我想在Windows窗体程序中点个Button然后以Windows命令行的方式print出一个字符串,这个字符串就是我程序里的某些变量的值,问题是总是显示不同的2个窗口,我想在同一个窗口输出结果:(
代码如下:
procedure TForm1.Button6Click(Sender: TObject);
var
  N: integer;
begin
   N:= 888;
   WinExec(PChar('cmd /K "echo "' + IntToStr(N)), SW_SHOW);
   N:= N + 1;
   WinExec(PChar('cmd /K "echo "' + IntToStr(N)), SW_SHOW);
end;
我不想写到文件里再装进来太麻烦,能不能直接在同一个命令行窗口中输出结果啊?
我以前一个同事用很简单的方法实现了,而且也没写任何文件,估计也就一行语句,忘了是什么了。

解决方案 »

  1.   

    WriteLn 看行不? 偶没这么做过。
      

  2.   

    http://community.csdn.net/Expert/topic/3458/3458058.xml?temp=.8510858
      

  3.   

    放一下Memo在窗口中就解决了。
      

  4.   

    不要以为全世界的人都是傻瓜啊,放个Memo解决问题了还这么麻烦干什么呀?如果要显示来自子线程的信息,那么必须Synchronize一下才能添加信息到Memo中,而且还必须给子线程添加一个TMemo属性或者一个参数,费劲死了。
      

  5.   

    不要认为费劲就不做,你的程序如果是windows 界面,那么出来了两个控制台窗口就会很大程序上影响程序的外观,要知道程序的外观也想到很大的作用呀.
      

  6.   

    xiyixiaowm50(独孤求败) :(我说明以下,我用控制台方式只是做调试我程序的目的,比如一个多线程程序中实时在控制台窗口中输出哪个线程被创建、哪些被释放、哪些已经完成任务等,呵呵
      WriteLn会出错的,Win32下已不再支持。