Buscar

Travar um programa para que ele seja aberto somente dentro de outro

Código

Esta dica é para que precisa fechar alguns softwares dentro de um software gerenciador, no qual e pode ser aberto apenas pelo gerenciador.

-crie uma aplicacao.
-renomei o formulário para FGerenciador.
-salve a aplicação e feche-a.

-crie uma nova aplicação.
-no evento onshow do formulário principal coloque o seguinto codigo:

if FindWindow('TFGerenciador', nil) <= 0
     then begin
          messagedlg('Este Programa não pode ser aberto a partir desta janela!!!', mtwarning,[mbok],0);
          application.Terminate;
          end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 05/03/07
Por: Leandro Junior Castro Maia
Visualizada: 1739 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009