//=============================================================================
//  コマンドプロンプトを起動する基本コード
//  Windows 2000以上で動作．Windows 9Xでは動作しない
//
//  LFile   コマンドプロセッサの実行ファイル
//  LParams コマンドプロセッサの起動オプション
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFile   : string;
  LParams : string;
begin
  LFile   := 'cmd.exe';
  LParams := '';

  ShellExecute(Handle, 'open', PChar(LFile), PChar(LParams), nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  LFile   : string;
  LParams : string;
begin
  LFile   := 'cmd.exe';
  LParams := '';

  ShellExecute(Handle, 'open', PChar(LFile), PChar(LParams), 'D:\', SW_SHOWNORMAL);
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  カレントディレクトリをC:\としてコマンドプロンプトを起動
//  Windows 2000以上で動作．Windows 9Xでは動作しない
//
//  LFile   コマンドプロセッサの実行ファイル
//  LParams コマンドプロセッサの起動オプション
//  LParmsを空にするとこのアプリをカレントディレクトリとして起動
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  FWndClassName = 'ConsoleWindowClass';
var
  LFile      : string;
  LParams    : string;
  LCmdWnd    : HWND;
  LhInstance : HWND;
  LText      : string;
begin
  LFile := 'cmd.exe';
  //カレントディレクトリとドライブを変更
  LParams := '/k cd /d c:\';

  LhInstance := ShellExecute(Handle,
                             'open',
                             PChar(LFile),
                             PChar(LParams),
                             nil,
                             SW_SHOWNORMAL);

  if Pos('/K', UpperCase(LParams)) > 0 then begin
    if LhInstance > 32 then begin
      //起動に成功したらハンドルが有効になるまで少しタイムラグを持たせる
      //ハンドルに対する操作が必要なければ不要
      Sleep(100);
      LCmdWnd := FindWindow(PChar(FWndClassName), nil);

      //コマンドプロンプトのウィンドウのタイトルの文字列を変更してしまう
      LText := 'コマンドプロンプト';
      SetWindowText(LCmdWnd, PChar(LText));
    end;
  end;
end;

end.

  LCmdexePath := GetEnvironmentVariable('COMSPEC');

  LFile   := 'cmd.exe';
  LParams := '/k cd /d c:\&dir';

cd /d c:\
dir

  LFile   := 'cmd.exe';
  LParams := '/k CmdList.bat';

  //バッチファイルを実行
  LFile   := 'CmdList.bat';
  LParams := '';

  LhInstance := ShellExecute(Handle,
                             'runas',
                             PChar(LFile),
                             PChar(LParams),
                             nil,
                             SW_SHOW);

  //IsUserAnAdminの使用には，usesにShlObjが必要
  if IsUserAnAdmin then begin
    //管理者権限で実行中
  end else begin
    //管理者権限以外で実行中
  end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellAPI;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

const
  FWndClassName = 'ConsoleWindowClass';

//-----------------------------------------------------------------------------
//  ウィンドウハンドルからウィンドウクラス名を取得
//-----------------------------------------------------------------------------
function GetClassNameStr(hWindow: HWND): string;
var
  Buffer : array[0..MAX_PATH-1] of Char;
  Len    : Integer;
begin
  FillChar(Buffer, SizeOf(Buffer), #0);
  Len := GetClassName(hWindow, Buffer, Length(Buffer));
  if Len > 0 then Result := Buffer else Result := '';
end;

//-----------------------------------------------------------------------------
//  EnumWindowsのコールバック関数
//-----------------------------------------------------------------------------
function EnumWindowsProc(hWindow: hWnd; lPar: PString):
  Boolean; Stdcall;
var
  LWndClass : string;
begin
  Result := True;
  if IsWindowVisible(hWindow) then begin
    //ウィンドウのクラス名が引数と同じだったら
    LWndClass := GetClassNameStr(hWindow);
    if LWndClass = lPar^ then begin
      SendMessage(hWindow, WM_CLOSE, 0, 0);
    end;
  end;
end;

//-----------------------------------------------------------------------------
//  EnumWindowsのコールバック関数
//  ウィンドウハンドル取得用
//-----------------------------------------------------------------------------
function EnumWindowsHandleProc(hWindow: hWnd; lPar: PNativeInt):
  Boolean; Stdcall;
var
  LWndClass : string;
begin
  Result := True;
  if IsWindowVisible(hWindow) then begin
    //ウィンドウのクラス名が同じだったら
    LWndClass := GetClassNameStr(hWindow);
    if LWndClass = FWndClassName then begin
      lPar^ := hWindow;
      Result := False;
    end;
  end;
end;

//=============================================================================
//  カレントディレクトリをC:\としてコマンドプロンプトを起動
//  Windows 2000以上で動作．Windows 9Xでは動作しない
//
//  LFile   コマンドプロセッサの実行ファイル
//  LParams コマンドプロセッサの起動オプション
//  LParmsを空にするとこのアプリをカレントディレクトリとして起動
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFile      : string;
  LParams    : string;
  LCmdWnd    : HWND;
  LhInstance : HWND;
  LText      : string;
begin
  LFile := 'cmd.exe';
  //カレントディレクトリとドライブを変更
  LParams := '/k cd /d c:\';

  LhInstance := ShellExecute(Handle,
                             'open',
                             PChar(LFile),
                             PChar(LParams),
                             nil,
                             SW_SHOWNORMAL);

  if Pos('/K', UpperCase(LParams)) > 0 then begin
    if LhInstance > 32 then begin
      //起動に成功したらハンドルが有効になるまで少しタイムラグを持たせる
      //ハンドルに対する操作が必要なければ不要
      Sleep(100);
      LCmdWnd := 0;
      EnumWindows(@EnumWindowsHandleProc, LPARAM(@LCmdWnd));

      //コマンドプロンプトのウィンドウのタイトルの文字列を変更してしまう
      LText := 'コマンドプロンプト';
      SetWindowText(LCmdWnd, PChar(LText));
    end;
  end;
end;

//=============================================================================
//  フォーム破棄時にコマンドプロンプトも閉じる
//  複数起動している場合を考慮したコード
//
//  常駐アプリ等にはコマンドプロンプトと同じクラス名を持つものがある
//  それらはWM_CLOSEでは終了できないのがある．また終了しては困る場合がある
//  そこで起動中のプロセスを調べる
//  本プログラムでコマンドプロンプトを1つか起動しない場合でも，上記のような
//  プログラムが起動している場合は，起動中のプロセスを調べるしかない
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  LClassStr : string;
begin
  LClassStr := 'ConsoleWindowClass';
  EnumWindows(@EnumWindowsProc, LPARAM(@LClassStr));
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,　ShellAPI;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  コマンドプロンプトを非表示で起動
//  コマンドの実行が終了したらコマンドプロンプトを閉じる
//  Windows 2000以上で動作．Windows 9Xでは動作しない
//
//  LFile   コマンドプロセッサの実行ファイル
//  LParams コマンドプロセッサの起動オプション
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFile     : String;
  LParams   : String;
  LSaveFile : String;
begin
  LSaveFile := ExtractFilePath(Application.ExeName) + 'dir.txt';
  LFile := 'cmd.exe';
  //カレントディレクトリとドライブを変更
  //dirコマンドの実行結果をファイルにリダイレクト
  LParams := '/c cd /d c:\&dir > ' + AnsiQuotedStr(LSaveFile, '"');

  ShellExecute(Handle,
               'open',
               PChar(LFile),
               PChar(LParams),
               nil,
               SW_HIDE);
end;

end.

 help cmd   //起動オプションのヘルプ
 help       //コマンドのヘルプ
 help cd    //cdコマンドのヘルプ
 help cmd | clip    //起動オプションの説明をクリップボードにコピー
 help cmd > D:\000\cmdhelp.txt  //起動オプションの説明をテキストファイルに出力