есть проблема

[Bendar]

народ спасите. как реализовать в фоновом приложении :bang: постоянную слежку за программой(запущенно ли она)

 

[BUG(O)R]

Если есть окно можно по имени окна, нет окна - по имени процесса.

 

[Bendar]

завершить я могу, а вот постоянную проверку не могу сделать нормально( проц грузит на 100%)"

 

[/dev/AVR]

Ты Sleep(5000) вставь в консольное приложение и каждые 5 сек чекай
если устраивает.
Добавлено в [time]1156359124[/time]
Вот, дери сырец. Если lockdaemon.exe не запущен, то запускаем.
В общем поиск процессов тут думаю будет понятен.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  TLHELP32,
  WINDOWS,
  Messages,
  Dialogs;

  label checkpoint;
  var procflag:boolean;
  ddddfx:byte;
  ProgramPath:string;

procedure PIGKILLER(ExeName:string);
var
  PRC: TProcessEntry32;
   bFlag: boolean;
   hNdl:THandle;
   PID:DWORD;

   begin;
  hNdl := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); // ???????
      if (hNdl <> INVALID_HANDLE_VALUE ) then
       begin
       PRC.dwSize:=sizeof(PROCESSENTRY32);  //???????????
       bFlag:= Process32First(hNdl,PRC); // ?????? ???????
       while (bFlag <> false) do
       begin
               if (PRC.szExeFile = ExeName) then
               begin

               procflag:=true;

                       break;
               end;
               bFlag:=Process32Next(hNdl,PRC); // ????????? ???????
      end;
       CloseHandle(hNdl); // ?????????? ?????, ???????????!
       end;

       end;          //

begin




checkpoint:
procflag:=false;
Pigkiller('lockdaemon.exe');
if procflag=false then winExec('lockdaemon',SW_SHOW);
sleep(2000);
goto checkpoint;

end.

 

[Bendar]

а можно куданить скинуть сорцы например мне на мыло Nickirurg@mail.ru

 

[Great]

Bendar
а это не сорец?

кстати реально вставляй хотя бы Sleep(10) тогда грузить проц не будет

 

[Bendar]

блин ну тут типа както маловато кода или я ошибаюсь????? :blink:

 

[LEE_ROY]

Тебе дали рабочую процедуру, которую ты должен втулить в свой проэкт и юзать))

 

[Dude03]

GetExitCodeProcess, только хендл процесса получи. Если STILL_ACTIVE - значит процесс еще живет. По моему это гораздооо легче

 

[v0id]

Да всеравно процессы надо просканировать все, а в GetExitCodeProcess только хэндл процесса подставить

 

[BUG(O)R]

По моему это гораздооо легче

А по-моему это самый худший вариант из предложенных.

 

[Dude03]

А по-моему это самый худший вариант из предложенных.

Вполне возможно.
Сейчас сяду Рихтера почитаю. Там что-то есть по этому поводу...

 

[BUG(O)R]

Dude03

Что тут читать? Чтобы узнать хэндл процесса надо знать или его имя, или заголовок окна(если оно есть), или PID. Если я знаю заголовок окна я могу просто по FindWindow проверить запущено ли приложение. Если я знаю имя или PID, то я могу спокойно проверить существует ли процесс через Tool32Help.

 

[v0id]

BUG(O)R, если известен PID то этот вариант норм, без всяких циклов и в одну АПИ

 

[BUG(O)R]

v0id

Какой вариант?

Этот спор будет бесполезным пока автор топега не задаст нормально вопрос и не скажет, что ему мля известно о программе ёпт.

 

[v0id]

тот что ты забраковал через GetExitCodeProcess

 

[BUG(O)R]

Вот смотри, допустим тебе сейчас понадобилось узнать запущено ли приложение. Что ты о нём знаешь? Его имя и заголовок окна(если окно есть) или тебе всегда известен хэндл процесса? Я думаю, что нет, а посему я вполне оправданно отмёл этот метод)

 

[Great]

короче. наиболее универсальным является перебор процессов через ToolHelp32 (Т.к. ID процесса каждый раз разный, а вот имя экзешника, обычно, не меняется) и сранение имен екзешников.

 

[v0id]

BUG(O)R, да я бы и юзал ToolHelp32) но если вдруг каким то образом известен тока PID %) то почему бы нет =)