Allow setting screenres files file ending #138

Reading the screenres file ending from the registry.
There is no GUI to edit this!

Author: JockeJarre

b2s_screenresidentifier/b2s_screenresidentifier/formPlayfield.vb

@@ -3,14 +3,26 @@ Imports System.Drawing
 Imports System.Windows.Forms
 Imports System.IO
 Imports System.Windows.Forms.VisualStyles.VisualStyleElement
+Imports Microsoft.Win32
 
 Public Class formPlayfield
 
     Private formBackglass As formBackglass = Nothing
     Private formBackground As formBackground = Nothing
     Private formDMD As formDMD = Nothing
+    Public Shared Function SafeReadRegistry(ByVal keyname As String, ByVal valuename As String, ByVal defaultvalue As String) As String
+        '    Public Property GlobalFileName As String = SafeReadRegistry("Software\B2S", "B2SScreenResFileNameOverride", "ScreenRes.txt")
+
+        Try
+            Return CStr(Registry.CurrentUser.OpenSubKey(keyname).GetValue(valuename, defaultvalue))
+        Catch ex As Exception
+            Return defaultvalue
+        End Try
+    End Function
 
     Private Sub formPlayfield_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        Dim B2SResFileEnding As String = SafeReadRegistry("Software\B2S", "B2SResFileEndingOverride", ".res")
+
         formDMD = New formDMD
         formDMD.formBackglass = formBackglass
 
@@ -25,8 +37,8 @@ Public Class formPlayfield
             ' If started from B2SBackglassServer either directly (PureEXE=true) or as backglass through VPX (false) or from explorer PureEXE = Nothing
             If My.Application.CommandLineArgs.Count > 1 Then PureEXE = My.Application.CommandLineArgs.ElementAt(1).Equals("-pureexe=true")
             ' In case a Table or backglass file is thrown on the executable
-            If Not Path.GetExtension(FileName).ToLower().Equals(".res") And Not Path.GetExtension(FileName).ToLower().Equals(".txt") And Not FileName.ToLower().Equals(GlobalFileName.ToLower()) Then
-                FileName = Path.ChangeExtension(FileName, ".res")
+            If Not Path.GetExtension(FileName).ToLower().Equals(B2SResFileEnding) And Not Path.GetExtension(FileName).ToLower().Equals(".txt") And Not FileName.ToLower().Equals(GlobalFileName.ToLower()) Then
+                FileName = Path.ChangeExtension(FileName, B2SResFileEnding)
             End If
 
             If File.Exists(FileName) Then

b2sbackglassserver/b2sbackglassserver/B2SInit.cmd

@@ -1,8 +1,10 @@
 @echo off
 echo %0 %* > "%~dp0B2SWindowPunch.log"
 setlocal EnableDelayedExpansion
+set B2SResFileEndingOverride=.res
+for /f "tokens=3" %%a in ('reg query "HKCU\Software\B2S"  /V B2SResFileEndingOverride  ^|findstr /ri "REG_SZ"') do set B2SResFileEndingOverride=%%a
 
-set "resfile=%cd%\%~1.res"
+set "resfile=%cd%\%~1%B2SResFileEndingOverride%"
 set "GameName=%~2"
 
 REM If started from explorer, quit

b2sbackglassserver/b2sbackglassserver/Classes/B2SScreen.vb

@@ -105,7 +105,7 @@ Public Class B2SScreen
         debugLog.WriteLogEntry("B2SScreen.ReadB2SSettingsFromFile Start Search ScreenRes")
 
         Try
-            Dim loadFileNames() As String = {IO.Path.Combine(B2SData.TableFileName & ".res"),    ' .\TableName.res
+            Dim loadFileNames() As String = {IO.Path.Combine(B2SData.TableFileName & B2SSettings.B2SResFileEnding),    ' .\TableName.res
                                              IO.Path.Combine(B2SData.TableFileName, B2SSettings.B2SScreenResFileName),   ' .\TableName\ScreenRes.txt
                                              B2SSettings.B2SScreenResFileName,                                           ' .\ScreenRes.txt
                                              IO.Path.Combine(Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location), B2SSettings.B2SScreenResFileName)' B2SFolder\ScreenRes.txt

b2sbackglassserver/b2sbackglassserver/Classes/B2SSettings.vb

@@ -40,6 +40,7 @@ Public Class B2SSettings
 
     Private Const settingsFilename As String = "B2STableSettings.xml"
     Public Shared Property B2SScreenResFileName As String = SafeReadRegistry("Software\B2S", "B2SScreenResFileNameOverride", "ScreenRes.txt")
+    Public Shared Property B2SResFileEnding As String = SafeReadRegistry("Software\B2S", "B2SResFileEndingOverride", ".res")
     Public Shared Property B2STableSettingsExtendedPath() As Boolean = SafeReadRegistry("Software\B2S", "B2STableSettingsExtendedPath", "0") = "1"
     Public Shared Property B2SWindowPunchActive() As Boolean = SafeReadRegistry("Software\B2S", "B2SWindowPunchActive", "0") = "1"
     Public Shared Property B2SDebugLog() As Boolean = SafeReadRegistry("Software\B2S", "B2SDebugLog", "0") = "1"

b2sbackglassserver/b2sbackglassserver/Forms/formSettings.vb

@@ -498,7 +498,7 @@ Public Class formSettings
         Dim B2S_Identifier As String = IO.Path.Combine(Application.StartupPath, "B2S_ScreenResIdentifier.exe")
 #End If
         If IO.File.Exists(B2S_Identifier) Then
-            pi.Arguments = """" & B2SData.TableFileName & ".res" & """"
+            pi.Arguments = """" & B2SData.TableFileName & B2SSettings.B2SResFileEnding & """"
             pi.FileName = B2S_Identifier
 
             p.StartInfo = pi

b2sbackglassserverregisterapp/ScreenResTemplates.cmd

@@ -1,5 +1,8 @@
 @echo off
 set "restemplate=%~1"
-set "resfile=%~dpn2.res"
+set B2SResFileEndingOverride=.res
+for /f "tokens=3" %%a in ('reg query "HKCU\Software\B2S"  /V B2SResFileEndingOverride  ^|findstr /ri "REG_SZ"') do set B2SResFileEndingOverride=%%a
+
+set "resfile=%~dpn2%B2SResFileEndingOverride%"
 
 copy "%~dp0%restemplate%" "%resfile%"

b2sbackglassserverregisterapp/b2sbackglassserverregisterapp/formBackglassServerRegApp.vb

@@ -3,7 +3,15 @@ Imports System.IO
 Imports System.Security.Principal
 
 Public Class formBackglassServerRegApp
+    Public Shared Function SafeReadRegistry(ByVal keyname As String, ByVal valuename As String, ByVal defaultvalue As String) As String
+        '    Public Property GlobalFileName As String = SafeReadRegistry("Software\B2S", "B2SScreenResFileNameOverride", "ScreenRes.txt")
 
+        Try
+            Return CStr(Registry.CurrentUser.OpenSubKey(keyname).GetValue(valuename, defaultvalue))
+        Catch ex As Exception
+            Return defaultvalue
+        End Try
+    End Function
 
     Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
         If Not IsAdmin() Then
@@ -117,7 +125,7 @@ Public Class formBackglassServerRegApp
 
         If CommandSilent Or (dialogResult = DialogResult.Yes) Or (dialogResult = DialogResult.No) Then
             Dim rkReg As RegistryKey = Registry.ClassesRoot
-
+            Dim B2SResFileEnding As String = SafeReadRegistry("Software\B2S", "B2SResFileEndingOverride", ".res")
 
             ' Clean old registry for the ScreenRes path and only if Yes is choosen it is regenerated.
 
@@ -129,7 +137,7 @@ Public Class formBackglassServerRegApp
                 rkReg.DeleteSubKeyTree("b2sserver.directb2s\shell", False)
             End If
 
-            rkReg.DeleteSubKeyTree(".res", False) ' Do not delete this one?
+            rkReg.DeleteSubKeyTree(B2SResFileEnding, False) ' Do not delete this one?
             rkReg.DeleteSubKeyTree("b2sserver.res", False)
 
             Using sysFileKey As RegistryKey = rkReg.OpenSubKey("SystemFileAssociations", True)
@@ -151,7 +159,7 @@ Public Class formBackglassServerRegApp
                         End Using
 
                         ' Add res file context menu for double click and right click -> Edit ScreenRes file
-                        rkReg.CreateSubKey(".res").SetValue("", "b2sserver.res")
+                        rkReg.CreateSubKey(B2SResFileEnding).SetValue("", "b2sserver.res")
                         ' Add New -> B2S Server ScreenRes file (new).res  Context menu
                         rkReg.CreateSubKey(".res\b2sserver.res\ShellNew").SetValue("Command", """" & IO.Path.Combine(Path.GetDirectoryName(Application.ExecutablePath()), "B2S_ScreenResIdentifier.exe") & """ ""%1""")
                         Using resReg As RegistryKey = rkReg.CreateSubKey("b2sserver.res")
@@ -160,7 +168,7 @@ Public Class formBackglassServerRegApp
                         End Using
 
                         If Directory.Exists("ScreenResTemplates") Then
-                            Dim sFiles() As String = Directory.GetFiles("ScreenResTemplates", "*.res")
+                            Dim sFiles() As String = Directory.GetFiles("ScreenResTemplates", "*" + B2SResFileEnding)
                             'And then add it in a Label in the way you want
                             If sFiles.Length > 0 Then
                                 Using b2stoolstoplevel As RegistryKey = sysFileKey.CreateSubKey(".directb2s\shell\B2SServer")