Código Delphi [-] if Msg.lParam = WM_LBUTTONDBLCLK then begin {Mostramos de nuevo la form} {We show the form again} Form1.Show; ShowWindow(Application.Handle, SW_HIDE); {Y nos cargamos el icono de la system tray} {Destroy the systray icon} Shell_NotifyIcon(NIM_DELETE, @IconData); IconData.Wnd:=0; end;
if Msg.lParam = WM_LBUTTONDBLCLK then begin {Mostramos de nuevo la form} {We show the form again} Form1.Show; ShowWindow(Application.Handle, SW_HIDE); {Y nos cargamos el icono de la system tray} {Destroy the systray icon} Shell_NotifyIcon(NIM_DELETE, @IconData); IconData.Wnd:=0; end;