首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

怎样实现通过点击button调出命令行解决方法

2012-03-28 
怎样实现通过点击button调出命令行如题,本人一开始用procedure TForm1.Button1Click(Sender: TObject){$A

怎样实现通过点击button调出命令行
如题,本人一开始用
procedure TForm1.Button1Click(Sender: TObject);
{$APPTYPE CONSOLE}
这种方法,但是一旦运行 命令行就和主窗体一起出现,我希望实现的效果是命令行一开始不出现,通过点击button使调出命令行

同时本人新手,对命令行的一些组件、跟命令行有关API的函数不是很清楚,希望各位大虾可以提供一些有关命令行组件、函数的‘详解’或‘大全’(如TCoord;TConsoleScreenBufferInfo;THandle;这些都是我看别人的程序中有的,不理解)



[解决办法]

Delphi(Pascal) code
procedure TForm1.Button2Click(Sender: TObject);var  szCmdLine: array[0..255] of Char;begin  GetEnvironmentVariable('Comspec', SzCmdLine, MAX_PATH);  WinExec(szCmdLine, SW_SHOW);end;
[解决办法]
引用 ShellAPI 单元
Delphi(Pascal) code
uses ShellAPI procedure TForm1.Button1Click(Sender: TObject);begin  ShellExecute(Handle,'Open',pchar('cmd.exe'),'','',SW_SHOW);end; 

热点排行