Monitoramento dos processos ativos

Question

Pessoal,Tenho um sistema que monitora, atraves de timer, se algumas aplicacoes estao rodando e caso uma delas pare de executar esta coloque for�a a execucao do mesmo.A aplicacao rodava em winNT perfei...

Nildo · Answer

Porque n�o simplesmente �evitar� que a aplica��o seja finalizada? Se essa id�ia lhe interessar, baixe o MadCollection em http://www.madshi.net/ (free para uso n�o comercial). Feito isso voc� vai ter que utilizar a biblioteca MadCodeHook, que vem com esse pacote. Vem um Demo em uma pasta desse MadCodeHook que faz justamente isso, n�o permite que aplica��es sejam fechadas.

Boa sorte!

Nildo · Answer

Ou ent�o, baixe esta unit://www.madshi.net/enumStuff.zipCom ela voc� pode enumerar todos os processos ativos, com uma diferen�a, as fun��es dessa unit funcionam em todos as vers�es do Windows, elas fazem as checagens autom�ticas de qual DLL � melhor para ela utilizar. Enfim, n�o custa tentar n�......

Ojschirmer · Answer

nildo,obrigado pelas dicas... o meu sistema ele devera supervisionar se as aplicacoes estao rodando e se uma delas parar (por diversos motivos) o mesmo devera parar outras aplicacoes que dependem desta... e em seguida colocar no ar todas as aplicacoes...eu testei a rotina enumstuff, porem as vezes qdo voce derruba a aplicacao o sistema aloca mais espaco na memoria (isto apenas em XP)..segue as rotinas que fiz para teste.. e se for possivel gostaria que voce verificasse se esqueci de alguma coisa... ou testasse para mim...Basta criar um form e adicionar um ttimer e um tlabel ....function TForm1.ProcessIsRun(pProcesso:string):boolean;var  plProcess : TProcessList;  iconta : integer;  vAux:string;begin  plProcess := GetProcessList;  result:=false;  iConta:=-1;  repeat    inc(iConta);    vAux:= plProcess[iconta].name;    if ansiuppercase(vAux) = ansiuppercase(pProcesso) then       result:=True;  until iConta = high(plProcess);end;procedure TForm1.Timer1Timer(Sender: TObject);begin  if ProcessIsRun(�calc.exe�) then     label1.Caption := �Calc.exe esta rodando�  else     label1.Caption := �Calc.exe nao esta rodando�;end;agradece desde ja...Odair...

Nildo · Answer

Ol�!Voc� n�o precisa colocar um Timer para isso. Voc� poderia criar uma thread para cada processo, e no Execute de cada Thread voc� coloca um WaitForSingleObject( Handle_Do_Processo )Quando passar para pr�xima linha quer dizer que o processo foi finalizado.N�o seria mais facil assim do que utilizar um Timer que fica eternamente comendo recurusos?...

Ojschirmer · Answer

nildo,obrigado pela sugestao...porem eu nunca trabalhei com threads... entao gostaria de umas dicas ou material sobre o mesmo...por exemplo, como eu vou vincular uma thread com um processo?quando eu reinicio uma aplicacao o ID do processo muda.. isso querdizer que eu teria que criar uma nova thread? agradeco desde ja sua atencaoOdair...

Nildo · Answer

Voce deve criar as threads dinamicamente, com uma variavel cada uma contendo o Handle to processo respectivo a essa thread. No Execute dessa thread voc� coloca aquele comando do

WaitForSingleObject( Handle, Infinite );

Agora, sobre como criar threads, esse tipo de coisa, voc� pode obter pesquisando no Google ou at� mesmo aqui no f�rum.

Ojschirmer · Answer

Nildo,Obrigadao...vou tentar com thread para ver se melhora a perfomance e n�o aloca memoria desnecessariamente....T+Odair...