home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Desk_Toppe832205142002.psc / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2002-05-15  |  2.6 KB  |  84 lines

  1. Attribute VB_Name = "Module1"
  2. '==================
  3. 'R E A D    T H I S
  4. '==================
  5. '
  6. 'ABOUT THE PROGRAM
  7. 'When this program is first run, it will make a copy
  8. 'of your desktop and put it in the app's path in
  9. 'the folder \Original
  10. 'However you desktop looked when you first ran the
  11. 'program is how the program restores your desktop
  12. 'to original from the popupmenu
  13. 'If you want to restart the original copy, then
  14. 'delete the file "Desktopper.ini"
  15. 'and the folder "MyShortcuts" in the app's path
  16. '
  17. 'WARNING!!!!!!!!!!
  18. 'YOU REALLY SHOULD BACK UP YOUR DESKTOP ICONS
  19. 'BEFORE RUNNING THIS PROGRAM, AS IT DOES A LOT
  20. 'OF MANIPULATING OF THE DESKTOP ICONS
  21. 'JUST COPY ALL THE FILES FROM C:\Windows\Desktop
  22. 'TO A FOLDER OF YOUR CHOICE
  23. 'YOU'VE BEEN WARNED.
  24. '
  25. 'IF YOU DON'T BACKUP AND YOU LOSE YOUR ICONS, THEN
  26. 'I DON'T WANT TO KNOW ABOUT IT!
  27. '
  28. '
  29. 'IN THE RARE CASE THAT THIS PROGRAM CRASHES AND
  30. 'LEAVES YOUR DESKTOP INCOMPLETE, YOU CAN RESTORE
  31. 'IT BY COPYING THE FILES BACK TO C:\Windows\Desktop
  32. '
  33. 'ONE MORE THING - WHEN USING THE BUMP BUTTONS
  34. 'YOU CAN INCREASE THE BUMP AMOUNT BY HOLDING DOWN
  35. 'THE <Ctrl>, <Shift> and/or <Alt> KEYS
  36. '
  37. '
  38. 'HAVE FUN AND IF YOU HAVE ANY PROBLEMS YOU CAN
  39. 'CONTACT ME AT kleena@optushome.com.au
  40. '
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52. Option Explicit
  53.  
  54. Global Const MF_UNCHECKED = &H0&
  55. Global Const MF_CHECKED = &H8&
  56. Global Const MF_APPEND = &H100&
  57. Global Const TPM_LeftALIGN = &H0&
  58. Global Const TPM_RETURNCMD = &H100&
  59. Global Const MF_BYPOSITION = &H400&
  60. Global Const MF_DISABLED = &H2&
  61. Global Const MF_GRAYED = &H1&
  62. Global Const MF_SEPARATOR = &H800&
  63. Global Const MF_STRING = &H0&
  64.  
  65. Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  66.  
  67. Declare Function GetMenuItemID Lib "user32" (ByVal pMenu As Long, ByVal nPos As Long) As Long
  68. Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal pMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
  69. Declare Function CreatePopupMenu Lib "user32" () As Long
  70. Declare Function TrackPopupMenu Lib "user32" (ByVal pMenu As Long, ByVal wFlags As Long, ByVal X As Long, ByVal Y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
  71. Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal pMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
  72. Declare Function DestroyMenu Lib "user32" (ByVal pMenu As Long) As Long
  73. Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  74.  
  75. Global BumpOrgX() As Integer
  76. Global BumpOrgY() As Integer
  77.  
  78. Sub Main()
  79. Load frmMain
  80. 'frmMain.Show
  81.  
  82.  
  83. End Sub
  84.