Остановить процесс созданный CreateProcess

[Shouldercannon]

Доброго времени суток!
Запускаю bat-файлы через CreateProcess в потоке

unit frm_Main;

interface
...
type
  TFormMain = class(TForm)
...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  // Поток для создания процесса
  TBatRunning_Thread = class(TThread)
  private
    { Private declarations }
    sFile: String;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  BatRunning_Thread: TBatRunning_Thread;

implementation

{$R *.dfm}

procedure TFormMain.StartBat(sFile: String);
begin
  BatRunning_Thread := TBatRunning_Thread.Create(True);
  BatRunning_Thread.sFile := sFile;
  BatRunning_Thread.FreeOnTerminate := True;
  BatRunning_Thread.Start;
end;
//-------------------------------Создание процесса------------------------------
procedure TBatRunning_Thread.Execute;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;
  if CreateProcess(nil,
                   PChar(sFile),
                   nil,
                   nil,
                   False,
                   CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                   nil,
                   PChar(ExtractFilePath(sFile)),
                   StartupInfo,
                   ProcessInfo) then
  begin
    WaitForSingleObject(ProcessInfo.hProcess, INFINITE); // Ждём завершения процесса
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
  Synchronize(SyncProc);
end;

procedure TBatRunning_Thread.SyncProc;
begin
  //!//
end;
//------------------------------------------------------------------------------
end.

Встал вопрос, как этот CreateProcess созданный в отдельном потоке остановить при нажатии на кнопку.

[p51x]

Стандартно заводить флаг и проверять его в потоке/слать потоку сообщение.

[Shouldercannon]

Сообщение от p51x

Стандартно заводить флаг и проверять его в потоке/слать потоку сообщение.

Предлагаете остановить поток?

[p51x]

Где? Как остановленный поток среагирует на флаг или сообщение? Как он созданный процесс убьет?

[Shouldercannon]

Естественно никак.