Запуск и остановка дочерней программы?

[Mr.karpiks]

Добрый вечер, у меня такой вопросик. Я использую для запуска дочерней программы вот эту функцию

function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end; //Result :=
  CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
end;

А как остановить программу с параметром? Помогите пожалуйста. Заранее спасибо!

[Stilet]

Так же как и программу без параметра - TerminateProcess(), с параметром хендла процесса из структуры ProcInfo (может быть даже CloseHandle(), но тут не ручаюсь)

[Mr.karpiks]

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

Так же как и программу без параметра - TerminateProcess(), с параметром хендла процесса из структуры ProcInfo (может быть даже CloseHandle(), но тут не ручаюсь)

Можешь пример привести пожалуйста!

[Пепел Феникса]

TerminateProcess(ProcInfo.hProcess,0);

и усе.

кстати в вашем примере обязательно закрывать хендлы.

[Mr.karpiks]

Сообщение от Пепел Феникса

TerminateProcess(ProcInfo.hProcess,0);

и усе.

кстати в вашем примере обязательно закрывать хендлы.

Исправь если что не так!

function TElsCpfm.ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;
begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end; //Result :=
  CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
 TerminateProcess(ProcInfo.hProcess,0);
  { Закрываем Handles!}
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;}
end;

Да и ещё есть какой не будь другой, более проще. Запуск и остановка программ с параметрами из delphi?

[Пепел Феникса]

да так, тока у вас энд один лишний.
PS: а смысл запустить и мгновенно закрыть приложение.

[Mr.karpiks]

Мне нужна функция или пример для закрытия программы с параметрами!

[Пепел Феникса]

он у вас есть, разницы нет между приложением запущенным с параметрами и без.

[Mr.karpiks]

Сообщение от Пепел Феникса

он у вас есть, разницы нет между приложением запущенным с параметрами и без.

procedure Form1.BtnAllStartClick(Sender: TObject);
begin
{Запускаем!}
ExecAndWait('notepad.exe',
                    'Тут параметры', SW_HIDE)
end;

А если я хочу остановить то как мне сделать

procedure Form1.BtnAllStopClick(Sender: TObject);
begin
{Останавливаем!}
Что тут писать!
end;

[Человек_Борща]

Как минимум код автора - бред.
1. Зачем создавать процесс а потом его уничтожать?
2. код автора ни разу не ждет завершения. Если бы ждал, программа отмирала на месте, пока не умрет запущенное функцией ПО.

решением будут потоки. Запуск и ожидание завершения процесса - обсуждалось тысячу раз.