Código
-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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009