Como verificar se um programa está na memoria??

21/03/2003

0

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

Responder

Posts

21/03/2003

Jonhy Riper

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


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar