Gasanov.net

Microsoft Certified Solution Developer

RestartShell Utility

This utility restarts Windows Shell (Explorer). It may be useful when developing Windows Shell extensions and system-wide hooks. By one click you achieve log off and log in effect. Utility can be used in post-build events.

 
Download - RestartShell.zip (5 KB)
 


 

Visual Studio 2005 Command Prompt

To set environment for using Microsoft Visual Studio 2005 x86 tools automatically when starting Windows command prompt modify registry as shown below:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor]
AutoRun="%VS80COMNTOOLS%\vsvars32.bat">nul

or download text file from here, change its extension to REG and run. It will also add "Command Prompt" command to folder's context menu.

 

 

Assembly command extension

After installing AssemblyCmdX you will be able to explore assembly cache (GAC) like regular file system folder by simply launching "assembly" with "/e" switch. Utility also automatically resizes cache viewer columns.

 
Download - AssemblyCmdXSetup.zip (161 KB)
 

 

Collapse Solution Items Visual Studio Macro

One more CollapseAll macro? No, this one works recursively, collapsing solution subitems also.

Imports System
Imports EnvDTE
Imports EnvDTE80

Public Module Collapse
    Public Sub CollapseAll()
        Dim ProjectWindow As Window
        Dim SolutionExplorer As UIHierarchy

        ProjectWindow = DTE.Windows.Item(Constants.vsext_wk_SProjectWindow)
        SolutionExplorer = ProjectWindow.Object()

        If (SolutionExplorer.UIHierarchyItems.Count = 0) Then
            Return
        End If

        Dim SolutionRoot As UIHierarchyItem

        SolutionRoot = SolutionExplorer.UIHierarchyItems.Item(1)

        CollapseOne(SolutionRoot)

        SolutionRoot.Select(vsUISelectionType.vsUISelectionTypeSelect)
    End Sub

    Private Sub CollapseOne(ByVal Item As UIHierarchyItem)
        For Each SubItem As UIHierarchyItem In Item.UIHierarchyItems
            If SubItem.UIHierarchyItems.Expanded Then
                SubItem.UIHierarchyItems.Expanded = False
                CollapseOne(SubItem)
            End If
        Next
    End Sub
End Module


Copyright © 2002-2015 Gasanov.net