Server System Tray Support - Printable Version

Server System Tray Support - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Server System Tray Support (/showthread.php?tid=284)

Server System Tray Support - Tutorial Bot - 02-09-2006

Author: Magnus
Difficulty: 1/5

:: SERVER SIDE ::

First, add the existing module "modSysTray" (it's in the server folder) to your project.
Now, in Sub InitServer, a few lines below "Randomize Timer" add the following:

Code:
nid.cbSize = Len(nid)

    nid.hWnd = frmServer.hWnd

    nid.uId = vbNull

    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

    nid.uCallBackMessage = WM_MOUSEMOVE

    nid.hIcon = frmServer.Icon

    nid.szTip = "Server" & vbNullChar 'You can add your  game name or something.

    ' Add to the sys tray

    Call Shell_NotifyIcon(NIM_ADD, nid)

Add this in Sub DestroyServer, a few lines below "Dim I":

Code:
nid.cbSize = Len(nid)

    nid.hWnd = frmServer.hWnd

    nid.uId = vbNull

    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

    nid.uCallBackMessage = WM_MOUSEMOVE

    nid.hIcon = frmServer.Icon

    nid.szTip = "Server" & vbNullChar

    ' Add to the sys tray

    Call Shell_NotifyIcon(NIM_DELETE, nid)

Now, in frmServer add this code:

Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Dim lmsg As Long

    lmsg = x / Screen.TwipsPerPixelX

    Select Case lmsg

        Case WM_LBUTTONDBLCLK

            frmServer.WindowState = vbNormal

            frmServer.Show

    End Select

End Sub

That's all!