怎样实现通过点击button调出命令行

Question

如题，本人一开始用
procedure TForm1.Button1Click(Sender: TObject);
{$APPTYPE CONSOLE}
这种方法，但是一旦运行　命令行就和主窗体一起出现，我希望实现的效果是命令行一开始不出现，通过点击button使调出命令行同时本人新手，对命令行的一些组件、跟命令行有关API的函数不是很清楚，希望各位大虾可以提供一些有关命令行组件、函数的‘详解’或‘大全’（如TCoord;TConsoleScreenBufferInfo;THandle;这些都是我看别人的程序中有的，不理解）

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  szCmdLine: array[0..255] of Char;
begin
  GetEnvironmentVariable('Comspec', SzCmdLine, MAX_PATH);
  WinExec(szCmdLine, SW_SHOW);
end;

Answer 2

引用 ShellAPI 单元uses ShellAPI procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'Open',pchar('cmd.exe'),'','',SW_SHOW);
end;