在Win32程序中显示Dos调试窗口

    在很多程序中，都可以看到程序运行中，会有一个Dos窗口，实时显示一些运行信息，这里就告诉大家是如何实现的，我们做个简单的，其实对控制台的操作还有很多，有兴趣的可以去查资料。

    用到的API函数如下：

 

  //创建控制台
  AllocConsole;

  //获取控制台窗口
  GetStdHandle;

  //向控制台输出信息
  WriteConsole;

  //释放控制台
  FreeConsole;

 

Delphi代码

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } //控制台句柄 h_Console:THandle; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var p:PChar; num:Cardinal;begin //获取控制台窗口 h_Console := GetStdHandle(STD_OUTPUT_HANDLE ); p := PChar(Edit1.Text); //向控制台输出信息 WriteConsole(h_Console,p,Length(Edit1.Text),num,nil);end;procedure TForm1.FormCreate(Sender: TObject);begin //创建控制台 AllocConsole;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin if h_Console = 0 then Exit; //释放控制台 FreeConsole;end;end.

 

VC代码

BOOL CTest_MFCDlg::OnInitDialog(){CDialog::OnInitDialog();//略去其他代码// 创建控制台AllocConsole();return TRUE; // 除非将焦点设置到控件，否则返回 TRUE}//按钮点击void CTest_MFCDlg::OnBnClickedButton1(){//ON_STN_CLICKED(bbb, &CTest_MFCDlg::OnStnClickedaaaaa);CEdit* edit = (CEdit*)GetDlgItem(IDC_EDIT1);HANDLE h_Consol = GetStdHandle(STD_OUTPUT_HANDLE);CString s;edit->GetWindowTextW(s);DWORD num=0;WriteConsole(h_Consol,s,s.GetLength(),&num,NULL);}