Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 07:17

  • Please register to post and access all features, it's quick, easy and FREE!


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

Reply
 
Old   #1


 
elite*gold: 2
Join Date: Jul 2009
Posts: 14,456
Received Thanks: 4,684
Gui lässt sich unter WinXP schließen, aber nicht unter Win7

Hey ich habe dieses kleine Programm hier erstellt:
LDTX - Lawliet!'s DTXConverter :)

Bei mir funktioniert alles (WinXP32), bei einem anderen User lässt sich das das Programm aber nach aber weder schließen, noch ein anderer Button drücken, nachdem er im Codebereich angekommen ist, den ich mit einem roten "HIER" markiert habe:
Code:
#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


Kann jemand erkennen woran es liegen könnte?



Lawliet is offline  
Old 09/18/2011, 23:30   #2
 
elite*gold: 40
Join Date: May 2007
Posts: 618
Received Thanks: 68
nimm mal für "$gui_event_close" einfach "exit" oder definier exit
so hast du zwei $ und kannst über gui und exit beenden wenn das eine nicht klappt klappt das andere


snow21 is offline  
Thanks
1 User
Old 09/21/2011, 22:39   #3
 
elite*gold: 0
Join Date: May 2011
Posts: 788
Received Thanks: 191
hab kein Bock es ausprobieren aber bei mir ist sowas schon mal passiert
GANZ unten rechts Rechtklick auf dein Programm und Beenden
Xemnas' is offline  
Old 09/21/2011, 23:22   #4


 
elite*gold: 2
Join Date: Jul 2009
Posts: 14,456
Received Thanks: 4,684
Wäre aber keine Lösung für die Allgemeinheit.
Lawliet is offline  
Reply



« dumme frage (ja ich bin ein noob) | help me please »

Similar Threads
[Frage] Root lässt sich nicht einpacken, aber auspacken ???
06/11/2011 - Metin2 PServer - Discussions / Questions - 2 Replies
Hey, also ich habe folgendes Problem, ich bekomme die Root Dateien aus dem Clienten nicht gepackt. Entpacken kann ich die Dateien, aber wenn ich fertig mit bearbeiten, dann möchte ich das ganze zusammen packen. Ich arbeite mit dem Tool von...
Rayman1 unter win7
05/07/2011 - General Gaming Discussion - 0 Replies
Hallo liebe Community, Wie Spiele ich Rayman 1 auf win7 gibt es irgendwelche Patches oder so? achja und i h habe schon sehr viel gegooglet aber kein Patch gefunden. ich bin auf Dos box gestoßen aber wenn ich mir des downe und dann installiere...
[Client]locale_de lässt sich entpacken aber nicht mehr packen?!
04/26/2011 - Metin2 PServer - Discussions / Questions - 7 Replies
Abend epvp. Habe mal wieder ein Problem. Ich habe jetzt meine item_proto(clientside) bearbeitet, habe sie wieder gepackt und wollte denn die locale_de auch wieder packen, ging aber nicht :( habe denn mal wieder die alte item_proto reingehaun...
css probs unter win7.
06/30/2010 - Counter-Strike - 21 Replies
hey. habe nun win7 raufgemacht weil ich meinen xp key verloren habe. nun muss ich leider mit win7 css spielen , folgende probs: anstatt 80-130 fps auf dust2 , inferno , nuke (die ganzen popular maps ) hab ich jetz nur 30-50 , und anstatt...
War Rock startet unter Win7 nicht!
11/19/2009 - WarRock - 5 Replies
Hallo, Ich will War Rock unter Win7 starten(Habe es schon mit Admininstrator versucht und unter WinXP Sp2 Komatiblität) Hier bleibt er lange hängen: http://img204.imageshack.us/img204/797/cheking.png Bitte helft mir :D



All times are GMT +2. The time now is 07:17.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2018 elitepvpers All Rights Reserved.