scrrun: Moved script extensions registration to scrrun.dll.

dlls/jscript/jscript.rgs

@@ -116,7 +116,6 @@ HKCR
         OLEScript
     }
 
-    ForceRemove '.js' = s 'JSFile'
     ForceRemove JSFile = s 'JScript Script File'
     {
         ScriptEngine = s 'JScript'

dlls/scrrun/scrrun.c

@@ -21,10 +21,15 @@
 
 #include "windef.h"
 #include "winbase.h"
+#include "ole2.h"
+#include "rpcproxy.h"
+
 #include "wine/debug.h"
 
 WINE_DEFAULT_DEBUG_CHANNEL(scrrun);
 
+static HINSTANCE scrrun_instance;
+
 BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
 {
     TRACE("%p, %u, %p\n", hinst, reason, reserved);
@@ -35,6 +40,7 @@ BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
             return FALSE;    /* prefer native version */
         case DLL_PROCESS_ATTACH:
             DisableThreadLibraryCalls( hinst );
+            scrrun_instance = hinst;
             break;
         case DLL_PROCESS_DETACH:
             break;
@@ -47,8 +53,8 @@ BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
  */
 HRESULT WINAPI DllRegisterServer(void)
 {
-    FIXME("\n");
-    return S_OK;
+    TRACE("()\n");
+    return __wine_register_resources(scrrun_instance);
 }
 
 /***********************************************************************
@@ -56,6 +62,6 @@ HRESULT WINAPI DllRegisterServer(void)
  */
 HRESULT WINAPI DllUnregisterServer(void)
 {
-    FIXME("\n");
-    return S_OK;
+    TRACE("()\n");
+    return __wine_unregister_resources(scrrun_instance);
 }

dlls/scrrun/scrrun.rc

@@ -16,6 +16,9 @@
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  */
 
+/* @makedep: scrrun.rgs */
+1 WINE_REGISTRY scrrun.rgs
+
 #define WINE_FILEDESCRIPTION_STR "Wine ScrRun dll"
 #define WINE_FILENAME_STR "scrrun.dll"
 #define WINE_FILEVERSION 5,8,7600,16385

dlls/scrrun/scrrun.rgs

+HKCR
+{
+    ForceRemove '.js' = s 'JSFile'
+    ForceRemove '.vbs' = s 'VBSFile'
+}

dlls/vbscript/vbscript.rgs

@@ -56,7 +56,6 @@ HKCR
     {
         OLEScript
     }
-    ForceRemove '.vbs' = s 'VBSFile'
     ForceRemove VBSFile = s 'VBScript Script File'
     {
         ScriptEngine = s 'VBScript'