PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum tornar sistema visivel #229997

05/05/2004

0

Tenho um sistema rodando na máquina que fica invisivel e rodando.
Coloquei no dpr o seguinte comando para que não seja inicializado mais que um vez.

HprevHist := FindWindow(Nil, PChar(´aviso_para_o_bloco´));
Application.Title := ´aviso_para_o_bloco´;
if HPrevhist = 0 then
begin
Application.Initialize;
Application.CreateForm(Tf_adm_avisa_bloco, f_adm_avisa_bloco);
Application.Run;
end
else
begin
SetForegroundWindow(HPrevhist);
end;


O problema é que dentro deste aplicativo uso o comando hide que deixa a aplicação escondida.

Mas gostaria de chamar este sistema de um outro aplicativo delphi deixando esta aplicação visivel novamente. É como se fosse um administrador só ele pode ver este sistema.
Quando vou chamar este aplicativo de um outro sistema delphi usando o winexec ele acaba não mostrando a aplicação. Acredito eu que ele acha e até mostra na tela mas fica escondido.
Como posso chamar? Será que está errada a maneira de chamar ou falta algum procedimento na minha aplicação que fica rodando escondida?


Briciosm

Briciosm

Responder

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

Aceitar