Прибить Create Process с содержимым

[Sashunya]

Привет всем!
Короче проблема следующая: есть кусок кода, кот. запускает консольную программу (без окна) через Pipe, CreateProcess. Потом все данные с этой программы берет и кидает в Memo, а потом программу, эту консольную нужно закрыть. Мое приложение закрывать не нужно.

Вопрос как? Подскажите плиз, просто с Пайпами никогда не сталкивался.

var
  Form1: TForm1;
  FChildStdinWr: THandle;
//    PI: TProcessInformation;
  tRead, cWrite, dwAvail: cardinal;
  SA: TSecurityAttributes;
  PI: TProcessInformation;
  SI: TStartupInfo;
  sBuff: THandleStream;
  StringBuf: TStringList;
  ret : Cardinal;
  m : TMemoryStream;
  fla : boolean;


implementation

{$R *.dfm}


Procedure RunAny(CommandLine: string; Str: TStrings);

begin
  //Инициализация
  SA.nLength:=SizeOf(SECURITY_ATTRIBUTES);
  SA.bInheritHandle:=True;
  SA.lpSecurityDescriptor:=nil;
  if not CreatePipe(tRead, cWrite, @SA, 0) then Exit;
  ZeroMemory(@SI, SizeOf(TStartupInfo));
  SI.cb:=SizeOf(TStartupInfo);
  SI.dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
  SI.wShowWindow:=SW_HIDE;
  SI.hStdOutput:=cWrite;
  SI.hStdInput:= FChildStdinWr;
  //Стартуем процесс...
  if CreateProcess(nil, PChar(CommandLine), nil, nil , True, 0, nil, nil, SI, PI)
  then begin
      Str.Clear();
      sBuff := THandleStream.Create(tRead);
      StringBuf := TStringList.Create();
      m := TMemoryStream.Create;
      repeat
        //Ждем N-дцать минут
        Ret := WaitForSingleObject(PI.hProcess, 100);
         application.ProcessMessages;
          StringBuf.Clear();
        if sBuff.Size > 0 then
        begin
          fla := (m.Size > 0) and not (PByteArray(m.Memory)^[m.Size - 1] in [13, 10]);
          m.Size := 0;
          m.LoadFromStream(sBuff);
          m.Position := 0;
          StringBuf.LoadFromStream(m); //Помещаем блок в буфер
          if StringBuf.Count > 0 then
          begin
            //Склеиваем разорванную строку
            if (Str.Count > 0) and fla then
            begin
              StringBuf.Strings[0] := Str.Strings[Str.Count-1]+StringBuf.Strings[0];
              Str.Delete(Str.Count-1);
            end;
          end;
          //Добавляем блок из буфера
          Str.AddStrings(StringBuf);
        end;
        //не пуст ли pipe ?
        //PeekNamedPipe(tRead, nil, 0, nil, @dwAvail, nil);

    until (Ret <> WAIT_TIMEOUT);
      m.Free;
      CloseHandle(PI.hProcess);
      CloseHandle(PI.hThread);
  end;       // if CreateProcess
  CloseHandle(tRead);
  CloseHandle(cWrite);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
runAny('это моя программа.exe',memo1.Lines);
end;

// пробовал это - не помогает


// прибить процесс.
procedure TForm1.Button2Click(Sender: TObject);
var tmp: Thandle;
begin
DuplicateHandle(GetCurrentProcess,F ChildStdinWr,GetCurrentProcess,@Tmp ,0,False,DUPLICATE_SAME_ACCESS);
CloseHandle(FChildStdinWr);
FChildStdinWr:=Tmp;
end;

[Stilet]

Ну я так понимаю TerminateProcess поможет

[Sashunya]

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

Ну я так понимаю TerminateProcess поможет

Не поможет. Он программу, запущенную приложением не закрывает. И даже не дает закрыть мою исходную программу. Пробовал через FindWindow так у программы нет окна. Короче не знаю. Но правда если программе послать Ctrl+C то она прибьется сама. Может в эту сторону смотреть. Тогда встречный вопрос: как прикрутить писальный Пайп к моему коду. Если можно с примерчиком плиз.

[Stilet]

Он программу, запущенную приложением не закрывает

Вообще то должен закрывать. А как ты им рулишь?

[Sashunya]

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

Вообще то должен закрывать. А как ты им рулишь?

Да сам процесс закрывается, но ехешник, запущенный эти процессом остается в памяти. Вот в чем загвоздка. Короче нашел готовый пример, кот. прибивает процесс и все работает корректно:
Я думаю, ты не это имел ввиду?

function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNA PPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProces sEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFil e) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

// прибить процесс.
procedure TForm1.Button2Click(Sender: TObject);
begin
KillTask('моя программа.exe');
end;

Это корректно вообще? Просто подозрительно гладко заработало, теперь можно спокойно парсить строки.