怎样实现通过点击button调出命令行
如题,本人一开始用
procedure TForm1.Button1Click(Sender: TObject);
{$APPTYPE CONSOLE}
这种方法,但是一旦运行 命令行就和主窗体一起出现,我希望实现的效果是命令行一开始不出现,通过点击button使调出命令行
同时本人新手,对命令行的一些组件、跟命令行有关API的函数不是很清楚,希望各位大虾可以提供一些有关命令行组件、函数的‘详解’或‘大全’(如TCoord;TConsoleScreenBufferInfo;THandle;这些都是我看别人的程序中有的,不理解)
[解决办法]
procedure TForm1.Button2Click(Sender: TObject);var szCmdLine: array[0..255] of Char;begin GetEnvironmentVariable('Comspec', SzCmdLine, MAX_PATH); WinExec(szCmdLine, SW_SHOW);end;
[解决办法]
引用 ShellAPI 单元
uses ShellAPI procedure TForm1.Button1Click(Sender: TObject);begin ShellExecute(Handle,'Open',pchar('cmd.exe'),'','',SW_SHOW);end;