help-me.. como descubro se um processo está ou não rodando
e ai galera sou eu de novo.. sera que alguem sabe como que eu façao pra descobrir se um processo esta ou não rodando..
tipo como descubro se o o executavel de um programa esta sendo executando sem ter que precionar CTRL+ALT+DEL......
se alguem, souber....... fico muito grato.......
tipo como descubro se o o executavel de um programa esta sendo executando sem ter que precionar CTRL+ALT+DEL......
se alguem, souber....... fico muito grato.......
Bysnaga
Curtidas 0
Respostas
Rodrigo Costa
06/11/2003
Retirei isso do DtDelphi: http://cdownload.no-ip.com/lloyd/
{ 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ções
Há 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.
{ 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ções
Há 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.
GOSTEI 0
Bysnaga
06/11/2003
bleza mas tem um, porem que acho que esqueci de mencionar a janela não fica aberta ela fica no taskbar...
é como o icq ele abre e depois fica do lado do relogiio
é como o icq ele abre e depois fica do lado do relogiio
GOSTEI 0
Rodrigo Costa
06/11/2003
ok, pesquise lá no dtdelphi que eu acho que tem outras dicas sobre isso !
GOSTEI 0