Gui lässt sich unter WinXP schließen, aber nicht unter Win7

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#RequireAdmin

#include <StructureConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Include <File.au3>
#Include <String.au3>



Global $iMemo
Global $aPath
Global $CMDHandle
Global $LithTechDTXhex
Global $NexonDTXhex
Global $NexonDTX
Global $LithTechDTX 
Global $DTXFileName
Global $ConvertTF = 0
Global $OpenFolder = 0
Global $Filenamedtx = 0
Global $NexonDTXCheck
Global $LithtechDTXCheck =

_Example_Defaults()
_Example_ExplorerStyleMultiSelect()
_Example_OldStyle()
_Example_ExplorerStyleSinglSelect()
_Example_ExplorerStyle_NoPlaceBar()

Func _Example_Defaults()
	Local $hGui, $btn_dialog, $aFile, $sError, $FileName
	; Create GUI
	$hGui = GUICreate("Lawliet!'s DTX Converter", 300, 200)
	;$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 226, $WS_HSCROLL)
	;GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
	GUICtrlCreateLabel("File: ", 100, 40)
	GUICtrlCreateLabel("Typ: ", 100, 60)
	$btn_dialog = GUICtrlCreateButton("*.DTX File öffnen", 50, 150, 90, 20)
	$ConvertTF = GUICtrlCreateButton("Convertieren", 160, 150, 90, 20)
	GUISetState()
	
	While 1
		Switch GUIGetMsg()
		Case $btn_dialog
				
				$aFile = _WinAPI_GetOpenFileName("", "DTX Files (*.dtx)") ; use defaults
				If $aFile[0] = 0 Then
					$sError = _WinAPI_CommDlgExtendedError()
					MemoWrite("CommDlgExtendedError (" & @error & "): " & $sError)
				Else
					For $x = 1 To $aFile[0]
						
						;code
						
					Next
					
				EndIf
				$FileName = StringTrimRight($aFile[2], 4)
				$LithTechDTX = _HexToString($LithTechDTXhex)
				$NexonDTX = _HexToString($NexonDTXhex)
				$DTXFileName = StringTrimRight($aFile[2], 4)
				
				;MsgBox(1, "dawn", $DTXFileName)
				GUICtrlCreateLabel($aFile[2], 150, 40)
				
				;code
				If $TypVar == $LithTechDTXhex Then
					GUICtrlCreateLabel("LithTech", 150, 60)
					;MsgBox(1, "Typ", "LithTech .dtx File")
				Else
					GUICtrlCreateLabel("Nexon", 150, 60)
				EndIf
				
			Case $ConvertTF
				 ;code
				If $TypVar == $LithTechDTXhex Then
					;code
					If @error Then
						MsgBox(1, "error", @error)
					EndIf
					;code
				Else
					;code
					If @error Then
						MsgBox(1, "error", @error)
					EndIf
					;code
                                          [FONT="Arial"][SIZE="6"][COLOR="Red"]HIER[/COLOR][/SIZE][/FONT]
				EndIf
			Case $GUI_EVENT_CLOSE
				ExitLoop
			
				
				
				
		EndSwitch
	WEnd
	GUIDelete($hGui)
	

	

EndFunc 
Func MemoWrite($sMessage)
	GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc