unit Unit1;

interface

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

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

implementation

uses
  ShellAPI;

{$R *.DFM}

//=============================================================================
//  ShellExecuteを使用したバッチファイルの実行例
//  指定のディレクトリリストをこのフォルダにTestDir.txtで保存
//
//  LBatFullPath  バッチファイルの保存先
//  LOutFullPath  出力先のファイルの保存先
//  終了後にDEL   作成したバッチファイル自身を%0で削除する
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LBatFullPath : String;
  LOutFullPath : String;
  LStringList  : TStringList;
begin
  LBatFullPath := ExtractFilePath(Application.ExeName) + 'Testbat.BAT';
  LOutFullPath := ExtractFilePath(Application.ExeName) + 'TestDir.TXT';

  //DeleteFile関数の引数のファイル名はダブルクォーテーションがあると削除されない
  DeleteFile(LOutFullPath);
  //パスに空白文字がある場合は，ダブルクォーテーションで囲む
  LOutFullPath := AnsiQuotedStr(LOutFullPath, '"');

  //バッチファイルを作成してこのEXEがあるフォルダに保存
  LStringList := TStringList.Create;
  try
    LStringList.Add('CD D:\');
    LStringList.Add('DIR >' + LOutFullPath);
    LStringList.Add('DEL %0');
    LStringList.Add('EXIT');
    LStringList.SaveToFile(LBatFullPath);
  finally
    FreeAndNil(LStringList);
  end;

  ShellExecute(Handle, 'open', PChar(LBatFullPath), nil, nil, SW_HIDE);
  Application.MessageBox('終了しました', 'バッチ処理', MB_OK);
end;

end.

//=============================================================================
//  ShellExecuteを使用したバッチファイルの実行例
//  ディスク上のバッチファイルを実行
//
//  ShellExecuteの使用にはusesにShellAPIが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LBatFullPath : String;
begin
  LBatFullPath := ExtractFilePath(Application.ExeName) + 'Testbat.BAT';

  ShellExecute(Handle, 'open', PChar(LBatFullPath), nil, nil, SW_HIDE);
  Application.MessageBox('終了しました', 'バッチ処理', MB_OK);
end;

SET CURRDIR=%CD%
CD /D D:\
DIR > "%CURRDIR%\TestDir.TXT"
EXIT

@echo off
rem ------------------------------------------
rem このバッチファイルがあるディレクトリの取得
rem ------------------------------------------
set thisdir=%~dp0
echo.
echo 実行したバッチファイルがあるディレクトリ
echo %thisdir%
dir c:\ > "%thisdir%TestDir.txt"
echo.>> "%thisdir%TestDir.txt"
echo.>> "%thisdir%TestDir.txt"
rem
rem ------------------------------------------
rem カレントディレクトリの取得
rem ------------------------------------------
SET currdir=%cd%
echo.
echo 現在のディレクトリ
echo %currdir%
dir >> "%currdir%\TestDir.txt"
echo.
pause
exit