spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

C-/C++-Quelltext

// Microsoft Visual C++ generated resource script.

//

#include "resource.h"
#include "VersionNo.h"  //  <----- hier ist eine Änderung

.
.
.
/////////////////////////////////////////////////////////////////////////////

//

// Version

//


VS_VERSION_INFO VERSIONINFO
 FILEVERSION FILEVER // <--- 1,0,0,0 durch FILEVER ersetzen

 PRODUCTVERSION PRODUCTVER  // <--- 1,0,0,0 durch PRODUCTVER ersetzen

 FILEFLAGSMASK 0x17L
#ifdef _DEBUG
 FILEFLAGS 0x1L
#else
 FILEFLAGS 0x0L
#endif
 FILEOS 0x4L
 FILETYPE 0x1L
 FILESUBTYPE 0x0L
BEGIN
    BLOCK "StringFileInfo"
    BEGIN
        BLOCK "040704b0"
        BEGIN
            VALUE "FileDescription", "Your App Application"
            VALUE "FileVersion", STRFILEVER                     // <--- 1,0,0,0 durch STRFILEVER ersetzen

            VALUE "InternalName", "Your App"
            VALUE "LegalCopyright", "Copyright (C) 2005"
            VALUE "OriginalFilename", "Your App.exe"
            VALUE "ProductName", " Your AppApplication"
            VALUE "ProductVersion", STRPRODUCTVER     // <--- 1,0,0,0 durch STRPRODUCTVER ersetzen

        END
    END
    BLOCK "VarFileInfo"
    BEGIN
        VALUE "Translation", 0x407, 1200
    END
END

#endif    // German (Germany) resources

/////////////////////////////////////////////////////////////////////////////

C-/C++-Quelltext

#define FILEVER          1, 0, 0, 3
#define PRODUCTVER       1, 0, 0, 3
#define STRFILEVER       "1, 0, 0, 3\0"
#define STRPRODUCTVER    "1, 0, 0, 3\0"
                    //<-- Blank Line

C-/C++-Quelltext

Option Strict Off
Option Explicit Off
Imports EnvDTE
Imports System.Diagnostics

Public Module EnvironmentEvents

#Region "Automatically generated code, do not modify"
'Automatically generated code, do not modify
'Event Sources Begin
    <System.ContextStaticAttribute()> Public WithEvents DTEEvents As EnvDTE.DTEEvents
    <System.ContextStaticAttribute()> Public WithEvents DocumentEvents As EnvDTE.DocumentEvents
    <System.ContextStaticAttribute()> Public WithEvents WindowEvents As EnvDTE.WindowEvents
    <System.ContextStaticAttribute()> Public WithEvents TaskListEvents As EnvDTE.TaskListEvents
    <System.ContextStaticAttribute()> Public WithEvents FindEvents As EnvDTE.FindEvents
    <System.ContextStaticAttribute()> Public WithEvents OutputWindowEvents As EnvDTE.OutputWindowEvents
    <System.ContextStaticAttribute()> Public WithEvents SelectionEvents As EnvDTE.SelectionEvents
    <System.ContextStaticAttribute()> Public WithEvents BuildEvents As EnvDTE.BuildEvents
    <System.ContextStaticAttribute()> Public WithEvents SolutionEvents As EnvDTE.SolutionEvents
    <System.ContextStaticAttribute()> Public WithEvents SolutionItemsEvents As EnvDTE.ProjectItemsEvents
    <System.ContextStaticAttribute()> Public WithEvents MiscFilesEvents As EnvDTE.ProjectItemsEvents
    <System.ContextStaticAttribute()> Public WithEvents DebuggerEvents As EnvDTE.DebuggerEvents
'Event Sources End
'End of automatically generated code
#End Region

    Private Sub BuildEvents_OnBuildDone(ByVal Scope As EnvDTE.vsBuildScope, ByVal Action As EnvDTE.vsBuildAction) Handles BuildEvents.OnBuildDone
        '       If numError <> 0 Then
        '      Exit Sub
        '     End If
        Dim projs As System.Array
        Dim proj As Project
        Dim fileNumber, i
        Dim TextLine
        Dim SubStr

        projs = DTE.ActiveSolutionProjects()
        If projs.Length > 0 Then
            proj = CType(projs.GetValue(0), EnvDTE.Project)
            Dim full_path
            full_path = GetProjectDir(proj.FullName)
            full_path = full_path & "versionno.h"

            fileNumber = FreeFile()
            FileOpen(fileNumber, full_path, OpenMode.Input)
            TextLine = LineInput(fileNumber)
            FileClose(fileNumber)

            SubStr = Right(TextLine, 10)
            Dim Conv = SubStr(0) & SubStr(3) & SubStr(6) & SubStr(9)
            i = CLng(Conv) + 1


            Dim FormNumber
            If i > 9999 Then
                FormNumber = "0, 0, 0, 0"
            Else

                Dim Number = CStr(i)
                FormNumber = Number(0) & ", " & Number(1) & ", " & Number(2) & ", " & Number(3)
            End If

            Dim Textend = "\0"""
            Dim Text = """"
            Dim TextOut1 = "#define FILEVER          " & FormNumber
            Dim TextOut2 = "#define PRODUCTVER       " & FormNumber
            Dim TextOut3 = "#define STRFILEVER       " & Text & FormNumber & Textend
            Dim TextOut4 = "#define STRPRODUCTVER    " & Text & FormNumber & Textend

            '          Kill(full_path)

            fileNumber = FreeFile()
            FileOpen(fileNumber, full_path, OpenMode.Output)
            PrintLine(fileNumber, TextOut1)
            PrintLine(fileNumber, TextOut2)
            PrintLine(fileNumber, TextOut3)
            PrintLine(fileNumber, TextOut4)
            PrintLine(fileNumber, " ")
            FileClose(fileNumber)

        End If


       
    End Sub
    Function GetProjectDir(ByVal FullName)


        Dim proj_path
        proj_path = Split(StrReverse(FullName), "\", -1, 1)
        Dim count
        count = UBound(proj_path)
        Dim full_path
        full_path = ""
        Dim i
        For i = 1 To count
            full_path = full_path & "\" & proj_path(i)
        Next
        GetProjectDir = StrReverse(full_path)
    End Function
End Module