主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

向下

控制台窗口,获取信息 找到类似的分支


RV   (2002-07-16 11:01) [0]

怎么了 我会

过程TForm1.Button1Click(Sender:TObject);
VAR
info:TOSVersionInfo;
ClassName:字符串;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
H:HWND;
Z:PChar;
B:字符数组[0..200];
开始
AllocConsole;
SetConsoleTitle(“ Delphi控制台”);
FillChar(StartupInfo,SizeOf(TStartupInfo),0);
与StartupInfo做开始
cb:= SizeOf(TStartupInfo);
dwFlags:= STARTF_USESTDHANDLES;
wShowWindow:= SW_SHOW;
结束;
如果CreateProcess(nil,“ c:\ nc5 \ nc.exe”,nil,nil,False,
NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo)
然后
DosHandle:= ProcessInfo.hProcess
其他
开始
ShowMessage(“找不到程序”); 退出
结束;
ConsHndl:= GetStdHandle(STD_OUTPUT_HANDLE);

info.dwOSVersionInfoSize:= sizeof(info);
GetVersionEx(info);
if(info.dwPlatformId = VER_PLATFORM_WIN32_NT)然后开始
ClassName:=“ ConsoleWindowClass”;
结束其他开始
ClassName:=“ tty”;
结束;
H:= FindWindow(PChar(类名),“ Delphi控制台”);
ShowMessage(IntToStr(H));
//将消息发送到包含控制台的窗口
// ShowWindow(H,SW_MINIMIZE);
结束;

过程TForm1.ReadConsole(发送者:TObject);
VAR
ToWCount,WCount:DWORD;
xy:TCOORD;
我:整数;
ConsoleText:字符数组[0..80];
PConsoleText:PChar;
开始
Memo1.Clear; PConsoleText:= @ ConsoleText;
ToWCount:= 80; WCount:= 0;
对于i:= 0到24
开始xy.X:= 0; xy.Y:= i;
FillChar(ConsoleText,SizeOf(ConsoleText),0);
ReadConsoleOutputCharacter(ConsHndl,@ConsoleText,ToWCount,xy,WCount);
Memo1.Lines.Append(String(PConsoleText)); //控制台文字
结束;
结束;

过程TForm1.Button2Click(Sender:TObject);
开始
ReadConsole(无);
结束;

一切都出现了,如果不是纯粹的dosov窗口,那么它仍然只是黑色,因此不会使用infa

怎么办,如何使窗口显示文字?



Song   (2002-07-16 11:15) [1]

CreatePipe()不容易吗?



RV   (2002-07-16 13:42) [2]

我为错误的问题表示歉意
然后,我需要如何运行控制台应用程序,以便在其中显示字母
否则,我会出现黑屏,并且不仅需要一个窗口来获取信息



FLAME   (2002-07-16 15:51) [3]

在CreateProcess中可能值得一试(nil,“ c:\ nc5 \ nc.exe”,nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo)
指定CREATE_NEW_CONSOLE或NORMAL_PRIORITY_CLASS



RV   (2002-07-17 08:47) [4]

但是,威格姆。 没用,又是黑窗
但是也许只是这样的程序? (HyTech SQL Server,如果有人知道)
噢,大师! 救救我!



RV   (2002-07-17 15:36) [5]

没有人有想法吗?
还是放弃这个冒险? 并不是为了阅读一行而打猎...



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.07.29;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.021 c
3-95235
User_OKA
2002-07-04 07:52
2002.07.29
SQL树


1-95318
NEWUSER
2002-07-17 14:20
2002.07.29
弹出窗口


7-95589
vvedensk
2002-05-11 14:52
2002.07.29
如何从shogi获取资源?


1-95374
Jo
2002-07-15 11:11
2002.07.29
有人能告诉我吗?


1-95372
jen_bond
2002-07-15 11:19
2002.07.29
有可能??





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский