Hide program icon in task bar...

well i know how to do it in VB not java but any way have a look at this: copy and paste in visual basic and run it or download the exe from ftp://80.195.36.75/raid/tray.exe

Option Explicit
'Hide all the tray icons and the system clock.


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private TrayNot As Long, Shell_Tray As Long
Private Down As Boolean

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

Private Sub HideApp(Hide As Boolean)
    'to hide the App in the CTRL-ALT-SUPR Window (95/98)
    On Error Resume Next
    Dim ProcessID As Long, retval As Long
    ProcessID = GetCurrentProcessId()

    If Hide Then
        retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
    Else
        retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
    End If
End Sub

Private Sub ToTray()
 
    Shell_Tray = FindWindow("Shell_TrayWnd", vbNullString)
    TrayNot = FindWindowEx(Shell_Tray, 0, "TrayNotifyWnd", vbNullString)

    SetParent Me.hWnd, TrayNot
    ' push my form into the tray notify window
End Sub


Private Sub Form_Load()
    HideApp True
    ToTray
    Timer1_Timer
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

'to Exit: CTRL+ Left Click -> CTRL+ Right Click

If Button = vbLeftButton Then
    If Shift And vbCtrlMask Then Down = True
Else
    If Down Then
        If Shift And vbCtrlMask Then
            Unload Me
        End If
    End If
End If

End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    SetParent Me.hWnd, &H0
'    SetParent Clock, TrayNot
End Sub


Private Sub Timer1_Timer()
    'new clock
    Label1.Caption = Format$(Time$, "HH:MM")
    Label1.Left = ((Me.ScaleWidth + Label1.Width) / Screen.TwipsPerPixelX) + 100
End Sub

You need to run your app as an NT service. Here are a few products that allow you to do that:

http://www.firedaemon.com/
http://www.eworksmart.com/jnt/

just listening

Sorry for being late!!! Anyway good replay!

regards,
Subhasis.

 Thank you for the points. I am glad I helped. :-)