Added auto enable and disable VR display

Author: r57zone

Library/README.RU.md

@@ -51,6 +51,9 @@ qW, qX, qY, qZ - кватернион.<br>
 Параметр **"ScreenIndex"** отвечает за номер дисплея. Например, 1 это основной дисплей, а 2 это VR шлем.
 
 
+Параметр **"ScreenControl"** отвечает за автоматическое включение и отключения VR дисплея. Включение опции - 1, выключение - 0.
+
+
 Параметр **"Scale"** отвечает за маштабирование изображения. Если параметр имеет значение "True", то изображение с длинной "UserWidth" и высотой "UserHeight" растягивается на весь дисплей "ScreenIndex". 
 Если параметр имеет значение "False", то изображение не маштабируется и отображается в центре окна, пустые области окна имеют черный фон. Параметр необходим для устранения слепых зон в VR шлеме.
 

Library/README.md

@@ -51,6 +51,9 @@ All parameters are in the registry branch **"HKEY_CURRENT_USER\Software\TrueOpen
 The **"ScreenIndex"** parameter is responsible for the display number. For example, 1 is the main display, and 2 is the VR headset.
 
 
+The **"ScreenControl"** parameter is responsible for the auto enable and disable VR display. Enable option - 1, disable - 0.
+
+
 The **"Scale"** parameter is responsible for scaling the image. If the parameter is set to "True", then the image with width "UserWidth" and height of "UserHeight" is stretched to the entire display "ScreenIndex".
 If the parameter is set to "False", the image is not scaled and displayed in the center of the window, empty areas of the window have a black background. The parameter is necessary to eliminate blind areas in the VR headset.
 

README.RU.md

@@ -12,7 +12,7 @@ TrueOpenVR - 
 
 - Для разработчиков драйверов VR устройств: [готовые и демострационные драйверы](https://github.com/TrueOpenVR/TrueOpenVR-Drivers).
 
-- Присылайте ваши исправления, патчи, демонстрационные примеры и так далее.
+- Присылайте ваши исправления, патчи, демонстрационные примеры, переводы и так далее.
 
 - Пишите ваши предложения или запросы новой функциональности через "Issue" или почту.
 
@@ -28,15 +28,14 @@ TrueOpenVR - 
 - Поддержка самодельных VR устройств.
 
 ## Планы на будущее:
-- Включение и выключение VR дисплея шлема, при открытии и закрытии TOVR приложения (опционально).
 
 - Создание быстрого VR плеера, VR просмотрщика фотографий и демонстрационной VR игры.
 
-- Поддержка VR шлемов (Oculus DK1, DK2, CV1, PS VR, HTC Vive, OSVR HDK и так далее).
+- Поддержка VR шлемов (PS VR, Oculus CV1, DK1, DK2, OSVR HDK, HTC Vive и так далее).
 
 - Поддержка трекеров (Aruco Paper, Point tracker и так далее) для самодельных VR шлемов.
 
-- Поддержка контроллеров (Razer Hydra, PS Move, Oculus, HTC Vive, Nolo, Daydream, Gear), а также разработка и поддержка "бумажного" контроллера (веб-камера + Aruco маркеры + Arduino или веб-камера + Aruco marker + Daydream).
+- Поддержка контроллеров (Razer Hydra, PS Move, Oculus, Nolo, HTC Vive, Daydream, Gear VR), а также разработка и поддержка "бумажного" контроллера (веб-камера + Aruco маркеры + Arduino или веб-камера + Aruco marker + Daydream).
 
 ## Загрузка
 >Версия для Windows 7, 8.1, 10

README.md

@@ -12,7 +12,7 @@ TrueOpenVR is an open VR standard, made in accordance with the concept of "Plug
 
 - For developers drivers for VR devices: [sample and ready drivers](https://github.com/TrueOpenVR/TrueOpenVR-Drivers).
 
-- Send your fixes, patches, samples, demos or etc.
+- Send your fixes, patches, samples, demos, translations or etc.
 
 - Write your proposals or feature requests through "Issue" or email.
 
@@ -28,15 +28,14 @@ TrueOpenVR is an open VR standard, made in accordance with the concept of "Plug
 - Support for DIY VR devices.
 
 ## Future plans:
-- Turn on and off VR headset display, when opening and closing the TOVR application (optional).
 
 - Create a fast VR player, VR photo viewer and VR game demo.
 
-- Support VR headsets (Oculus DK1, DK2, CV1, PS VR, HTC Vive, OSVR HDK and etc).
+- Support VR headsets (PS VR, Oculus CV1, DK1, DK2, OSVR HDK, HTC Vive and etc).
 
 - Trackers support (Aruco Paper, Point tracker and etc) for DIY VR headset.
 
-- Support controllers (Razer Hydra, PS Move, Oculus, HTC Vive, Nolo, Daydream, Gear), and the development and support of a "paper" controller (webcam + Aruco markers + Arduino or webcam + Aruco marker + Daydream).
+- Support controllers (Razer Hydra, PS Move, Oculus, Nolo, HTC Vive, Daydream, Gear VR), development and support of a "paper" controller (webcam + Aruco markers + Arduino or webcam + Aruco marker + Daydream).
 
 ## Download
 >Version for Windows 7, 8.1, 10

TOVR/C++/TOVR/TOVR.cpp

@@ -46,8 +46,43 @@ DLLEXPORT DWORD __stdcall SetControllerData(__in INT	dwIndex, __in DWORD	MotorSp
 DLLEXPORT DWORD __stdcall SetCentering(__in int dwIndex);
 
 HMODULE hDll;
+DWORD ScreenIndex;
+DWORD ScreenControl;
 
-void DriverAttach() {
+void ScreenEnable(int dwIndex)
+{
+	DISPLAY_DEVICE Display;
+	DEVMODE DevMode;
+
+	Display.cb = sizeof(DISPLAY_DEVICE);
+	EnumDisplayDevices(NULL, dwIndex, &Display, EDD_GET_DEVICE_INTERFACE_NAME);
+	EnumDisplaySettings((LPCSTR)Display.DeviceName, ENUM_REGISTRY_SETTINGS, &DevMode);
+	DevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT | DM_DISPLAYFREQUENCY | DM_DISPLAYFLAGS | DM_POSITION;
+	if (!(Display.StateFlags & DISPLAY_DEVICE_PRIMARY_DEVICE)) {
+		ChangeDisplaySettingsEx((LPCSTR)Display.DeviceName, &DevMode, 0, CDS_UPDATEREGISTRY | CDS_NORESET, NULL);
+		ChangeDisplaySettingsEx(NULL, NULL, NULL, NULL, NULL);
+	}
+}
+
+
+void ScreenDisable(int dwIndex)
+{
+	DISPLAY_DEVICE Display;
+	DEVMODE DevMode;
+	ZeroMemory(&DevMode, sizeof(DEVMODE));
+	
+	Display.cb = sizeof(DISPLAY_DEVICE);
+	DevMode.dmSize = sizeof(DEVMODE);
+	DevMode.dmBitsPerPel = 32;
+	DevMode.dmFields = DM_BITSPERPEL | DM_PELSWIDTH | DM_PELSHEIGHT | DM_DISPLAYFREQUENCY | DM_DISPLAYFLAGS | DM_POSITION;
+	EnumDisplayDevices(NULL, dwIndex, &Display, EDD_GET_DEVICE_INTERFACE_NAME);
+	if (!(Display.StateFlags & DISPLAY_DEVICE_PRIMARY_DEVICE)) {
+		ChangeDisplaySettingsEx((LPCSTR)Display.DeviceName, &DevMode, 0, CDS_UPDATEREGISTRY | CDS_NORESET, NULL);
+		ChangeDisplaySettingsEx(NULL, NULL, NULL, NULL, NULL);
+	}
+}
+
+void Init() {
 	CRegKey key;
 	TCHAR _driversPath[MAX_PATH];
 	TCHAR _driverName[MAX_PATH];
@@ -63,6 +98,10 @@ void DriverAttach() {
 			regSize = sizeof(_driversPath);
 			status = key.QueryStringValue(_T("Drivers"), _driversPath, &regSize);
 		}
+
+		key.QueryDWORDValue(_T("ScreenControl"), ScreenControl);
+		key.QueryDWORDValue(_T("ScreenIndex"), ScreenIndex);
+		ScreenIndex -= 1;
 	}
 	key.Close();
 
@@ -80,6 +119,9 @@ void DriverAttach() {
 				DriverGetControllersData = (_GetControllersData)GetProcAddress(hDll, "GetControllersData");
 				DriverSetControllerData = (_SetControllerData)GetProcAddress(hDll, "SetControllerData");
 				DriverSetCentering = (_SetCentering)GetProcAddress(hDll, "SetCentering");
+
+				if (ScreenControl == TRUE)
+					ScreenEnable(ScreenIndex);
 			}
 		}
 	}
@@ -90,14 +132,16 @@ BOOL APIENTRY DllMain(HMODULE hModule, DWORD  ul_reason_for_call, LPVOID lpReser
 	switch (ul_reason_for_call)
 	{
 		case DLL_PROCESS_ATTACH: {
-			DriverAttach();
+			Init();
 			break;
 		}
 
 		case DLL_PROCESS_DETACH: {
 			if (hDll != NULL) {
 				FreeLibrary(hDll);
 				hDll = nullptr;
+				if (ScreenControl == TRUE)
+					ScreenDisable(ScreenIndex);
 			}
 			break;
 		}

TOVR/Delphi/TOVR.dpr

@@ -36,6 +36,8 @@ end;
 
 var
   DriverPath: string;
+  ScreenIndex: integer;
+  ScreenControl: boolean;
   DllHandle: HMODULE;
 
   DriverGetHMDData: function(out myHMD: THMD): DWORD; stdcall;
@@ -77,7 +79,43 @@ begin
     Result:=0;
 end;
 
-procedure GetDriverPath;
+const
+  EDD_GET_DEVICE_INTERFACE_NAME = 1;
+  ENUM_REGISTRY_SETTINGS = DWORD(-2);
+
+procedure ScreenEnable(dwIndex: integer);
+var
+  Display: TDisplayDevice;
+  DevMode: TDevMode;
+begin
+  Display.cb:=SizeOf(TDisplayDevice);
+  EnumDisplayDevices(nil, dwIndex, Display, EDD_GET_DEVICE_INTERFACE_NAME);
+  EnumDisplaySettings(PChar(@Display.DeviceName[0]), ENUM_REGISTRY_SETTINGS, DevMode);
+  DevMode.dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY or DM_DISPLAYFLAGS or DM_POSITION;
+  if (Display.StateFlags and DISPLAY_DEVICE_PRIMARY_DEVICE) <> DISPLAY_DEVICE_PRIMARY_DEVICE then begin
+    ChangeDisplaySettingsEx(PChar(@Display.DeviceName[0]), DevMode, 0, CDS_UPDATEREGISTRY or CDS_NORESET, nil);
+    ChangeDisplaySettingsEx(nil, PDevMode(nil)^, 0, 0, nil);
+  end;
+end;
+
+procedure ScreenDisable(dwIndex: integer);
+var
+  Display: TDisplayDevice;
+  DevMode: TDevMode;
+begin
+  Display.cb:=SizeOf(TDisplayDevice);
+  EnumDisplayDevices(nil, dwIndex, Display, EDD_GET_DEVICE_INTERFACE_NAME);
+  ZeroMemory(@DevMode, SizeOf(TDevMode));
+  DevMode.dmSize:=SizeOf(TDevMode);
+  DevMode.dmBitsPerPel:=32;
+  DevMode.dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY or DM_DISPLAYFLAGS or DM_POSITION;
+  if (Display.StateFlags and DISPLAY_DEVICE_PRIMARY_DEVICE) <> DISPLAY_DEVICE_PRIMARY_DEVICE then begin
+    ChangeDisplaySettingsEx(PChar(@Display.DeviceName[0]), DevMode, 0, CDS_UPDATEREGISTRY or CDS_NORESET, nil);
+    ChangeDisplaySettingsEx(nil, PDevMode(nil)^, 0, 0, nil);
+  end;
+end;
+
+procedure GetRegValues;
 var
   Reg: TRegistry;
 begin
@@ -87,7 +125,9 @@ begin
     if FileExists(Reg.ReadString('Drivers') + Reg.ReadString('Driver')) then
       DriverPath:=Reg.ReadString('Drivers') + Reg.ReadString('Driver')
     else
-     DriverPath:='';
+      DriverPath:='';
+    ScreenIndex:=Reg.ReadInteger('ScreenIndex') - 1;
+    ScreenControl:=Reg.ReadBool('ScreenControl');
   end;
   Reg.CloseKey;
   Reg.Free;
@@ -98,18 +138,24 @@ begin
   case Reason of
     DLL_PROCESS_ATTACH:
       begin
-        GetDriverPath;
+        GetRegValues;
         if DriverPath <> '' then begin
           DllHandle:=LoadLibrary(PChar(DriverPath));
           @DriverGetHMDData:=GetProcAddress(DllHandle, 'GetHMDData');
           @DriverGetControllersData:=GetProcAddress(DllHandle, 'GetControllersData');
           @DriverSetControllerData:=GetProcAddress(DllHandle, 'SetControllerData');
           @DriverSetCentering:=GetProcAddress(DllHandle, 'SetCentering');
+          if (ScreenControl) and (ScreenIndex <> 0) then
+            ScreenEnable(ScreenIndex);
         end;
       end;
 
     DLL_PROCESS_DETACH:
-      FreeLibrary(DllHandle);
+      if DllHandle <> 0 then begin
+        FreeLibrary(DllHandle);
+        if (ScreenControl) and (ScreenIndex <> 0) then
+          ScreenDisable(ScreenIndex);
+      end;
   end;
 end;