Windows 10 Graal Editor Workaround

[fowlplay4]

Due to changes Microsoft made to system files compatibility between GraalEditor.exe and Windows 10 was broken.

After some playing around I found it was possible to work-around the changes and stop GraalEditor from loading the wrong DLLs (d2d1.dll, d3d11.dll, iertutil.dll) which cause the crash on startup and issues with the file dialogs/browser.

I've improved on my original fix and created an AutoIT script and wrapper exe that does the process much more seamlessly.

Install Instructions:

1. Download GraalEditorW10.zip
2. Extract GraalEditorW10.exe to your Graal folder
3. Right-click GraalEditorW10.exe and Run As Administrator
4. Select your GraalEditor.exe when prompted
5. Click OK to the prompt indicating changes were made to system files

After installing you no longer need to run GraalEditorW10.exe as an Administrator unless it refuses to work properly.

Open With Configuration Instructions:

1. Right-click a level file.
2. Open With > Choose more apps
3. Check the box indicating to always open with this app
4. Select 'more apps' and scroll down to the bottom
5. Choose another app and find and select GraalEditorW10.exe

How it works:

1. GraalEditorW10.exe is an exe wrapper for an AutoIT script below
2. Checks and adjusts permissions of system files so they can't be accessed before editor is started
3. Kicks off the process to start the editor
4. Waits for the editor to close
5. Adjusts permissions back to allow other applications to access them

The only potential issue is if you have another application that requires those dlls while running the editor but in my experience I've yet to run into such a scenario.

If any future Windows updates make changes to the specified system files, you refresh/reinstall, or if you move your Graal folder to a different computer just re-install the fix by running it as an Administrator.

GraalEditorW10.au3 Source

PHP Code:

; Declare Functions

Func EnvWrite($key_var, $key_val) 
  $result = RegWrite("HKEY_CURRENT_USER\Environment", $key_var, "REG_SZ", $key_val)
  If $result = 1 Then
      
  EndIf
EndFunc

Func EnvRead($key_var)
  Return RegRead("HKEY_CURRENT_USER\Environment", $key_var)
EndFunc

Func GetFileName($sFilePath)
    If Not IsString($sFilePath) Then
        Return SetError(1, 0, -1)
    EndIf
    
    Local $FileName = StringRegExpReplace($sFilePath, "^.*\\", "")
    
    Return $FileName
EndFunc

Func GetOwner($file)
    Local $computer = "."
    Local $wmi = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $computer & "\root\cimv2")
 
    Dim $res
    $res = $wmi.ExecQuery("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & $file & "'} WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
 
    For $val In $res
        Return $val.AccountName
    Next
EndFunc

; Check for GraalEditor Environment Variable
; Force user to select their GraalEditor.exe
If EnvRead("GRAALEDITOR") == "" Or isAdmin() Or Not FileExists(EnvRead("GRAALEDITOR")) Then
  $editorpath = FileOpenDialog("Select your GraalEditor.exe", @ScriptDir, "Applications (*.exe)|All (*.*)")
  EnvWrite("GRAALEDITOR", $editorpath)
Else
  $editorpath = EnvRead("GRAALEDITOR")
EndIf

; Pull Filename from GraalEditor fullpath
$editor = GetFileName($editorpath)

; Determine System Folder to Target
If FileExists(EnvGet("windir") & "\SysWOW64\d2d1.dll") Then
  $sysfolder = EnvGet("windir") & "\SysWOW64\"
Else
  $sysfolder = EnvGet("windir") & "\system32\"
EndIf

; Verify Ownership of System Files OR if running as administrator
If isAdmin() Or Not GetOwner($sysfolder & "d2d1.dll") == EnvGet("username") Then

  If Not isAdmin() Then
  
    MsgBox(0, "Error", "Re-run this as Administrator in order to make proper changes to system file permissions.")
  
  Else
  
    RunWait("takeown /F " & $sysfolder & "d2d1.dll", "", @SW_HIDE)
    RunWait("takeown /F " & $sysfolder & "d3d11.dll", "", @SW_HIDE)
    RunWait("takeown /F " & $sysfolder & "iertutil.dll", "", @SW_HIDE)
    
    MsgBox(0, "Success", "Ownership of system files has been updated! You no longer need to run this as an administrator.")

  EndIf

EndIf

; Deny Current User Access to System Files
RunWait("icacls " & $sysfolder & "d2d1.dll /Q /deny " & EnvGet("username") & ":(F)", "", @SW_HIDE)
RunWait("icacls " & $sysfolder & "d3d11.dll /Q /deny " & EnvGet("username") & ":(F)", "", @SW_HIDE)
RunWait("icacls " & $sysfolder & "iertutil.dll /Q /deny " & EnvGet("username") & ":(F)", "", @SW_HIDE)

; Check for Passed Arguments (to support open with functionality)
If $CmdLine[0] > 0 Then

  $pid = Run('"' & @ScriptDir & "\" & $editor & '" ' & $CmdLine[1])

Else

  $pid = Run('"' & @ScriptDir & "\" & $editor & '"')

EndIf

; Wait for GraalEditor to Close
While ProcessExists($pid)
  ; If error window detected just close the process for the user rather than force them to do it through task manager
  $spid = WinGetProcess("Error")
  If $spid == $pid Then
    ProcessClose($pid)
  EndIf
  Sleep(1000)
WEnd

; Re-allow access to system files just in case other applications use them
If Not ProcessExists($editor) Then

  RunWait("icacls " & $sysfolder & "d2d1.dll /Q /grant " & EnvGet("username") & ":(F)", "", @SW_HIDE)
  RunWait("icacls " & $sysfolder & "d3d11.dll /Q /grant " & EnvGet("username") & ":(F)", "", @SW_HIDE)
  RunWait("icacls " & $sysfolder & "iertutil.dll /Q /grant " & EnvGet("username") & ":(F)", "", @SW_HIDE)

EndIf 


When all done correctly you should see this: