Windows 8 Shortcuts Utility [105 Useful System Shortcuts]

Rain · Post by **Rain** » Thu Jan 31, 2013 8:42 pm

Since upgrading to Windows 8 I find myself having to click all over the place trying to find features or settings. Some settings can only be found by using the search option. Pretty annoying and time consuming. So I decided to write a utility that has links to load all important and not so important features, apps and Windows settings. I even added a feature to load the desktop as soon as you're logged in. It's creating a scheduled task called "Show Desktop @ Startup". I have it open the Libraries folder.
There are also options to to sign out, restart or shut down and an option to minimize the utility to your system tray when you're not using it.

I also added this utility to Google drive https://docs.google.com/folder/d/0B0bep ... 10TVE/edit

Make sure you run the utility with administrator privileges when compiled.

Code: Select all

Let>APP_TITLE=Windows 8 System Shortcuts

Dialog>Dialog1
object Dialog1: TForm
  Left = 247
  Top = 97
  Width = 818
  Height = 712
  HelpContext = 5000
  AutoScroll = True
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = 'Windows 8 System Shortcuts'
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = MainMenu
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnTaskBar = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 761
    Height = 593
    BevelOuter = bvNone
    Caption = 'Panel1'
    Color = clWhite
    ParentBackground = False
    ShowCaption = False
    TabOrder = 0
    object Label1: TLabel
      Left = 368
      Top = 504
      Width = 102
      Height = 13
      Cursor = crHandPoint
      Caption = 'System Properties'
    end
    object Label2: TLabel
      Left = 368
      Top = 184
      Width = 131
      Height = 13
      Cursor = crHandPoint
      Caption = 'Programs and Features'
    end
    object Label3: TLabel
      Left = 8
      Top = 136
      Width = 102
      Height = 13
      Cursor = crHandPoint
      Caption = 'Check Disk Utility'
    end
    object Label4: TLabel
      Left = 8
      Top = 120
      Width = 84
      Height = 13
      Cursor = crHandPoint
      Caption = 'Character Map'
    end
    object Label5: TLabel
      Left = 8
      Top = 40
      Width = 124
      Height = 13
      Cursor = crHandPoint
      Caption = 'Add Hardware Wizard'
    end
    object Label6: TLabel
      Left = 8
      Top = 72
      Width = 115
      Height = 13
      Cursor = crHandPoint
      Caption = 'Administrative Tools'
    end
    object Label7: TLabel
      Left = 8
      Top = 184
      Width = 98
      Height = 13
      Cursor = crHandPoint
      Caption = 'Command Prompt'
    end
    object Label8: TLabel
      Left = 8
      Top = 200
      Width = 117
      Height = 13
      Cursor = crHandPoint
      Caption = 'Component Services'
    end
    object Label9: TLabel
      Left = 8
      Top = 216
      Width = 130
      Height = 13
      Cursor = crHandPoint
      Caption = 'Computer Management'
    end
    object Label10: TLabel
      Left = 8
      Top = 280
      Width = 145
      Height = 13
      Cursor = crHandPoint
      Caption = 'Date and Time Properties'
    end
    object Label11: TLabel
      Left = 8
      Top = 328
      Width = 94
      Height = 13
      Cursor = crHandPoint
      Caption = 'Device Manager'
    end
    object Label12: TLabel
      Left = 8
      Top = 344
      Width = 136
      Height = 13
      Cursor = crHandPoint
      Caption = 'Direct-X Troubleshooter'
    end
    object Label13: TLabel
      Left = 8
      Top = 360
      Width = 112
      Height = 13
      Cursor = crHandPoint
      Caption = 'Disk Cleanup Utility'
    end
    object Label14: TLabel
      Left = 8
      Top = 376
      Width = 95
      Height = 13
      Cursor = crHandPoint
      Caption = 'Disk Defragment'
    end
    object Label15: TLabel
      Left = 8
      Top = 392
      Width = 102
      Height = 13
      Cursor = crHandPoint
      Caption = 'Disk Management'
    end
    object Label16: TLabel
      Left = 8
      Top = 408
      Width = 130
      Height = 13
      Cursor = crHandPoint
      Caption = 'Disk Partition Manager'
    end
    object Label17: TLabel
      Left = 368
      Top = 120
      Width = 87
      Height = 13
      Cursor = crHandPoint
      Caption = 'Personalization'
    end
    object Label18: TLabel
      Left = 368
      Top = 328
      Width = 105
      Height = 13
      Cursor = crHandPoint
      Caption = 'Screen Resolution'
    end
    object Label19: TLabel
      Left = 8
      Top = 152
      Width = 127
      Height = 13
      Cursor = crHandPoint
      Caption = 'Color and Appearance'
    end
    object Label20: TLabel
      Left = 8
      Top = 440
      Width = 115
      Height = 13
      Cursor = crHandPoint
      Caption = 'Driver Verifier Utility'
    end
    object Label21: TLabel
      Left = 8
      Top = 488
      Width = 76
      Height = 13
      Cursor = crHandPoint
      Caption = 'Event Viewer'
    end
    object Label22: TLabel
      Left = 176
      Top = 72
      Width = 176
      Height = 13
      Cursor = crHandPoint
      Caption = 'File Signature Verification Tool'
    end
    object Label23: TLabel
      Left = 176
      Top = 104
      Width = 89
      Height = 13
      Cursor = crHandPoint
      Caption = 'Folders Options'
    end
    object Label24: TLabel
      Left = 176
      Top = 120
      Width = 32
      Height = 13
      Cursor = crHandPoint
      Caption = 'Fonts'
    end
    object Label25: TLabel
      Left = 176
      Top = 152
      Width = 97
      Height = 13
      Cursor = crHandPoint
      Caption = 'Game Controllers'
    end
    object Label26: TLabel
      Left = 368
      Top = 104
      Width = 212
      Height = 13
      Cursor = crHandPoint
      Caption = 'Performance Monitor (by settings file)'
    end
    object Label27: TLabel
      Left = 176
      Top = 264
      Width = 106
      Height = 13
      Cursor = crHandPoint
      Caption = 'Internet Properties'
    end
    object Label28: TLabel
      Left = 176
      Top = 296
      Width = 115
      Height = 13
      Cursor = crHandPoint
      Caption = 'Keyboard Properties'
    end
    object Label29: TLabel
      Left = 176
      Top = 392
      Width = 86
      Height = 13
      Cursor = crHandPoint
      Caption = 'Microsoft Paint'
    end
    object Label30: TLabel
      Left = 176
      Top = 408
      Width = 99
      Height = 13
      Cursor = crHandPoint
      Caption = 'Mouse Properties'
    end
    object Label31: TLabel
      Left = 176
      Top = 488
      Width = 42
      Height = 13
      Cursor = crHandPoint
      Caption = 'Netstat'
    end
    object Label32: TLabel
      Left = 176
      Top = 520
      Width = 122
      Height = 13
      Cursor = crHandPoint
      Caption = 'Network Connections'
    end
    object Label33: TLabel
      Left = 176
      Top = 552
      Width = 49
      Height = 13
      Cursor = crHandPoint
      Caption = 'Notepad'
    end
    object Label34: TLabel
      Left = 368
      Top = 40
      Width = 118
      Height = 13
      Cursor = crHandPoint
      Caption = 'On Screen Keyboard'
    end
    object Label35: TLabel
      Left = 368
      Top = 136
      Width = 153
      Height = 13
      Cursor = crHandPoint
      Caption = 'Phone and Modem Options'
    end
    object Label36: TLabel
      Left = 368
      Top = 152
      Width = 83
      Height = 13
      Cursor = crHandPoint
      Caption = 'Power Options'
    end
    object Label37: TLabel
      Left = 8
      Top = 312
      Width = 119
      Height = 13
      Cursor = crHandPoint
      Caption = 'Devices and Printers'
    end
    object Label38: TLabel
      Left = 368
      Top = 168
      Width = 137
      Height = 13
      Cursor = crHandPoint
      Caption = 'Private Character Editor'
    end
    object Label39: TLabel
      Left = 368
      Top = 232
      Width = 101
      Height = 13
      Cursor = crHandPoint
      Caption = 'Regional Settings'
    end
    object Label40: TLabel
      Left = 368
      Top = 248
      Width = 84
      Height = 13
      Cursor = crHandPoint
      Caption = 'Registry Editor'
    end
    object msLabelA: TLabel
      Left = 8
      Top = 8
      Width = 9
      Height = 13
      Caption = 'A'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object msLabelC: TLabel
      Left = 8
      Top = 88
      Width = 9
      Height = 13
      Caption = 'C'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelD: TLabel
      Left = 8
      Top = 264
      Width = 10
      Height = 13
      Caption = 'D'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelE: TLabel
      Left = 8
      Top = 456
      Width = 9
      Height = 13
      Caption = 'E'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelF: TLabel
      Left = 176
      Top = 8
      Width = 8
      Height = 13
      Caption = 'F'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelG: TLabel
      Left = 176
      Top = 136
      Width = 10
      Height = 13
      Caption = 'G'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelI: TLabel
      Left = 176
      Top = 216
      Width = 5
      Height = 13
      Caption = 'I'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelK: TLabel
      Left = 176
      Top = 280
      Width = 9
      Height = 13
      Caption = 'K'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelM: TLabel
      Left = 176
      Top = 360
      Width = 11
      Height = 13
      Caption = 'M'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelN: TLabel
      Left = 176
      Top = 456
      Width = 10
      Height = 13
      Caption = 'N'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelO: TLabel
      Left = 368
      Top = 8
      Width = 10
      Height = 13
      Caption = 'O'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelP: TLabel
      Left = 368
      Top = 56
      Width = 9
      Height = 13
      Caption = 'P'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelR: TLabel
      Left = 368
      Top = 200
      Width = 10
      Height = 13
      Caption = 'R'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object mdLabelS: TLabel
      Left = 368
      Top = 296
      Width = 9
      Height = 13
      Caption = 'S'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object msLabelT: TLabel
      Left = 600
      Top = 8
      Width = 9
      Height = 13
      Caption = 'T'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label41: TLabel
      Left = 600
      Top = 72
      Width = 90
      Height = 13
      Cursor = crHandPoint
      Caption = 'Task Scheduler'
    end
    object Label42: TLabel
      Left = 176
      Top = 40
      Width = 71
      Height = 13
      Cursor = crHandPoint
      Caption = 'File Explorer'
    end
    object Label43: TLabel
      Left = 176
      Top = 440
      Width = 74
      Height = 13
      Cursor = crHandPoint
      Caption = 'My Computer'
    end
    object Label44: TLabel
      Left = 176
      Top = 424
      Width = 122
      Height = 13
      Cursor = crHandPoint
      Caption = 'Multimedia Properties'
    end
    object Label45: TLabel
      Left = 8
      Top = 56
      Width = 131
      Height = 13
      Cursor = crHandPoint
      Caption = 'Add/Remove Programs'
    end
    object Label46: TLabel
      Left = 176
      Top = 248
      Width = 95
      Height = 13
      Cursor = crHandPoint
      Caption = 'Internet Explorer'
    end
    object msLabelFolders: TLabel
      Left = 600
      Top = 336
      Width = 147
      Height = 13
      Caption = 'System && User Directories'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label47: TLabel
      Left = 600
      Top = 384
      Width = 77
      Height = 13
      Cursor = crHandPoint
      Hint = 'Will be x86 folder if running on x64'
      Caption = 'Program Files'
    end
    object Label48: TLabel
      Left = 600
      Top = 400
      Width = 118
      Height = 13
      Cursor = crHandPoint
      Hint = 'e.g. "Program Files" not (x86) on x64'
      Caption = 'Native Program Files'
    end
    object Label49: TLabel
      Left = 600
      Top = 416
      Width = 107
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Directory'
    end
    object Label50: TLabel
      Left = 600
      Top = 432
      Width = 151
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows System Directory'
    end
    object Label51: TLabel
      Left = 600
      Top = 448
      Width = 137
      Height = 13
      Cursor = crHandPoint
      Hint = 'Bypassing 64 Bit Redirection'
      Caption = 'Native System Directory'
    end
    object Label52: TLabel
      Left = 600
      Top = 464
      Width = 142
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Temp Directory'
    end
    object Label53: TLabel
      Left = 600
      Top = 352
      Width = 48
      Height = 13
      Cursor = crHandPoint
      Caption = 'Desktop'
    end
    object Label54: TLabel
      Left = 600
      Top = 368
      Width = 84
      Height = 13
      Cursor = crHandPoint
      Caption = 'My Documents'
    end
    object Label55: TLabel
      Left = 600
      Top = 56
      Width = 82
      Height = 13
      Cursor = crHandPoint
      Caption = 'Task Manager'
    end
    object msLabelW: TLabel
      Left = 600
      Top = 136
      Width = 13
      Height = 13
      Caption = 'W'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label56: TLabel
      Left = 600
      Top = 248
      Width = 57
      Height = 13
      Cursor = crHandPoint
      Caption = 'Word Pad'
    end
    object Label57: TLabel
      Left = 8
      Top = 104
      Width = 58
      Height = 13
      Cursor = crHandPoint
      Caption = 'Calculator'
    end
    object Label58: TLabel
      Left = 368
      Top = 280
      Width = 95
      Height = 13
      Cursor = crHandPoint
      Caption = 'Remote Desktop'
    end
    object Label59: TLabel
      Left = 176
      Top = 376
      Width = 98
      Height = 13
      Cursor = crHandPoint
      Caption = 'Math Input Panel'
    end
    object Label60: TLabel
      Left = 368
      Top = 344
      Width = 85
      Height = 13
      Cursor = crHandPoint
      Caption = 'Snipping Tools'
    end
    object Label61: TLabel
      Left = 368
      Top = 376
      Width = 93
      Height = 13
      Cursor = crHandPoint
      Caption = 'Sound Recorder'
    end
    object Label62: TLabel
      Left = 368
      Top = 424
      Width = 83
      Height = 13
      Cursor = crHandPoint
      Caption = 'Step Recorder'
    end
    object Label63: TLabel
      Left = 368
      Top = 440
      Width = 73
      Height = 13
      Cursor = crHandPoint
      Caption = 'Sticky Notes'
    end
    object Label64: TLabel
      Left = 600
      Top = 216
      Width = 97
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Journal'
    end
    object Label65: TLabel
      Left = 600
      Top = 200
      Width = 129
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Media Player'
    end
    object msLabelX: TLabel
      Left = 600
      Top = 264
      Width = 9
      Height = 13
      Caption = 'X'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label66: TLabel
      Left = 600
      Top = 280
      Width = 67
      Height = 13
      Cursor = crHandPoint
      Caption = 'XPS Viewer'
    end
    object Label67: TLabel
      Left = 176
      Top = 472
      Width = 47
      Height = 13
      Cursor = crHandPoint
      Caption = 'Narrator'
    end
    object Label68: TLabel
      Left = 8
      Top = 296
      Width = 98
      Height = 13
      Cursor = crHandPoint
      Caption = 'Default Programs'
    end
    object Label69: TLabel
      Left = 600
      Top = 232
      Width = 103
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Updates'
    end
    object Label70: TLabel
      Left = 600
      Top = 184
      Width = 99
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Firewall'
    end
    object Label71: TLabel
      Left = 600
      Top = 168
      Width = 108
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows Defender'
    end
    object Label72: TLabel
      Left = 8
      Top = 472
      Width = 130
      Height = 13
      Cursor = crHandPoint
      Caption = 'Ease of Access Center'
    end
    object Label73: TLabel
      Left = 8
      Top = 24
      Width = 78
      Height = 13
      Cursor = crHandPoint
      Caption = 'Action Center'
    end
    object Label74: TLabel
      Left = 8
      Top = 168
      Width = 106
      Height = 13
      Cursor = crHandPoint
      Caption = 'Color Management'
    end
    object Label75: TLabel
      Left = 8
      Top = 248
      Width = 111
      Height = 13
      Cursor = crHandPoint
      Caption = 'Credential Manager'
    end
    object Label76: TLabel
      Left = 8
      Top = 424
      Width = 42
      Height = 13
      Cursor = crHandPoint
      Caption = 'Display'
    end
    object Label77: TLabel
      Left = 176
      Top = 24
      Width = 76
      Height = 13
      Cursor = crHandPoint
      Caption = 'Family Safety'
    end
    object Label78: TLabel
      Left = 176
      Top = 56
      Width = 64
      Height = 13
      Cursor = crHandPoint
      Caption = 'File History'
    end
    object Label79: TLabel
      Left = 176
      Top = 88
      Width = 173
      Height = 13
      Cursor = crHandPoint
      Caption = 'Flash Player Settings Manager'
    end
    object Label80: TLabel
      Left = 176
      Top = 168
      Width = 77
      Height = 13
      Cursor = crHandPoint
      Caption = 'Get Programs'
    end
    object msLabelH: TLabel
      Left = 176
      Top = 184
      Width = 10
      Height = 13
      Caption = 'H'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label81: TLabel
      Left = 176
      Top = 200
      Width = 71
      Height = 13
      Cursor = crHandPoint
      Caption = 'Home Group'
    end
    object Label82: TLabel
      Left = 176
      Top = 232
      Width = 96
      Height = 13
      Cursor = crHandPoint
      Caption = 'Indexing Options'
    end
    object msLabelL: TLabel
      Left = 176
      Top = 312
      Width = 8
      Height = 13
      Caption = 'L'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label83: TLabel
      Left = 176
      Top = 328
      Width = 57
      Height = 13
      Cursor = crHandPoint
      Caption = 'Language'
    end
    object Label84: TLabel
      Left = 176
      Top = 344
      Width = 100
      Height = 13
      Cursor = crHandPoint
      Caption = 'Location Settings'
    end
    object Label85: TLabel
      Left = 176
      Top = 504
      Width = 161
      Height = 13
      Cursor = crHandPoint
      Caption = 'Network and Sharing Center'
    end
    object Label86: TLabel
      Left = 176
      Top = 536
      Width = 128
      Height = 13
      Cursor = crHandPoint
      Caption = 'Network Setup Wizard'
    end
    object Label87: TLabel
      Left = 176
      Top = 568
      Width = 131
      Height = 13
      Cursor = crHandPoint
      Caption = 'Notification Area Icons'
    end
    object Label88: TLabel
      Left = 368
      Top = 24
      Width = 68
      Height = 13
      Cursor = crHandPoint
      Caption = 'Offline Files'
    end
    object Label89: TLabel
      Left = 368
      Top = 72
      Width = 89
      Height = 13
      Cursor = crHandPoint
      Caption = 'Pen And Touch'
    end
    object Label90: TLabel
      Left = 368
      Top = 88
      Width = 199
      Height = 13
      Cursor = crHandPoint
      Caption = 'Performance Information and Tools'
    end
    object Label91: TLabel
      Left = 368
      Top = 216
      Width = 55
      Height = 13
      Cursor = crHandPoint
      Caption = 'Recovery'
    end
    object Label92: TLabel
      Left = 368
      Top = 264
      Width = 216
      Height = 13
      Cursor = crHandPoint
      Caption = 'RemoteApp and Desktop Connections'
    end
    object Label93: TLabel
      Left = 368
      Top = 312
      Width = 131
      Height = 13
      Cursor = crHandPoint
      Caption = 'Scanners and Cameras'
    end
    object Label94: TLabel
      Left = 368
      Top = 360
      Width = 37
      Height = 13
      Cursor = crHandPoint
      Caption = 'Sound'
    end
    object Label95: TLabel
      Left = 368
      Top = 408
      Width = 116
      Height = 13
      Cursor = crHandPoint
      Caption = 'Speech Recognition'
    end
    object Label96: TLabel
      Left = 368
      Top = 456
      Width = 91
      Height = 13
      Cursor = crHandPoint
      Caption = 'Storage Spaces'
    end
    object Label97: TLabel
      Left = 368
      Top = 472
      Width = 70
      Height = 13
      Cursor = crHandPoint
      Caption = 'Sync Center'
    end
    object Label98: TLabel
      Left = 368
      Top = 488
      Width = 41
      Height = 13
      Cursor = crHandPoint
      Caption = 'System'
    end
    object Label99: TLabel
      Left = 600
      Top = 24
      Width = 107
      Height = 13
      Cursor = crHandPoint
      Caption = 'Tablet PC Settings'
    end
    object Label100: TLabel
      Left = 600
      Top = 40
      Width = 108
      Height = 13
      Cursor = crHandPoint
      Caption = 'Taskbar Properties'
    end
    object Label101: TLabel
      Left = 368
      Top = 392
      Width = 105
      Height = 13
      Cursor = crHandPoint
      Caption = 'Speech Properties'
    end
    object Label102: TLabel
      Left = 600
      Top = 88
      Width = 92
      Height = 13
      Cursor = crHandPoint
      Caption = 'Troubleshooting'
    end
    object msLabelU: TLabel
      Left = 600
      Top = 104
      Width = 10
      Height = 13
      Caption = 'U'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label103: TLabel
      Left = 600
      Top = 120
      Width = 84
      Height = 13
      Cursor = crHandPoint
      Caption = 'User Accounts'
    end
    object Label104: TLabel
      Left = 600
      Top = 152
      Width = 145
      Height = 13
      Cursor = crHandPoint
      Caption = 'Windows 7 File Recovery'
    end
    object Label105: TLabel
      Left = 8
      Top = 232
      Width = 77
      Height = 13
      Cursor = crHandPoint
      Caption = 'Control Panel'
    end
  end
  object MainMenu: tMSMainMenu
    object MenuItem1: tMSMenuItem
      Caption = '&File'
      object MenuItem2: tMSMenuItem
        Caption = '&Minimize to tray'
      end
      object MenuItem3: tMSMenuItem
        Caption = '-'
      end
      object MenuItem4: tMSMenuItem
        Caption = '&Exit'
      end
    end
    object MenuItem5: tMSMenuItem
      Caption = '&Power'
      object MenuItem6: tMSMenuItem
        Caption = '&Sign Out'
      end
      object MenuItem7: tMSMenuItem
        Caption = '&Restart'
      end
      object MenuItem8: tMSMenuItem
        Caption = 'S&hut Down'
      end
    end
    object MenuItem9: tMSMenuItem
      Caption = '&Options'
      object MenuItem10: tMSMenuItem
        AutoCheck = True
        Caption = '&Show Desktop when windows starts'
      end
    end
    object MenuItem11: tMSMenuItem
      Caption = '&Help'
      object MenuItem12: tMSMenuItem
        Caption = '&Contents'
      end
      object MenuItem13: tMSMenuItem
        Caption = '-'
      end
      object MenuItem14: tMSMenuItem
        Caption = '&About'
      end
    end
  end
end
EndDialog>Dialog1

AddDialogHandler>Dialog1,,OnClose,Exit
AddDialogHandler>Dialog1,MenuItem2,OnClick,MinimizeToTray
AddDialogHandler>Dialog1,MenuItem4,OnClick,Exit
AddDialogHandler>Dialog1,MenuItem6,OnClick,Power(2)
AddDialogHandler>Dialog1,MenuItem7,OnClick,Power(1)
AddDialogHandler>Dialog1,MenuItem8,OnClick,Power(0)
AddDialogHandler>Dialog1,MenuItem10,OnClick,CreateScheduledTask

AddDialogHandler>Dialog1,Label1,OnClick,Execute(sysdm.cpl)
AddDialogHandler>Dialog1,Label2,OnClick,Execute(appwiz.cpl)
AddDialogHandler>Dialog1,Label3,OnClick,Execute(chkdsk.exe)
AddDialogHandler>Dialog1,Label4,OnClick,Execute(charmap.exe)
AddDialogHandler>Dialog1,Label5,OnClick,Execute(hdwwiz.cpl)
AddDialogHandler>Dialog1,Label6,OnClick,Execute(certmgr.msc)
AddDialogHandler>Dialog1,Label7,OnClick,Execute(cmd.exe)
AddDialogHandler>Dialog1,Label8,OnClick,Execute(dcomcnfg.exe)
AddDialogHandler>Dialog1,Label9,OnClick,Execute(compmgmt.msc)
AddDialogHandler>Dialog1,Label10,OnClick,Execute(timedate.cpl)
AddDialogHandler>Dialog1,Label11,OnClick,Execute(devmgmt.msc)
AddDialogHandler>Dialog1,Label12,OnClick,Execute(dxdiag.exe)
AddDialogHandler>Dialog1,Label13,OnClick,Execute(cleanmgr.exe)
AddDialogHandler>Dialog1,Label14,OnClick,Execute(dfrgui.exe)
AddDialogHandler>Dialog1,Label15,OnClick,Execute(diskmgmt.msc)
AddDialogHandler>Dialog1,Label16,OnClick,Execute(diskpart)
AddDialogHandler>Dialog1,Label17,OnClick,Run(control.exe desktop)
AddDialogHandler>Dialog1,Label18,OnClick,Execute(desk.cpl)
AddDialogHandler>Dialog1,Label19,OnClick,Run(control.exe color)
AddDialogHandler>Dialog1,Label20,OnClick,Execute(verifier.exe)
AddDialogHandler>Dialog1,Label21,OnClick,Execute(eventvwr.msc)
AddDialogHandler>Dialog1,Label22,OnClick,Execute(sigverif.exe)
AddDialogHandler>Dialog1,Label23,OnClick,Run(control.exe folders)
AddDialogHandler>Dialog1,Label24,OnClick,Run(control.exe fonts)
AddDialogHandler>Dialog1,Label25,OnClick,Execute(joy.cpl)
AddDialogHandler>Dialog1,Label26,OnClick,Execute(perfmon.msc)
AddDialogHandler>Dialog1,Label27,OnClick,Execute(inetcpl.cpl)
AddDialogHandler>Dialog1,Label28,OnClick,Run(control.exe keyboard)
AddDialogHandler>Dialog1,Label29,OnClick,Execute(mspaint)
AddDialogHandler>Dialog1,Label30,OnClick,Run(control mouse)
AddDialogHandler>Dialog1,Label31,OnClick,Execute(netstat.exe)
AddDialogHandler>Dialog1,Label32,OnClick,Run(control.exe netconnections)
AddDialogHandler>Dialog1,Label33,OnClick,Execute(notepad.exe)
AddDialogHandler>Dialog1,Label34,OnClick,Execute(osk.exe)
AddDialogHandler>Dialog1,Label35,OnClick,Execute(telephon.cpl)
AddDialogHandler>Dialog1,Label36,OnClick,Execute(powercfg.cpl)
AddDialogHandler>Dialog1,Label37,OnClick,Run(control.exe printers)
AddDialogHandler>Dialog1,Label38,OnClick,Execute(eudcedit)
AddDialogHandler>Dialog1,Label39,OnClick,Execute(intl.cpl)
AddDialogHandler>Dialog1,Label40,OnClick,Execute(regedit)
AddDialogHandler>Dialog1,Label41,OnClick,Execute(Taskschd.msc)
AddDialogHandler>Dialog1,Label42,OnClick,Execute(explorer.exe)
AddDialogHandler>Dialog1,Label43,OnClick,RunMyComputer
AddDialogHandler>Dialog1,Label44,OnClick,Execute(mmsys.cpl)
AddDialogHandler>Dialog1,Label45,OnClick,Execute(appwiz.cpl)
AddDialogHandler>Dialog1,Label46,OnClick,Execute(iexplore.exe)
AddDialogHandler>Dialog1,Label47,OnClick,Execute(PROGRAM_FILES)
AddDialogHandler>Dialog1,Label48,OnClick,Execute(PROGRAM_FILES_NATIVE)
AddDialogHandler>Dialog1,Label49,OnClick,Execute(WIN_DIR)
AddDialogHandler>Dialog1,Label50,OnClick,Execute(SYS_DIR)
AddDialogHandler>Dialog1,Label51,OnClick,Execute(SYS_NATIVE)
AddDialogHandler>Dialog1,Label52,OnClick,Execute(TEMP_DIR)
AddDialogHandler>Dialog1,Label53,OnClick,Execute(DESKTOP_DIR)
AddDialogHandler>Dialog1,Label54,OnClick,Execute(USERDOCUMENTS_DIR)
AddDialogHandler>Dialog1,Label55,OnClick,Execute(taskmgr)
AddDialogHandler>Dialog1,Label56,OnClick,Execute(wordpad.exe)
AddDialogHandler>Dialog1,Label57,OnClick,Execute(calc.exe)
AddDialogHandler>Dialog1,Label58,OnClick,Execute(mstsc.exe)
AddDialogHandler>Dialog1,Label59,OnClick,Execute(mip.exe)
AddDialogHandler>Dialog1,Label60,OnClick,Execute(SnippingTool.exe)
AddDialogHandler>Dialog1,Label61,OnClick,Execute(SoundRecorder.exe)
AddDialogHandler>Dialog1,Label62,OnClick,Execute(psr.exe)
AddDialogHandler>Dialog1,Label63,OnClick,Execute(StikyNot.exe)
AddDialogHandler>Dialog1,Label64,OnClick,Execute(Journal.exe)
AddDialogHandler>Dialog1,Label65,OnClick,Execute(wmplayer.exe)
AddDialogHandler>Dialog1,Label66,OnClick,Execute(xpsrchvw.exe)
AddDialogHandler>Dialog1,Label67,OnClick,Execute(Narrator.exe)
AddDialogHandler>Dialog1,Label68,OnClick,Run(control /name Microsoft.DefaultPrograms)
AddDialogHandler>Dialog1,Label69,OnClick,Run(control /name Microsoft.WindowsUpdate)
AddDialogHandler>Dialog1,Label70,OnClick,Run(control /name Microsoft.WindowsFirewall)
AddDialogHandler>Dialog1,Label71,OnClick,Run(control /name Microsoft.WindowsDefender)
AddDialogHandler>Dialog1,Label72,OnClick,Run(control /name Microsoft.EaseOfAccessCenter)
AddDialogHandler>Dialog1,Label73,OnClick,Run(control /name Microsoft.ActionCenter)
AddDialogHandler>Dialog1,Label74,OnClick,Run(control /name Microsoft.ColorManagement)
AddDialogHandler>Dialog1,Label75,OnClick,Run(control /name Microsoft.CredentialManager)
AddDialogHandler>Dialog1,Label76,OnClick,Run(control /name Microsoft.Display)
AddDialogHandler>Dialog1,Label77,OnClick,Run(control /name Microsoft.ParentalControls)
AddDialogHandler>Dialog1,Label78,OnClick,Run(control /name Microsoft.FileHistory)
AddDialogHandler>Dialog1,Label79,OnClick,Run(control flashplayercplapp.cpl)
AddDialogHandler>Dialog1,Label80,OnClick,Run(control /name Microsoft.GetPrograms)
AddDialogHandler>Dialog1,Label81,OnClick,Run(control /name Microsoft.HomeGroup)
AddDialogHandler>Dialog1,Label82,OnClick,Run(control /name Microsoft.IndexingOptions)
AddDialogHandler>Dialog1,Label83,OnClick,Run(control /name Microsoft.Language)
AddDialogHandler>Dialog1,Label84,OnClick,Run(control /name Microsoft.LocationSettings)
AddDialogHandler>Dialog1,Label85,OnClick,Run(control /name Microsoft.NetworkAndSharingCenter)
AddDialogHandler>Dialog1,Label86,OnClick,Run(control netsetup.cpl)
AddDialogHandler>Dialog1,Label87,OnClick,Run(control /name Microsoft.NotificationAreaIcons)
AddDialogHandler>Dialog1,Label88,OnClick,Run(control /name Microsoft.OfflineFiles)
AddDialogHandler>Dialog1,Label89,OnClick,Run(control /name Microsoft.PenAndTouch)
AddDialogHandler>Dialog1,Label90,OnClick,Run(control /name Microsoft.PerformanceInformationAndTools)
AddDialogHandler>Dialog1,Label91,OnClick,Run(control /name Microsoft.Recovery)
AddDialogHandler>Dialog1,Label92,OnClick,Run(control /name Microsoft.RemoteAppAndDesktopConnections)
AddDialogHandler>Dialog1,Label93,OnClick,Run(control /name Microsoft.ScannersAndCameras)
AddDialogHandler>Dialog1,Label94,OnClick,Run(control /name Microsoft.Sound)
AddDialogHandler>Dialog1,Label95,OnClick,Run(control /name Microsoft.SpeechRecognition)
AddDialogHandler>Dialog1,Label96,OnClick,Run(control /name Microsoft.StorageSpaces)
AddDialogHandler>Dialog1,Label97,OnClick,Run(control /name Microsoft.SyncCenter)
AddDialogHandler>Dialog1,Label98,OnClick,Run(control /name Microsoft.System)
AddDialogHandler>Dialog1,Label99,OnClick,Run(control /name Microsoft.TabletPCSettings)
AddDialogHandler>Dialog1,Label100,OnClick,Run(control /name Microsoft.Taskbar)
AddDialogHandler>Dialog1,Label101,OnClick,Run(control /name Microsoft.TextToSpeech)
AddDialogHandler>Dialog1,Label102,OnClick,Run(control /name Microsoft.Troubleshooting)
AddDialogHandler>Dialog1,Label103,OnClick,Run(control /name Microsoft.UserAccounts)
AddDialogHandler>Dialog1,Label104,OnClick,Run(control /name Microsoft.BackupAndRestore)
AddDialogHandler>Dialog1,Label105,OnClick,Run(control)


Let>TotalDialogHandlers=105
SetDialogProperty>Dialog1,,BorderIcons,[biSystemMenu, biMinimize, biMaximize]
SetDialogProperty>Dialog1,,AutoScroll,True
SetDialogProperty>Dialog1,,WindowState,wsMaximized
SetDialogProperty>Dialog1,,Font,[fsBold]

AddTrayIcon>%TEMP_DIR%Default.ico,MyTrayIcon,Windows 8 System Shortcuts
AddTrayHandler>MyTrayIcon,OnMouseDown,ShowDialog1
ModTrayIcon>MyTrayIcon,Show Windows 8 System Shortcuts,,False

Gosub>MouseEnterHandlers
Gosub>MouseLeaveHandlers


Show>Dialog1

Label>Loop
Wait>0.0005
Goto>Loop




SRT>Run
Run>%Run_Var_1%
END>Run

SRT>Execute
ExecuteFile>%Execute_Var_1%
END>Execute

SRT>RunMyComputer
  Run>explorer.exe /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
END>RunMyComputer


SRT>Power
  ShutDownWindows>%Power_Var_1%
END>Power


SRT>MinimizeToTray
  SetDialogProperty>Dialog1,,Visible,False
  ModTrayIcon>MyTrayIcon,Show Windows 8 System Shortcuts,,True
END>MinimizeToTray


SRT>ShowDialog1
  SetDialogProperty>Dialog1,,Visible,True
  ModTrayIcon>MyTrayIcon,Show Windows 8 System Shortcuts,,False
END>ShowDialog1



SRT>DoMouseHover
  SetDialogObjectFont>Dialog1,Label%DoMouseHover_Var_1%,MS Sans Serif,8,3,255
END>DoMouseHover


SRT>DoMouseHoverExit
  SetDialogObjectFont>Dialog1,Label%DoMouseHover_Var_1%,MS Sans Serif,8,0,0
  SetDialogObjectFont>Dialog1,Label%DoMouseHover_Var_1%,MS Sans Serif,8,1,0
END>DoMouseHoverExit


SRT>MouseEnterHandlers

  Let>kME=0
  Repeat>kME
  Add>kME,1
  AddDialogHandler>Dialog1,Label%kME%,OnMouseEnter,DoMouseHover(%kME%)
  Until>kME,%TotalDialogHandlers%

END>MouseEnterHandlers


SRT>MouseLeaveHandlers

  Let>kML=0
  Repeat>kML
  Add>kML,1
  AddDialogHandler>Dialog1,Label%kML%,OnMouseLeave,DoMouseHoverExit(%kML%)
  Until>kML,%TotalDialogHandlers%

END>MouseLeaveHandlers


SRT>Exit
  Exit>1
END>Exit


SRT>CreateScheduledTask


Del>C:\Show_Desktop_@_Startup.xml
Year>TheYear
Month>TheMonth
Day>TheDay
Hour>HH
Min>MM
Sec>SS

WriteLn>C:\Show_Desktop_@_Startup.xml,r,<?xml version="1.0" encoding="UTF-16"?>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,<Task version="1.4" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task">
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  <RegistrationInfo>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Date>%TheYear%-%TheMonth%-%TheDay%T%HH%:%MM%:%SS%.6423055</Date>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Author>%COMPUTER_NAME%\%USER_NAME%</Author>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  </RegistrationInfo>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  <Triggers>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <LogonTrigger>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <Enabled>true</Enabled>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <UserId>%COMPUTER_NAME%\%USER_NAME%</UserId>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    </LogonTrigger>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  </Triggers>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  <Principals>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Principal id="Author">
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <UserId>%COMPUTER_NAME%\%USER_NAME%</UserId>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <LogonType>InteractiveToken</LogonType>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <RunLevel>HighestAvailable</RunLevel>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    </Principal>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  </Principals>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  <Settings>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <MultipleInstancesPolicy>IgnoreNew</MultipleInstancesPolicy>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <DisallowStartIfOnBatteries>false</DisallowStartIfOnBatteries>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <StopIfGoingOnBatteries>false</StopIfGoingOnBatteries>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <AllowHardTerminate>true</AllowHardTerminate>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <StartWhenAvailable>false</StartWhenAvailable>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <RunOnlyIfNetworkAvailable>false</RunOnlyIfNetworkAvailable>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <IdleSettings>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <StopOnIdleEnd>true</StopOnIdleEnd>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <RestartOnIdle>false</RestartOnIdle>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    </IdleSettings>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <AllowStartOnDemand>true</AllowStartOnDemand>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Enabled>true</Enabled>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Hidden>false</Hidden>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <RunOnlyIfIdle>false</RunOnlyIfIdle>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <DisallowStartOnRemoteAppSession>false</DisallowStartOnRemoteAppSession>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <UseUnifiedSchedulingEngine>false</UseUnifiedSchedulingEngine>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <WakeToRun>false</WakeToRun>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <ExecutionTimeLimit>PT1M</ExecutionTimeLimit>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Priority>7</Priority>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  </Settings>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  <Actions Context="Author">
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    <Exec>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,      <Command>explorer.exe</Command>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,    </Exec>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,  </Actions>
WriteLn>C:\Show_Desktop_@_Startup.xml,r,</Task>

Let>RP_WINDOWMODE=0
RUN>schtasks /create /tn "Show Desktop @ Startup" /xml "C:\Show_Desktop_@_Startup.xml" /f
Wait>1
Del>C:\Show_Desktop_@_Startup.xml

ExecuteFile>Taskschd.msc

END>CreateScheduledTask

DIVINELIVING · Post by **DIVINELIVING** » Sun Feb 03, 2013 2:44 am

Excellent dialog.. thanks for creating and sharing it! You are really good at this stuff!!! I just created my first macro.. got a long ways to go.. for sure... but you demonstrate the possibilities that can be achieved with MS.. thanks!

CyberCitizen · Post by **CyberCitizen** » Mon Feb 04, 2013 12:37 am

Nice Little Dialog, Except Shipping Tools Should Read Snipping Tools.

Rain · Post by **Rain** » Mon Feb 04, 2013 3:28 pm

Thanks Divine and Cyber.

Cyber, thanks for pointing it out. It's fixed. I was wondering why they called it shipping tools. I better get my eyes checked.

Monkster · Post by **Monkster** » Sun Jun 09, 2013 1:07 am

Thanks a bundle Rain, it's very useful, especially considering that today is the first day that I'm using Win8, which for now I'm calling 'The Beast' -- Win8 that is, not your script!

CyberCitizen · Post by **CyberCitizen** » Sun Jun 09, 2013 2:12 am

This one needs to be submitted for script of the month as well.

Monkster · Post by **Monkster** » Sun Jun 09, 2013 6:19 am

CyberCitizen wrote:This one needs to be submitted for script of the month as well.

Yes, I would certainly agree with that suggestion CyberCitizen!

armsys · Post by **armsys** » Tue Jun 11, 2013 3:55 am

CyberCitizen wrote:This one needs to be submitted for script of the month as well.

Definitely. RAIN's script is absolutely stunning and marvelous.

Rain · Post by **Rain** » Tue Jun 11, 2013 1:58 pm

Thank you guys, I really appreciate the vote. I rather somebody else gets picked for script of the month since I already won.

armsys · Post by **armsys** » Tue Jun 11, 2013 9:04 pm

Please remove this post. Sorry.