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:
03-12-2016, 11:04 PM
Linear Mode
