Delphi GUI程序中使用控制台
2012-08-08 10:21
429 查看
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;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 在GUI程序中使用控制台的两种方法-方法.2
- 在GUI程序中使用控制台的两种方法
- 再谈Delphi关机消息拦截 -- 之控制台程序 SetConsoleCtrlHandler（控制台使用回调函数拦截，比较有意思）
- 在GUI程序中使用控制台的两种方法-方法.1
- 在GUI程序中使用控制台的两种方法
- GUI程序也能使用控制台窗口
- GUI程序如何使用控制台输出调试信息[zz][MFC调用win32窗口显示调试信息，使用AllocConsole 函数 ]
- 在GUI程序中使用控制台的两种方法
- 在GUI程序中使用控制台的两种方法
- 在GUI程序中使用控制台的两种方法-方法1
- 在GUI程序中使用控制台的两种方法-方法2
- wxWidgets学习笔记（二）：使用wxFormBuilder、wxWidgets和Code::Blocks创建GUI程序
- Win 32 控制台程序中使用CString
- 使用社区版VS创建第一个控制台程序
- Delphi程序使用资源的释放
- Fastreport使用经验(转) 在Delphi程序中访问报表对象
- VS2015使用小技巧 控制台代码写完后生成的exe程序在哪里
- 以set up方式安装使用自己写的java gui程序
- 自己写的一个DELPHI 控制台程序
- xcode 4.2使用方法初探--控制台程序指定参数