Como verificar se um programa está na memoria??

Delphi

21/03/2003

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,,,


Anonymous

Anonymous

Curtidas 0

Respostas

Jonhy Riper

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


GOSTEI 0
POSTAR