Category

Development Platform
Home > SourceCode/Document > Windows Develop > View Code
modSystray.bas
Package: FolderBackup.rar　[view]
Upload User: wintows
Upload Date: 2009-11-16
Package Size: 27k
Code Size: 3k
Category:

Windows Develop

Development Platform:

Visual Basic

modSystray.bas：Code Content
  1. Attribute VB_Name = "modSystray"
  2. 'Download by http://www.codefans.net
  3. Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
  4. Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  5. Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  6. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
  7. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
  8. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  10. Private Const HKEY_LOCAL_MACHINE = &H80000002
  11. Private Const REG_SZ = 1
  12. Private Const KEY_WRITE = 131078
  14. Global glIsConnected As Long
  15. Global glWasConnected As Boolean
  16. Global curSecond As Double
  18. Public Const NIM_ADD = &H0 'Add to Tray
  19. Public Const NIM_MODIFY = &H1 'Modify Details
  20. Public Const NIM_DELETE = &H2 'Remove From Tray
  21. Public Const NIF_MESSAGE = &H1 'Message
  22. Public Const NIF_ICON = &H2 'Icon
  23. Public Const NIF_TIP = &H4 'TooTipText
  24. Public Const WM_MOUSEMOVE = &H200 'On Mousemove
  25. Public Const WM_LBUTTONDOWN = &H201 'Left Button Down
  26. Public Const WM_LBUTTONUP = &H202 'Left Button Up
  27. Public Const WM_LBUTTONDBLCLK = &H203 'Left Double Click
  28. Public Const WM_RBUTTONDOWN = &H204 'Right Button Down
  29. Public Const WM_RBUTTONUP = &H205 'Right Button Up
  30. Public Const WM_RBUTTONDBLCLK = &H206 'Right Double Click
  32. Public nid As NOTIFYICONDATA
  34. Public Type NOTIFYICONDATA
  35.  cbSize As Long
  36.  hwnd As Long
  37.  uId As Long
  38.  uFlags As Long
  39.  uCallBackMessage As Long
  40.  hIcon As Long
  41.  szTip As String * 64
  42. End Type
  44. Public Function DoStartUp(FileName As String, Discription As String)
  45.     Dim hKey As Long
  46.     RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey
  47.     RegDeleteValue hKey, Discription
  48.     RegCloseKey hKey
  49.     RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey
  50.     RegSetValueEx hKey, Discription, 0, REG_SZ, FileName, Len(FileName)
  51.     RegCloseKey hKey
  52. End Function
  54. Public Function DoNotStartUp(FileName As String, Discription As String)
  55.     Dim hKey As Long
  56.     RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey
  57.     RegDeleteValue hKey, Discription
  58.     RegCloseKey hKey
  59.     RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey
  60.     RegSetValueEx hKey, Discription, 0, REG_SZ, FileName, Len(FileName)
  61.     RegCloseKey hKey
  62. End Function