Как создать макрос VS2008 для изменения настроек проекта C ++?

Question

Я хочу написать макрос Visual Studio, который отключает оптимизацию для данного проекта C ++.У кого-нибудь есть пример кода для изменения настроек проекта?И если предположить, что настройки проекта представлены как своего рода словарь значений, каковы ключи и значения значений для оптимизаций C ++ и компоновщика проекта?

Answer 1

Модель проекта Visual C ++:

http://msdn.microsoft.com/en-us/library/2eydyk57.aspx

Какой-то взломанный код макроса:

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports Microsoft.VisualStudio.VCProjectEngine
Imports System.Text


Public Module RecordingModule

    Sub DisableOptimizationsInAllProjectsReleaseWin32()
        For i = 1 To DTE.Solution.Projects.Count
            Dim proj As Object = DTE.Solution.Projects.Item(i).Object
            On Error Resume Next
            Dim prj As VCProject = CType(proj, Microsoft.VisualStudio.VCProjectEngine.VCProject)
            If Not prj Is Nothing Then
                Dim cfgs As IVCCollection = CType(prj.Configurations, Microsoft.VisualStudio.VCProjectEngine.IVCCollection)

                For c = 1 To cfgs.Count
                    Dim cfg As VCConfiguration = CType(cfgs.Item(c), Microsoft.VisualStudio.VCProjectEngine.VCConfiguration)
                    If cfg.Name = "Release|Win32" Then
                        Dim tool As VCCLCompilerTool = CType(cfg.Tools("VCCLCompilerTool"), Microsoft.VisualStudio.VCProjectEngine.VCCLCompilerTool)
                        If Not tool Is Nothing Then tool.Optimization = optimizeOption.optimizeDisabled

                        Dim linker As VCLinkerTool = CType(cfg.Tools("VCLinkerTool"), Microsoft.VisualStudio.VCProjectEngine.VCLinkerTool)
                        If Not linker Is Nothing Then
                            linker.EnableCOMDATFolding = optFoldingType.optFoldingDefault
                            linker.LinkTimeCodeGeneration = LinkTimeCodeGenerationOption.LinkTimeCodeGenerationOptionDefault
                            linker.OptimizeReferences = optRefType.optReferencesDefault
                            linker.InlineFunctionExpansion = "0"
                            linker.EnableIntrinsicFunctions = "false"
                            linker.FavorSizeOrSpeed = "0"
                            linker.WholeProgramOptimization = "false"

                        End If
                        Exit For
                    End If
                Next
            End If
        Next
    End Sub
End Module

Answer 2

Модифицированный код из ответа @mackenir - для текущего проекта:

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports System.Text
Imports Microsoft.VisualStudio.VCProjectEngine
' Add Reference to Microsoft.VisualStudio.VCProjectEngine: Project > Add Refrence

Public Module Build

Sub CheckBuild()

    Dim Prj As Object = DTE.ActiveSolutionProjects(0).Object
    If Prj Is Nothing Then Return
    Dim VPrj As VCProject = CType(Prj, Microsoft.VisualStudio.VCProjectEngine.VCProject)
    If VPrj Is Nothing Then Return
    Dim Cfg As VCConfiguration = CType(VPrj.Configurations.Item("Debug|x64"), Microsoft.VisualStudio.VCProjectEngine.VCConfiguration)
    If Cfg Is Nothing Then Return
    Dim CTool As VCCLCompilerTool = CType(Cfg.Tools("VCCLCompilerTool"), Microsoft.VisualStudio.VCProjectEngine.VCCLCompilerTool)
    If CTool Is Nothing Then Return
    Dim LTool As VCLinkerTool = CType(Cfg.Tools("VCLinkerTool"), Microsoft.VisualStudio.VCProjectEngine.VCLinkerTool)
    If LTool Is Nothing Then Return

    CTool.DebugInformationFormat = debugOption.debugDisabled
    LTool.GenerateDebugInformation = "false"
    LTool.OptimizeReferences = optRefType.optNoReferences
    LTool.EnableCOMDATFolding = optFoldingType.optNoFolding

    ExecuteCommand("Build.BuildSelection")

End Sub