coloque no private:
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
depois na Implementation:
// para naum fechar
procedure TfcServi.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_CLOSE) then
ShowWindow(fcServi.Handle, SW_HIDE)
else
ShowWindow(fcServi.Handle, SW_RESTORE);
end;
// Para Tirar da Barra de Tarefas
// no Oncreate do form:
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
flw
----- Original Message -----
From: Marcos H. Silva
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 10, 2005 10:45 AM
Subject: [delphi-br] Não fechar a aplicação
Alguem pode me ajudar a não permitir que o usuário feche a aplicação, e
fazer com que o botão fechar apenas minimize a janela? E quando
minimizar que a mesma não apareça na barra de tarefas, como o Skype.
Grato desde ja
Marcos H. Silva
--
<<<<< 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] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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] ou [EMAIL PROTECTED]
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:
http://br.yahoo.com/info/utos.html
