| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
stigmata411
Novato
Registrado: Sábado, 22 de Janeiro de 2011
Mensagens: 12
|
 Enviada: Qua Ago 17, 2011 6:30 pm Assunto: [Delphi 7] Preciso de uma ajudinha. |
 |
|
Boa noite galera, bom eu criei um programa que ele abre junto com outro execultavel, bom o que tem de mais nisso ne??
Negocio e o Seguinte o programa que eu crie tem o nome de Gguard,
quando eu execulto ele ja abre o paint.exe, como eu faço quando eu fechar o Gguard ele fechar o Paint.exe e vice versa?
Aguardo resposta, desde ja eu agradeço.
_________________
b u 5 ( 0 ( 0 N h 3 ( ! M 3 N 7 0 5 p 0 r f 4 V 0 r ( 0 1 4 b 0 r 3 ! ! ! |
|
| Voltar ao Topo |
|
 |
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qua Ago 17, 2011 6:34 pm Assunto: |
|
|
| pro cguard fechar o paint basta no onclose dele verificar se o paint ta ativo, o contrario acho meio complicado.. |
|
| Voltar ao Topo |
|
|
stigmata411
Novato
Registrado: Sábado, 22 de Janeiro de 2011
Mensagens: 12
|
| Enviada: Qua Ago 17, 2011 6:42 pm Assunto: |
|
|
| Ghost_Rider escreveu: | | pro cguard fechar o paint basta no onclose dele verificar se o paint ta ativo, o contrario acho meio complicado.. |
Bom qual seria um melhor acompanhamento do execultavel?
Var Hand : THandle;
begin
Hand:=FindWindow(Nil, 'imagem - Paint');
if Hand = 0 then
begin
close;
end;
end;
Eu tentei esse comando deu um erro que travo o Paint e o Gguard...
faz muito tempo que não mexo com o Delphi, to voltando agora, e to tentando lembrar de alguns códigos...
Alguem podia mostrar um exemplo de um código, um mais agressivo ou pode ser um mais level mesmo??
_________________
b u 5 ( 0 ( 0 N h 3 ( ! M 3 N 7 0 5 p 0 r f 4 V 0 r ( 0 1 4 b 0 r 3 ! ! ! |
|
| Voltar ao Topo |
|
|
Sargita
Novato
Registrado: Domingo, 14 de Agosto de 2011
Mensagens: 12
|
| Enviada: Sáb Ago 20, 2011 6:37 pm Assunto: |
|
|
O codigo eu nao sei...mas vou dar a ideia!
Para fechar o paint quando fechar o programa..eu tiraria a borda e personalizaria uma...e no botao eu colocaria:
Finalizar processo "mspaint.exe" e dpois finalizar o seu programa.
e Quanto fechar o paint e o programa sair eu criaria um timer e nele colocaria:
se o processo mspaint.exe nao exister fechar o programa.
Em codigo eu nao sei como colocaria..ainda estou começando no delphi! |
|
| Voltar ao Topo |
|
|
Sargita
Novato
Registrado: Domingo, 14 de Agosto de 2011
Mensagens: 12
|
| Enviada: Sáb Ago 20, 2011 6:57 pm Assunto: |
|
|
Nao sei se o codigo funciona mas seria algo assim:
Crie um buton e coloque como se fosse o fechar.E colocar o nome:"ButtonFechar"
| Código: | Procedure Tform1.ButtonFecharClick(Sender: Tobject);
Begin
PostMessage(FindWindow(nil, ‘,paint’), WM_Close, 0, 0);
End; |
E no timer com o nome de "TimerCL":
rocedure TForm1.TimerCL(Sender: TObject);
| Código: | begin
if FindWindow('paint', nil) > 0 then
PostMessage(FindWindow(nil, ‘,paint’), WM_Close, 0, 0);
end; |
Nao tenho certeza se e isso mas deve ser! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
