//na barra do menu Iniciar:
var
H : HWnd;
begin
H := FindWindow(Nil,'Project1'); {troque project1 pelo nome do seu projeto)
if H <> 0 then ShowWindow(H,SW_HIDE);
end;
Marcelo Frasson
----- Original Message -----
From: "Vinicius Florido" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, May 31, 2006 4:12 PM
Subject: RES: [delphi-br] Esconder Aplicação do Usuário
Isso só funciona no Windows 9x eu acho...
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Andre Luis
Enviada em: terça-feira, 30 de maio de 2006 17:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Esconder Aplicação do Usuário
{Para ocultar um programa, deve-se registrar este como um
serviço do Windows. Normalmente um serviço do Windows é
ativado quando com a inicialização do sistema (Windows) e
pemanece ativo até a finalização deste. Este processo
esconde o programa da lista "Ctrl+Alt+Del"}
Const
Servico_Simples = 1;
Servico_Unregister = 1;
Function RegisterServiceProcess(DwProcessID, dwType: DWord):
DWord; StdCall; External 'KERNEL32.dll';
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,
Servico_Simples);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,
Servico_Unregister);
end;
end.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12fgqjd7g/M=396559.7942981.9535540.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1149026419/A=3739190/R=0/id=noscript/
SIG=154dcqslu/*http:/lt.dell.com/lt/lt.aspx?CID=13040&LID=340715&DGC=BA&
DGSeg=DHS&DURL=http://www1.la.dell.com/content/products/category.aspx/de
sktops?c%3dbr%26l%3dpt%26s%3ddhs>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> Serviço do Yahoo!.
_____
Esta mensagem foi verificada pelo E-mail Protegido Terra
<http://mail.terra.com.br/> .
Scan engine: McAfee VirusScan / Atualizado em 30/05/2006 / Versão:
4.4.00/4773
Proteja o seu e-mail Terra: http://mail.terra.com.br/
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
