Fórum Executar o meu programa sem a Apariçãodo mesmo! #229973
05/05/2004
0
Eu queria executar o programa sem que o usuario veja meu programa!!
Alguem pode me ajudar????!!! :)
Alguem pode me ajudar????!!! :)
Romualdo
Curtir tópico
+ 0
Responder
Posts
05/05/2004
Andcarpi
Primeiro voce deixa o form invisivel....
assim:
Depois esconde do ctrl+alt+del assim:
Depois eu num lembro se o prog continua na barra de tarefas ai voce tira de lah assim:
acho que eh tudo
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)