View Single Post
  #2  
Old 11-18-2003, 10:53 AM
HudsonKane HudsonKane is online now
Registered User
 
Join Date: 11-18-2003
Posts: 1
Bounds Checker

for devstudio 6...
we call msdev with /EX BoundsCheckerBuildAndExit
where that is the following macro
Sub BoundsCheckerBuildAndExit()
Application.Visible = False
ExitAppOnBuildFinish = -1
BoundsCheckerBuild
End Sub
sub BoundsCheckerBuild()
ChangeConfigToWin32BoundsChecker
Application.ExecuteCommand "BCBuild"
End Sub
Sub ChangeConfigToWin32BoundsChecker()
ChangeActiveConfiguration "Win32 BoundsChecker"
End Sub
Sub ChangeActiveConfiguration(NewConfigName)
'DESCRIPTION: Change the active configuration to the named one
' Look for a config with the specified name
i = 1
Do While i <= Application.ActiveProject.Configurations.Count
'''' Note that a configuration name is the FULL name of the
'''' configuration, in the format:
'''' ProjectName - ConfigurationName
'''' for example,
'''' Scribble - Win32 Debug
If ActiveProject.Configurations.Item(i).Name = ActiveProject.Name + " - " + NewConfigName Then
set ActiveConfiguration = ActiveProject.Configurations.Item(i)
i = ActiveProject.Configurations.Count + 1 ' e.g. break;
End If
i = i + 1
Loop
End Sub
Reply With Quote