Завершить программу в указанное время

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

Привет всем!
Вопрос как завершить процесс в указанное время?

Процесс(Программа) запускается в потоке и моя программа ждёт завершение запущенного процесса, как в указанное время завершить процесс?

Допустим завершить в 17:00 ..

[Terran]

Поставьте таймер и в нём через секунду считывайте системное время и сверяйте его со своим. Если время совпало, то вызывайте функцию, завершающую процесс. На форуме многократно выкладывались функции для завершения процесса.

[dmitriegorovih]

Вам собственный процесс убить или чужой?
Если свой то вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var
 SystemTime: TSystemTime; //Некое время
begin
GetLocalTime(SystemTime); //Получаем системное время
if SystemTime.wHour=20 then begin  //Результату присваиваим Час(wHour)
if SystemTime.wMinute=47 then begin
application.Terminate;
end;
end;
end;

если чужой то вот так

procedure TForm1.Timer1Timer(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow(nil,'>>>Здесь напишите заголовок программы<<<')
if h<>0 then begin
SendMessage(h,WM_DESTROY,0,0);
end;
end;

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

Примерно так:

procedure TAppThread.Execute;
var
  i: integer;
  Params: string;
  CODDatesepar: Char;
  wd:HWND;
begin
  repeat
    for i := 1 to 10 do //рестарт программы после старта hlr
    begin
      Sleep(AppInfo.AppFirstStart * 100);
      {if AppInfo.AppFirstStart <= 9 then //если больше или равно 9
        Sleep(AppInfo.AppFirstStart * 1000) //Если число от 1 до 9 то умножаем на 100 чтобы получать секунды
      else
        Sleep(AppInfo.AppFirstStart * 100); //иначе всё на сотню...
        }
      if Terminated then //проверка не тормазнут ли поток
        Exit;
    end;
    hlrLog_AddtoAppLog('Запуск программы: ', AppInfo.AppName);
    while AppInfo.AppStart do //пака стоит галочка "запуск при старте HLR"
    begin
      ZeroMemory(@SI, SizeOf(SI)); //нулируем данные о процессе
      DateSeparator := '/'; //сепаратор дыты
      Params := StringReplace(AppInfo.AppParamStr, '%cod_datetime%', FormatDateTime('mm/dd/yyyy hh:nn:ss', now), [rfReplaceAll, rfIgnoreCase]);

      with SI do // где по этому достать документацию???
      begin
        cb := SizeOf(SI);

        if AppInfo.AppIsConsole then
        begin
        dwFlags:=STARTF_USESHOWWINDOW;
        if AppInfo.AppConStartMin then
        wShowWindow:=SW_SHOWMINIMIZED
        else
        wShowWindow:=SW_SHOWNORMAL;

        if not Length(AppInfo.AppConCaption) = 0 then
        lpTitle:=PChar(AppInfo.AppConCaption);
        end;
      end;

      with PI do
      begin
        SetProcessAffinityMask(hProcess, AppInfo.AppCPUAffinity); //приоритет процесса
        WaitForSingleObject(hProcess, INFINITE); //Ждём завершения программы бесконечно..
        CloseHandle(hProcess); //закрываем хендл процесса
        CloseHandle(hThread); //закрываем хендл потока
      end;

        CreateProcess(
        PChar(AppInfo.AppExe),
        PChar(AppInfo.AppParamStr), nil, nil,
        False, GetPriority(AppInfo.AppPriority), nil,
        PChar(ExtractFileDir(AppInfo.AppExe)), SI, PI);


      for I := 1 to 10 do
      begin
        {if AppInfo.AppSecondStart <= 9 then //Фикстим тот же баг=)
          Sleep(AppInfo.AppSecondStart * 1000)
        else //иначе множим на сотню..
          Sleep(AppInfo.AppSecondStart * 100); }
        Sleep(AppInfo.AppSecondStart * 100); 
        if Terminated then
          Exit;
      end;

      hlrLog_AddtoAppLog('Перезапуск программы: ', AppInfo.AppName);
    end;
until AppInfo.AppRestart <= 0;
end;

То что создаёт CreateProcces нужно закрыть в указанное время...

[Terran]

Используйте функцию TimeToStr(Now) для получения текущего времени.
Из функции CreateProcess берите PID созданного процесса (последний параметр функции и в нём dwProcessId).
Когда время совпадёт гасите процесс по PID. Тут модуль. Может поможет: http://programmersforum.ru/showthread.php?t=80214

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

Тоесть примерно так.. ?:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  sysTime: Tsystemtime;
begin
  GetLocalTime(SysTime);
  if (HEdit.Text = '00') and (MEdit.Text = '00') then
  begin
    ShowMessage('Time not entered. Exiting...');
    Timer1.enabled := False;
    Exit;
  end
  else
  begin
    if (SysTime.wHour = StrToInt(HEdit.Text)) and (SysTime.wMinute = StrToInt(MEdit.Text)) then
    begin
      KillTask(ProcessFileName(GetCurrAppPID));
      Timer1.Enabled := False;
    end;
  end;
end;

хм если с таймером всё понятно.. то как быть с делом в потоке?
Ведь таймер туда пихать грубо говоря, глупо..

Можете подсказать решение?

p.S. Terran , спасибо за великолепный модуль! Давно пользуюсь.. очень полезный и много где пригодился...

[Terran]

Я имел в виду следующее.
В потоке у Вас создаётся процесс.

  CreateProcess(
        PChar(AppInfo.AppExe),
        PChar(AppInfo.AppParamStr), nil, nil,
        False, GetPriority(AppInfo.AppPriority), nil,
        PChar(ExtractFileDir(AppInfo.AppExe)), SI, PI);

Переменная PI не объявлена в процедуре запускающую поток, возможно она у Вас глобальная переменная. Опираясь на это из этой переменной при создании процесса можно узнать PID созданного процесса. (Не рискую завершать по имени т.к. имя может быть одинаковым у нескольких процессов)
И из этого всего получается код.

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If TimeToStr(Now) ='17:00:00' Then
Begin
KillTask(PI.dwProcessId);//Убиваем процесс по PID (PI.dwProcessId) - PID созданного процесса из потока
Timer1.Enabled:=False;
End;
End;

p.S. Terran , спасибо за великолепный модуль! Давно пользуюсь.. очень полезный и много где пригодился...

Не за что! Я рад, что он Вам понравился.

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

хм это я понял но проблема в другом=)

Ваша догадка верна .. ProccesInformation это глобальная переменная так же как и StartupInfo

Моя программа по таймеру запускает заданные программы, каждая программа как поток(Представлен execute потока в 4 посту)... т.е. для каждой программы свой поток с параметрами от моей программы...
нужно реализовать что-то вроде таймера в потоке... вот в это всё и упирается..

p.S.
кстате в вашем модуле killTask за входной параметр принимает ExeFileName вместо PID...

[Terran]

Если я правильно понял, то нужно определённые программы завершать в определённое время? Если да, то можно создать переменную типа TStringList и в ней хранить разные значения для разных процессов.

p.S.
кстате в вашем модуле killTask за входной параметр принимает ExeFileName вместо PID...

killTask это я для примера привёл. С PID работает функция ProcessTerminate

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

Нет, нужно завершать те программы которые запускает МОЯ программа используя выше приведённый поток.

По этому вопрос стоит так:
Как реализовать сравнение времени(пака работает поток) и завершить программу в заданное время?

Может так? 
for i:=0 to 10 do
begin
If terminated then Exit;

{...Some code...}
end;

Но сомневаюсь я по поводу этого..