Delphi работа с таймером

[eoln]

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

и я не убица

Угу, мафиози вообще люди добрые...


Можно время сравнивать с текущем

var Hours, Minutes, Seconds, Milliseconds: Word;
...
DecodeTime(GetTime, Hours, Minutes, Seconds, Milliseconds);

Таймер поставить секунд на 40 и в нём проверять

if (Hours=12) and (Minutes=0) then запуск
if (Hours=12) and (Minutes=30) then убийство

Запуск по CreateProcess, убийство по TerminateProcess

[Npwas]

Вот так убиваем процесс (программу) по его имени:

{ОПРЕДЕЛЕНИЕ id Процесса}
FUNCTION SearchPid(processName_fc:string):Cardinal;
 Var
   hSnap:THandle;
   pe:TProcessEntry32;

 BEGIN
   pe.dwSize:=SizeOf(pe);
   hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  IF Process32First(hSnap,pe) Then
    While Process32Next(hSnap,pe) Do
      IF ExtractFileName(pe.szExeFile)=processName_fc Then
          Result:=pe.th32ProcessID;
 END;

{ОТКЛЮЧЕНИЕ ПРОЦЕССА}
FUNCTION ProcessTerminate(dwPID:Cardinal):Boolean;
 Var
   hToken:THandle;
   SeDebugNameValue:Int64;
   tkp:TOKEN_PRIVILEGES;
   ReturnLength:Cardinal;
   hProcess:THandle;
 BEGIN
   Result:=false;
   // Добавляем привилегию SeDebugPrivilege
   // Для начала получаем токен нашего процесса
   IF not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
        or TOKEN_QUERY, hToken ) Then
    exit;
   // Получаем LUID привилегии
   IF not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
     Then
       Begin
        CloseHandle(hToken);
        exit;
       End;
   tkp.PrivilegeCount:= 1;
   tkp.Privileges[0].Luid := SeDebugNameValue;
   tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   // Добавляем привилегию к нашему процессу
   AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp)  ,tkp,ReturnLength);
   IF GetLastError()<> ERROR_SUCCESS  Then
          exit;
   // Завершаем процесс. Если у нас есть SeDebugPrivilege, то мы можем
   // завершить и системный процесс
   // Получаем дескриптор процесса для его завершения
   hProcess:=OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
   IF hProcess =0  Then
             exit;
   // Завершаем процесс
   IF not TerminateProcess(hProcess, DWORD(-1)) Then
        exit;
   CloseHandle( hProcess );
   // Удаляем привилегию
   tkp.Privileges[0].Attributes := 0;
   AdjustTokenPrivileges(hToken, FALSE, tkp, SizeOf(tkp), tkp, ReturnLength);
   IF GetLastError() <>  ERROR_SUCCESS Then
         exit;
   Result:=true;
 END;

{УБИВАЕМ ПРОЦЕСС}
PROCEDURE KillNachChoosenProc;
 BEGIN
   ProcessTerminate(SearchPid('ИМЯ_ПРОЦЕССА.EXE'));
 END;

[eoln]

Npwas, это всё лишнее. После запуска по CreateProcess у нас уже будет вся информация.

var
  h: LongBool = false;
  StartUpInfo: TStartUpInfo;
  ProcInfo: TProcessInformation;
...
  //запуск
  with StartUpInfo do begin
    cb := SizeOf(TStartUpInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_SHOWNORMAL;
  end;
  h := CreateProcess('C:\Windows\System32\notepad.exe', '', nil, nil, false,
    NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcInfo);

  //остановка
  with ProcInfo do begin
    WaitForInputIdle(hProcess, INFINITE);//если завершаем не сразу же можно и не использовать
    TerminateProcess(hProcess, NO_ERROR);
    CloseHandle(hThread);
    CloseHandle(hProcess);
  end;

[Stilet]

я и обратился за помощью

Я тебе ее предоставил насколько смог.

я не убица

Разве я это про тебя сказал? Я спросил есть ли у тебя в наличии функция, кикающая процессы, всего-то.

[mafioziya]

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

Я тебе ее предоставил насколько смог.
.

Спасибо,попробую что то из этого слепить
если что напишу

[an_private]

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

Npwas, это всё лишнее. После запуска по CreateProcess у нас уже будет вся информация.

А это точно работает? Запускаю внешнюю программу через CreateProcess. Надо её прервать, делаю как написано - terminateprocess с хендлом процесса. Результат - никакого - программа продолжает выполняться. Причём terminateprocess возвращает ненулевое значение, то есть с его точки зрения всё хорошо. Что это может быть?