tornar sistema visivel

Delphi

05/05/2004

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

Curtidas 0
POSTAR