Executar o meu programa sem a Apariçãodo mesmo!

Delphi

05/05/2004

Eu queria executar o programa sem que o usuario veja meu programa!!

Alguem pode me ajudar????!!! :)


Romualdo

Romualdo

Curtidas 0

Respostas

Andcarpi

Andcarpi

05/05/2004

Primeiro voce deixa o form invisivel....
assim:

no on create do form: form1.Brush.Style:=bsClear;


Depois esconde do ctrl+alt+del assim:

Declara no implementation: Const Servico_Simples = 1; Servico_Unregister = 1; Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External ´KERNEL32.dll´; on form create: RegisterServiceProcess(GetCurrentProcessID, Servico_Simples); on form destroy: RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister);


Depois eu num lembro se o prog continua na barra de tarefas ai voce tira de lah assim:

no onshow: var H : HWnd; begin H := FindWindow(Nil,´Project1´); {troque project1 pelo nome do seu projeto) if H <> 0 then ShowWindow(H,SW_HIDE);


acho que eh tudo


GOSTEI 0
POSTAR