Ver Mensaje Individual
  #4  
Antiguo 22-08-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 22
cHackAll Va por buen camino
Lo que Dec comenta funciona exceptuando que no oculta el boton de la barra de tareas, para solucionar ésto y darle un efecto adicional (el de minimizado) hago un par de modificaciones a tu codigo (al que supongo que es porque no lo copiaste completo);

Código Delphi [-]
//...
 
uses ShellAPI;
 
var
 IconData: TNotifyIconData = (cbSize: SizeOf(IconData); uID: 100;
                              uFlags: NIF_MESSAGE + NIF_ICON + NIF_TIP;
                              uCallbackMessage: WM_USER + 1);
 
procedure TForm1.FormMinimize(Sender: TObject);
begin
 with IconData do
  begin
   Wnd := Handle;
   hIcon := Application.Icon.Handle;
   StrPCopy(szTip, Application.Title);
   Shell_NotifyIcon(NIM_ADD, @IconData);
   ShowWindow(Application.Handle, SW_HIDE);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMinimize := FormMinimize;
 Application.Minimize;
end;

Saludos
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Responder Con Cita