Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

QuArEnTeNa

Detectar processos do windows??

Recommended Posts

Olapeguei esta explicacao de um programa de dicas

{ Coloque um Button no Form e altere o evento OnClick deste como abaixo: }procedure TForm1.Button1Click(Sender: TObject);begin  { Verifica o Delphi }  if FindWindow('TAppBuilder', nil) > 0 then  ShowMessage('O Delphi está aberto')  else  ShowMessage('O Delphi NÃO está aberto');   { Verifica o Word }  if FindWindow('OpusApp', nil) > 0 then  ShowMessage('O Word está aberto')  else  ShowMessage('O Word NÃO está aberto');   { Verifica o Excell }  if FindWindow('XLMAIN', nil) > 0 then  ShowMessage('O Excell está aberto')  else  ShowMessage('O Excell NÃO está aberto');end;ObservaçõesHá uma margem de erro nesta verificação: pode haver outros programas que possuam uma janela com os mesmos nomes. Você mesmo pode criar aplicativos em Delphi e, propositadamente, criar uma janela com um destes nomes.

espero q ajude

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.