help dir   //dirコマンドのヘルプ
 dir | clip //コマンドの実行結果をクリップボードにリダイレクト(コピー)
 dir > D:\000\dir.txt   //実行結果をテキストファイルにリダイレクト(保存)
 dir >> D:\000\dir.txt  //実行結果をキストファイルに追加リダイレクト(追加保存)

program GetText;

uses
  Forms,
  Windows,
  GetTextUnit in 'GetTextUnit.pas';

{$R *.res}

var
  Ltext : string;

begin
  if GetStdHandle(STD_OUTPUT_HANDLE) = 0 then begin
    LText := 'コマンドプロンプトから実行してください';
    MessageBox(0, PChar(Ltext), '情報', MB_ICONINFORMATION);
  end else begin
    Application.Initialize;
    Application.MainFormOnTaskbar := True;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

unit GetTextUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function AttachConsole(dwProcess: DWORD): BOOL; stdcall; external 'kernel32.dll';

//=============================================================================
//  フォーム生成時の処理
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1Click(nil);
end;

//=============================================================================
//  コマンドプロンプト画面のテキストバッファの値を取得してTMemoに表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  ATTACH_PARENT_PROCESS = DWORD(-1);
var
  LhStdOutput : THandle;
  LBufferInfo : TConsoleScreenBufferInfo;
  LpCaracter  : PChar;
  LCurCoord   : TCoord;
  LTextLength : Cardinal;
  LReadCnt    : Cardinal;
  LStrList    : TStringList;
  i           : Integer;
begin
  Memo1.Lines.Clear;

  //コンソールのプロセスにアタッチして標準出力のハンドルを取得
  //コマンドプロンプトから起動したので親はコンソール
  if AttachConsole(ATTACH_PARENT_PROCESS) then begin
    LhStdOutput := GetStdHandle(STD_OUTPUT_HANDLE);

    //バッファの情報を取得
    GetConsoleScreenBufferInfo (LhStdOutput, LBufferInfo);

    LTextLength := LBufferInfo.dwSize.X;
    LStrList    := TStringList.Create;

    //メモリの確保(PChar型で受け取る時はメモリの確保が必要)
    GetMem(LpCaracter, LTextLength);
    try
      //バッファの値の読み取り位置
      //X座標は常に左端
      LCurCoord.X := 0;
      //標準出力バッファの内容を1行づつ読み出していく
      for i := 0 to LBufferInfo.dwSize.Y - 1 do begin
        LCurCoord.Y := i;
        if ReadConsoleOutputCharacter(LhStdOutput,
                                      LpCaracter,
                                      LTextLength,
                                      LCurCoord,
                                      LReadCnt) then begin
          //読み出した分だけにしないと後部にゴミが入ることがある
          LStrList.Add(Copy(LpCaracter, 1, LReadCnt));
        end;
      end;
      Memo1.Lines.Text := Trim(LStrList.Text);
    finally
      FreeAndNil(LStrList);
      FreeMem(LpCaracter);
    end;
  end;

  //AttachConsoleは2回目の実行でエラーになる
  //そこでFreeConsoleでデアタッチしておく
  FreeConsole;
end;

end.

unit GetCmdTextUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function AttachConsole(dwProcess: DWORD): BOOL; stdcall; external 'kernel32.dll';

//=============================================================================
//  コマンドプロンプト画面のテキストバッファの値を取得してTMemoに表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LhCmdWindow : HWND;
  LProcessID  : Cardinal;
  LhStdOutput : THandle;
  LBufferInfo : TConsoleScreenBufferInfo;
  LpCaracter  : PChar;
  LCurCoord   : TCoord;
  LTextLength : Cardinal;
  LReadCnt    : Cardinal;
  LStrList    : TStringList;
  i           : Integer;
begin
  Memo1.Lines.Clear;

  //コマンドプロンプトのウインドウハンドルを取得
  LhCmdWindow := FindWindow('ConsoleWindowClass', nil);
  //スレッドのプロセスIDを取得
  GetWindowThreadProcessId(LhCmdWindow, @LProcessID);

  //コンソールのスレッドにアタッチして標準出力のハンドルを取得
  if AttachConsole(LProcessID) then begin
    LhStdOutput := GetStdHandle(STD_OUTPUT_HANDLE);

    //バッファの情報を取得
    GetConsoleScreenBufferInfo (LhStdOutput, LBufferInfo);

    LTextLength := LBufferInfo.dwSize.X;
    LStrList    := TStringList.Create;

    //メモリの確保(PChar型で受け取る時はメモリの確保が必要)
    GetMem(LpCaracter, LTextLength);
    try
      //バッファの値の読み取り位置
      //X座標は常に左端
      LCurCoord.X := 0;
      //標準出力バッファの内容を1行づつ読み出していく
      for i := 0 to LBufferInfo.dwSize.Y - 1 do begin
        LCurCoord.Y := i;
        if ReadConsoleOutputCharacter(LhStdOutput,
                                      LpCaracter,
                                      LTextLength,
                                      LCurCoord,
                                      LReadCnt) then begin
          //読み出した分だけにしないと後部にゴミが入ることがある
          LStrList.Add(Copy(LpCaracter, 1, LReadCnt));
        end;
      end;
      Memo1.Lines.Text := Trim(LStrList.Text);
    finally
      FreeAndNil(LStrList);
      FreeMem(LpCaracter);
    end;
  end;

  //AttachConsoleは2回目の実行でエラーになる
  //そこでFreeConsoleでデアタッチしておく
  FreeConsole;
end;

end.