用delphi写的控制台程序，如何使他运行时隐藏cmd窗口

winexec('c:\1exe ',1);

winexec('cmdexe /c cd\',0); //隐藏DOS窗口

winexec('cmdexe /k cd\',1); //显示DOS窗口

cnPack 控件包提供了 TCnConsole 组件，其功能描述如下：

其使用的代码，示例如下：

procedure TForm1Button1Click(Sender: TObject);

var

  s:string;

begin

  CnConsole1Enabled := true;

  Write('Hellow world! Please input: ');

  CnConsole1SetTextColor(tfBlue + tfIntensity);

  Readln(s);

  CnConsole1SetTextColor(tfRed + tfIntensity);

  Write('Your input: ');

  Writeln(s);

end;

是的，不用type声明，用type的话代表数据类型,当声明数据类型时用它；函数和过程可以直接写，例如：

function addit(a,b):integer;

var

x1,x2:integer

begin

result:=x1+x2;

end;

函数嵌套是在原有函数的基础上再嵌套一个或几个函数，其声明和实现和第一个一样，你也可以在多个单元中声明不同的函数，然后引用这个单元就可以了．

改成这样就可以了

WinExec('cmd

/c

devcon

resources

=ports

>

pResourcetxt',

SW_SHOWNORMAL);//不是两个>

sleep(1000);//不要少了这行，不然可能还没输出文档就执行下一条语句了

Memo1LinesLoadFromFile('pResourcetxt');

你退出循还不就退出了或者你不要用循环,而是用个readln,它就会停在那里,比如:

writeln( '程序正在运行， 按 [enter]键退出。' ) ;

readln;

以上就是关于用delphi写的控制台程序，如何使他运行时隐藏cmd窗口全部的内容，包括:用delphi写的控制台程序，如何使他运行时隐藏cmd窗口、怎样使用DELPHI编的控制台程序的字体有颜色、请问Delphi高手，控制台程序里使用函数，不用Type声明吗等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！