Como verificar se um programa está na memoria??
Galera a duvida é a seguinte,
Tenho um programa que precisa de outro programa para funcionar,
Até ai tudo bem,,,,,,toda o hora que eu anro meu sistema faço o outro programa abrir antes,,,,,mais depois que fecho meu program o outro fica aberto,,,,,,e quando vou abrir novamente meu sistema ele dá um erro que o sistema já está aberto,,,
Bom queria que a hora que eu executasse meu sistema ele checasse se o otro sistema estivesse na memoria e e pronto,,,
Tenho um programa que precisa de outro programa para funcionar,
Até ai tudo bem,,,,,,toda o hora que eu anro meu sistema faço o outro programa abrir antes,,,,,mais depois que fecho meu program o outro fica aberto,,,,,,e quando vou abrir novamente meu sistema ele dá um erro que o sistema já está aberto,,,
Bom queria que a hora que eu executasse meu sistema ele checasse se o otro sistema estivesse na memoria e e pronto,,,
Anonymous
Curtidas 0
Respostas
Jonhy Riper
21/03/2003
8) Estou mandando um exemplo que verifica se o Word, Delphi ou outros está funcionando de uma olhada no codigo
Verificar se determinado programa está em execução (Word, Delphi, etc)
{ 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;
joao@funape.org.br
Verificar se determinado programa está em execução (Word, Delphi, etc)
{ 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;
joao@funape.org.br
GOSTEI 0