• Home
 · 
• Windows System Services
 · 
• Controling the Speed of the Windows Start Menu

Controling the Speed of the Windows Start Menu

Controling the Speed of the Windows Start Menu

API Declarations


' * Programmer Name : Gijs de Jong
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 18/01/99
' * Time : 09:47
' * Module Name : Form1
' * Module Filename :
' **********************************************************************
' * Comments : Controling the Speed of the Windows Start Menu
' *
' *With this trick you can control the
' *popup speed of the Windows Start Menu.
' *
' *We have to create a new string in the
' *windows registry, the new string is
' *called MenuShowDelay and the value has
' *to be between 1 (fastest) and 1000
' *(slowest), it has to be located in:
' *
' *HKEY_CURRENT_USER\Control Panel\Desktop
' *Create a new project and add a module and a form to it.
' *
' *In the module put the following code:
' *
' *
' **********************************************************************

Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Declare Function ExitWindowsEx Lib "user32" (ByVal _
uFlags As Long, ByVal dwReserved As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias _
"RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As _
String, phkResult As Long) As Long

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
Hkey As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Long) As Long

Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
"RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName _
As String, ByVal Reserved As Long, ByVal dwType As Long, _
lpData As Any, ByVal cbData As Long) As Long

Public Const REG_SZ = 1
Public Const REG_DWORD = 4




Rate Controling the Speed of the Windows Start Menu

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

   strValue As String, strdata As String)
   Dim keyhand
   Dim r
   r = RegCreateKey(Hkey, strPath, keyhand)
   r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal _
      strdata, Len(strdata))
   r = RegCloseKey(keyhand)
End Sub

' Put 2 command buttons on the form and add the following code:

Private Sub Command1_Click()
   On Error GoTo Error
   A% = InputBox("Enter a number between 1 and 1000", _
      "Start Menu Speed")
   'a is the integer value of the input in the inputbox
   'checking the input
   If A% > 0 And A% < 1001 Then
      'input is a valid number between 1 and 1000
      'and a (integer) is to be converted in b (string)
      B$ = CStr(A%)
      'creating MenuShowDelay with it´s value
      '(if allready exists it just changes the value)
      Call savestring(HKEY_CURRENT_USER, _
         "Control Panel\Desktop", "MenuShowDelay", B$)
      'resetting computer
      MsgBox "Reset your Computer", , "Changes are made"
      t& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
   Else
      'value is a number but not valid
      MsgBox "Not a valid number between 1 and 1000"
   End If
   Exit Sub
Error:
   'error, input was not a valid number
   MsgBox "Invalid Data Input"
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub