Bilder vergrößern sich?!?

    Juten Abend zusammen ich hab ein Problem das ich sehr korrios finde. . .

    wo zu Teufel steht in diesem Codeabschnitt was von Bilder vergrößern??? denn das passiert wenn ich auf einen Eintrag in dem Listview klicke ;(

    Spoiler anzeigen
    [autoit]

    Case $hPSPGameListe
    If _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)) <> $sPSPAusgewaehltesSpiel Then
    $sPSPAusgewaehltesSpiel = _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe))
    GUICtrlSetData($hPSPGameInfo, StringReplace(IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Infos", "N/A"), "¤", @CRLF))
    GUICtrlSetData($hPSPISOGroesse, "Größe: " & Int(((FileGetSize(@ScriptDir & "\Data\PSPGames\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "ISO", "")) / 1024) / 1024)) & "MB")
    GUICtrlSetData($hPSPFirmware, "Firmware: " & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Firmware", "N/A"))
    GUICtrlSetImage($hPSPUSK, @ScriptDir & "\Data\Pics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "USK", "N-A") & ".jpg")
    If GUICtrlSetImage($hPSPVorschau, @ScriptDir & "\Data\PSPVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Pic", "N-A")) = 0 Then
    ;~ MsgBox(0,"",@ScriptDir & "\Data\PSPVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Pic", "N-A"))
    GUICtrlSetState($hPSPVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_SHOW)
    Else
    GUICtrlSetState($hPSPVorschau, $GUI_SHOW)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_HIDE)
    EndIf
    $PSPVorschauFlaggenX = 0
    Local $SprachenIni = IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Sprache", 0)
    If $SprachenIni >= 8 Then
    $SprachenIni -= 8
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\de.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 4 Then
    $SprachenIni -= 4
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\europeanunion.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 2 Then
    $SprachenIni -= 2
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\us.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 1 Then
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\JP.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    For $x = $PSPVorschauFlaggenX To UBound($PSPVorschauFlaggen) + 1
    If $x < 4 Then GUICtrlSetImage($PSPVorschauFlaggen[$x], @ScriptDir & "\Data\Pics\NA.jpg")
    Next
    EndIf

    [/autoit]


    Bin ich denn blind??

    hoffe ihr könnt mir sagen was da faul ist 8|

    Mfg Keyle

    Hallo.
    Schau dir doch mal die Parameter under GUICtrlCreatePic an.
    Da kannst du die höhe, breite und position einstellen.
    MfG. PrideRage

    Meine Projekte:
    ClipBoard Manager (beendet)
    Gutes ClipBoard Verwaltungs Programm mit nützlichen Funktionen.

    HTML Creator (beendet)
    Nützliches Tool um schnell ein eigenes HTML Dokument zu erstellen.

    Danke für deine Antwort obwohl sie nicht ganz das war was ich erhofft hatte ;)

    Die Bilder hab ich ja schon erstellt, ich will ja nur das Bild welches sich in dem Control befindet änder aber nicht seine Größe.

    Durch taktisches :D auskommentieren hab ich herausgefunden das GUICtrlSetImage das Problem ist.
    Aber GUICtrlSetImage hat gar keinen Parameter für Größe ?( ist das ein Bug von AutoIt??
    Hat noch jemand ein ähnliches Problem mit GUICtrlSetImage???

    Mfg Keyle

    SetImage ist einfach nur dafür das Bild zu ändern, nicht für die größe...

    Ja das weis ich doch :pinch: mein Problem ist das GUICtrlSetImage trozdem die Größe verändert obwohl nur das Bild ändern soll und nich die Größe.

    ich habe im ganzen Skript nich eine funktion zum ändern der größe eines Controls aber sie werden trozdem (ungewollt) Größer

    Mfg Keyle

    Wenn mir keiner glaubt dass in dem Codeabschnitt der Fehler liegt hier bitte das ganze Skript:
    Dann wühlt euch ma dur 970 Zeilen Code :D ma schaun ob ihr mehr findet als ich :thumbup:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Version=beta
    #AutoIt3Wrapper_icon=Sonstiges\psp.ico
    #AutoIt3Wrapper_Res_Comment=Sorts all of your PSP and PSX ISOs
    #AutoIt3Wrapper_Res_Description=PSP - Game - Archiver
    #AutoIt3Wrapper_Res_Fileversion=0.8.1.3
    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <GUIComboBox.au3>
    #include <WindowsConstants.au3>
    #include <GuiComboBoxEx.au3>
    #include <array.au3>
    #include <File.au3>
    #include "Explorer.au3"

    [/autoit] [autoit][/autoit] [autoit]

    Global $aUSK[6] = [@ScriptDir & "\Data\Pics\N-A.jpg", _
    @ScriptDir & "\Data\Pics\0.jpg", _
    @ScriptDir & "\Data\Pics\6.jpg", _
    @ScriptDir & "\Data\Pics\12.jpg", _
    @ScriptDir & "\Data\Pics\16.jpg", _
    @ScriptDir & "\Data\Pics\18.jpg"]
    $sPSPAusgewaehltesSpiel = ""
    $sPSXAusgewaehltesSpiel = ""
    $sHomebrewAusgewaehltes = ""

    [/autoit] [autoit][/autoit] [autoit]

    DirCreate(@ScriptDir & "\Data\Settings")

    [/autoit] [autoit][/autoit] [autoit]

    $hPSP_GUI = GUICreate("PSP-GameArch", 849, 640, 183, 115)

    [/autoit] [autoit][/autoit] [autoit]

    $Menu1 = GUICtrlCreateMenu("Datei")
    $Menu1_1 = GUICtrlCreateMenuitem ( "Beenden", $Menu1 )
    $Menu2 = GUICtrlCreateMenu("Sonstiges")
    $Menu2_1 = GUICtrlCreateMenuitem ( "Game Categories Plugin installieren", $Menu2 )
    GUICtrlSetState(-1,$GUI_DISABLE)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateTab(10, 10, 830, 600)

    [/autoit] [autoit][/autoit] [autoit]

    #Region PSP
    GUICtrlCreateTabItem("PSP-Games")
    $hPSPVorschau = GUICtrlCreatePic("", 510, 44, 313, 553, $WS_BORDER)
    GUICtrlSetState($hPSPVorschau, $GUI_DISABLE)
    $hPSPVorschauLeer = GUICtrlCreatePic("", 510, 44, 313, 553, $WS_BORDER)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_DISABLE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_HIDE)
    $hPSPISOGroesse = GUICtrlCreateLabel("Größe: N/A", 64, 420, 200)
    GUICtrlSetBkColor($hPSPISOGroesse, $GUI_BKCOLOR_TRANSPARENT)
    $hPSPFirmware = GUICtrlCreateLabel("Firmware: N/A", 64, 440, 200)
    GUICtrlSetBkColor($hPSPFirmware, $GUI_BKCOLOR_TRANSPARENT)
    $hPSPGameListe = GUICtrlCreateList("", 48, 52, 377, 253, BitOR($LBS_SORT, $WS_VSCROLL))
    Global $aPSPGames = IniReadSectionNames(@ScriptDir & "\Data\Settings\PSPGames.PGA")
    For $x = 1 To UBound($aPSPGames) - 1
    _GUICtrlListBox_AddString($hPSPGameListe, $aPSPGames[$x])
    Next
    _GUICtrlListBox_Sort($hPSPGameListe)
    $hPSPUSK = GUICtrlCreatePic($aUSK[0], 64, 320, 65, 65)
    GUICtrlSetState($hPSPUSK, $GUI_DISABLE)
    $hPSPGameInfo = GUICtrlCreateEdit("", 200, 320, 225, 169, BitOR($ES_READONLY, $WS_VSCROLL))
    $hPSPAddGame = GUICtrlCreateButton("", 430, 60, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSPAddGame, @ScriptDir & "\Data\Pics\add.ico")
    $hPSPDelGame = GUICtrlCreateButton("", 430, 120, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSPDelGame, @ScriptDir & "\Data\Pics\del.ico")
    $hPSPEditGame = GUICtrlCreateButton("", 430, 180, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSPEditGame, @ScriptDir & "\Data\Pics\edit.ico")
    $hPSPCopyGame = GUICtrlCreateButton("", 430, 240, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSPCopyGame, @ScriptDir & "\Data\Pics\memory-card.ico")
    Dim $PSPVorschauFlaggen[4]
    $PSPVorschauFlaggen[0] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 40, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSPVorschauFlaggen[0], $GUI_DISABLE)
    $PSPVorschauFlaggen[1] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 70, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSPVorschauFlaggen[1], $GUI_DISABLE)
    $PSPVorschauFlaggen[2] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 100, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSPVorschauFlaggen[2], $GUI_DISABLE)
    $PSPVorschauFlaggen[3] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 130, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSPVorschauFlaggen[3], $GUI_DISABLE)
    $PSPVorschauFlaggenX = 0
    #EndRegion PSP

    [/autoit] [autoit][/autoit] [autoit]

    #Region PSX
    GUICtrlCreateTabItem("PSX-Games")
    $hPSXVorschau = GUICtrlCreatePic("", 540, 44, 280, 280, $WS_BORDER)
    GUICtrlSetState($hPSXVorschau, $GUI_DISABLE)
    $hPSXVorschauLeer = GUICtrlCreatePic("", 540, 44, 280, 280, $WS_BORDER)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_DISABLE)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_HIDE)
    $hPSXEBOOTGroesse = GUICtrlCreateLabel("Größe: N/A", 64, 420, 200)
    GUICtrlSetBkColor($hPSXEBOOTGroesse, $GUI_BKCOLOR_TRANSPARENT)
    $hPSXGameListe = GUICtrlCreateList("", 48, 52, 377, 253, BitOR($LBS_SORT, $WS_VSCROLL))
    Global $aPSXGames = IniReadSectionNames(@ScriptDir & "\Data\Settings\PSXGames.PGA")
    For $x = 1 To UBound($aPSXGames) - 1
    _GUICtrlListBox_AddString($hPSXGameListe, $aPSXGames[$x])
    Next
    _GUICtrlListBox_Sort($hPSXGameListe)
    $hPSXUSK = GUICtrlCreatePic($aUSK[0], 64, 320, 65, 65)
    GUICtrlSetState($hPSXUSK, $GUI_DISABLE)
    $hPSXGameInfo = GUICtrlCreateEdit("", 200, 320, 225, 169, BitOR($ES_READONLY, $WS_VSCROLL))
    $hPSXAddGame = GUICtrlCreateButton("", 430, 60, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSXAddGame, @ScriptDir & "\Data\Pics\add.ico")
    $hPSXDelGame = GUICtrlCreateButton("", 430, 120, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSXDelGame, @ScriptDir & "\Data\Pics\del.ico")
    $hPSXEditGame = GUICtrlCreateButton("", 430, 180, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSXEditGame, @ScriptDir & "\Data\Pics\edit.ico")
    $hPSXCopyGame = GUICtrlCreateButton("", 430, 240, 50, 50, $BS_ICON)
    GUICtrlSetImage($hPSXCopyGame, @ScriptDir & "\Data\Pics\memory-card.ico")
    Dim $PSXVorschauFlaggen[4]
    $PSXVorschauFlaggen[0] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 40, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSXVorschauFlaggen[0], $GUI_DISABLE)
    $PSXVorschauFlaggen[1] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 70, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSXVorschauFlaggen[1], $GUI_DISABLE)
    $PSXVorschauFlaggen[2] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 100, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSXVorschauFlaggen[2], $GUI_DISABLE)
    $PSXVorschauFlaggen[3] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 130, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($PSXVorschauFlaggen[3], $GUI_DISABLE)
    #EndRegion PSX
    #Region Homebrew
    #cs
    $a = GUICtrlCreateTabItem("Homebrew")
    ;~ $hHomebrewVorschau = GUICtrlCreatePic("", 540, 44, 280, 280, $WS_BORDER)
    ;~ GUICtrlSetState($hHomebrewVorschau, $GUI_DISABLE)
    ;~ $hHomebrewVorschauLeer = GUICtrlCreatePic("", 540, 44, 280, 280, $WS_BORDER)
    ;~ GUICtrlSetState($hHomebrewVorschauLeer, $GUI_DISABLE)
    ;~ GUICtrlSetState($hHomebrewVorschauLeer, $GUI_HIDE)
    $hHomebrewEBOOTGroesse = GUICtrlCreateLabel("Größe: N/A", 64, 420, 200)
    GUICtrlSetBkColor($hHomebrewEBOOTGroesse, $GUI_BKCOLOR_TRANSPARENT)
    $hHomebrewListe = GUICtrlCreateList("", 48, 52, 377, 253, BitOR($LBS_SORT, $WS_VSCROLL))
    Global $aHomebrew = IniReadSectionNames(@ScriptDir & "\Data\Settings\Homebrew.PGA")
    For $x = 1 To UBound($aHomebrew) - 1
    _GUICtrlListBox_AddString($hHomebrewListe, $aHomebrew[$x])
    Next
    _GUICtrlListBox_Sort($hHomebrewListe)
    $hHomebrewInfo = GUICtrlCreateEdit("", 200, 320, 225, 169, BitOR($ES_READONLY, $WS_VSCROLL))
    $hHomebrewAdd = GUICtrlCreateButton("", 430, 60, 50, 50, $BS_ICON)
    GUICtrlSetImage($hHomebrewAdd, @ScriptDir & "\Data\Pics\add.ico")
    $hHomebrewDel = GUICtrlCreateButton("", 430, 120, 50, 50, $BS_ICON)
    GUICtrlSetImage($hHomebrewDel, @ScriptDir & "\Data\Pics\del.ico")
    $hHomebrewEdit = GUICtrlCreateButton("", 430, 180, 50, 50, $BS_ICON)
    GUICtrlSetImage($hHomebrewEdit, @ScriptDir & "\Data\Pics\edit.ico")
    $hHomebrewCopy = GUICtrlCreateButton("", 430, 240, 50, 50, $BS_ICON)
    GUICtrlSetImage($hHomebrewCopy, @ScriptDir & "\Data\Pics\memory-card.ico")
    Dim $HomebrewVorschauFlaggen[4]
    $HomebrewVorschauFlaggen[0] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 40, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($HomebrewVorschauFlaggen[0], $GUI_DISABLE)
    $HomebrewVorschauFlaggen[1] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 70, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($HomebrewVorschauFlaggen[1], $GUI_DISABLE)
    $HomebrewVorschauFlaggen[2] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 100, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($HomebrewVorschauFlaggen[2], $GUI_DISABLE)
    $HomebrewVorschauFlaggen[3] = GUICtrlCreatePic(@ScriptDir & "\Data\Pics\NA.jpg", 130, 395, 20, 15, $WS_BORDER)
    GUICtrlSetState($HomebrewVorschauFlaggen[3], $GUI_DISABLE)
    #EndRegion Homebrew
    #ce
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE , $Menu1_1
    Exit
    Case $hPSPAddGame
    _PSPGameAdd(@ScriptDir & "\Data\Settings\PSPGames.PGA", $hPSPGameListe, $hPSP_GUI)
    GUICtrlSetImage($hPSPUSK, $aUSK[0])
    GUICtrlSetState($hPSPVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSPGameInfo, "")
    GUICtrlSetData($hPSPISOGroesse, "Größe: N/A")
    Case $hPSXAddGame
    _PSXGameAdd(@ScriptDir & "\Data\Settings\PSXGames.PGA", $hPSXGameListe, $hPSP_GUI)
    GUICtrlSetImage($hPSXUSK, $aUSK[0])
    GUICtrlSetState($hPSXVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSXGameInfo, "")
    GUICtrlSetData($hPSXEBOOTGroesse, "Größe: N/A")
    Case $hPSPEditGame
    If _GUICtrlListBox_GetCurSel($hPSPGameListe) <> -1 Then
    _PSPGameEdit(@ScriptDir & "\Data\Settings\PSPGames.PGA", $hPSPGameListe, $hPSP_GUI)
    GUICtrlSetImage($hPSPUSK, $aUSK[0])
    GUICtrlSetState($hPSPVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSPGameInfo, "")
    GUICtrlSetData($hPSPISOGroesse, "Größe: N/A")
    EndIf
    Case $hPSXEditGame
    If _GUICtrlListBox_GetCurSel($hPSXGameListe) <> -1 Then
    _PSXGameEdit(@ScriptDir & "\Data\Settings\PSXGames.PGA", $hPSXGameListe, $hPSP_GUI)
    GUICtrlSetImage($hPSXUSK, $aUSK[0])
    GUICtrlSetState($hPSXVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSXGameInfo, "")
    GUICtrlSetData($hPSXEBOOTGroesse, "Größe: N/A")
    EndIf
    Case $hPSPDelGame
    If _GUICtrlListBox_GetCurSel($hPSPGameListe) <> -1 And MsgBox(36, "Löschen", "Soll der Eintrag wirklich gelöscht werden?") = 6 Then
    FileDelete(@ScriptDir & "\Data\PSPVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)), "Pic", "blabliblubb.jpg"))
    FileDelete(@ScriptDir & "\Data\PSPGames\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)), "ISO", ""))
    IniDelete(@ScriptDir & "\Data\Settings\PSPGames.PGA", _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)))
    _GUICtrlListBox_DeleteString($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe))
    GUICtrlSetImage($hPSPUSK, $aUSK[0])
    GUICtrlSetState($hPSPVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSPGameInfo, "")
    GUICtrlSetData($hPSPISOGroesse, "Größe: N/A")
    EndIf
    Case $hPSXDelGame
    If _GUICtrlListBox_GetCurSel($hPSXGameListe) <> -1 And MsgBox(36, "Löschen", "Soll der Eintrag PSX wirklich gelöscht werden?") = 6 Then
    FileDelete(@ScriptDir & "\Data\PSXVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", _GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe)), "Pic", "blabliblubb.jpg"))
    DirRemove(@ScriptDir & "\Data\PSXGames\" & _GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe)), 1)
    IniDelete(@ScriptDir & "\Data\Settings\PSXGames.PGA", _GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe)))
    _GUICtrlListBox_DeleteString($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe))
    GUICtrlSetImage($hPSXUSK, $aUSK[0])
    GUICtrlSetState($hPSXVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_SHOW)
    GUICtrlSetData($hPSXGameInfo, "")
    GUICtrlSetData($hPSXEBOOTGroesse, "Größe: N/A")
    EndIf
    Case $hPSPCopyGame
    If _GUICtrlListBox_GetCurSel($hPSPGameListe) <> -1 Then
    _PSPGameCopy2PSP($hPSP_GUI,IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)), "ISO", ""))
    EndIf
    Case $hPSXCopyGame
    If _GUICtrlListBox_GetCurSel($hPSXGameListe) <> -1 Then
    _PSXGameCopy2PSP($hPSP_GUI,_GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe)))
    EndIf
    Case $hPSPGameListe
    If _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe)) <> $sPSPAusgewaehltesSpiel Then
    $sPSPAusgewaehltesSpiel = _GUICtrlListBox_GetText($hPSPGameListe, _GUICtrlListBox_GetCurSel($hPSPGameListe))
    GUICtrlSetData($hPSPGameInfo, StringReplace(IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Infos", "N/A"), "¤", @CRLF))
    GUICtrlSetData($hPSPISOGroesse, "Größe: " & Int(((FileGetSize(@ScriptDir & "\Data\PSPGames\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "ISO", "")) / 1024) / 1024)) & "MB")
    GUICtrlSetData($hPSPFirmware, "Firmware: " & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Firmware", "N/A"))
    GUICtrlSetImage($hPSPUSK, @ScriptDir & "\Data\Pics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "USK", "N-A") & ".jpg")
    If GUICtrlSetImage($hPSPVorschau, @ScriptDir & "\Data\PSPVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Pic", "N-A")) = 0 Then
    ;~ MsgBox(0,"",@ScriptDir & "\Data\PSPVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Pic", "N-A"))
    GUICtrlSetState($hPSPVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_SHOW)
    Else
    GUICtrlSetState($hPSPVorschau, $GUI_SHOW)
    GUICtrlSetState($hPSPVorschauLeer, $GUI_HIDE)
    EndIf
    $PSPVorschauFlaggenX = 0
    Local $SprachenIni = IniRead(@ScriptDir & "\Data\Settings\PSPGames.PGA", $sPSPAusgewaehltesSpiel, "Sprache", 0)
    If $SprachenIni >= 8 Then
    $SprachenIni -= 8
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\de.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 4 Then
    $SprachenIni -= 4
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\europeanunion.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 2 Then
    $SprachenIni -= 2
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\us.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 1 Then
    GUICtrlSetImage($PSPVorschauFlaggen[$PSPVorschauFlaggenX], @ScriptDir & "\Data\Pics\JP.jpg")
    $PSPVorschauFlaggenX += 1
    EndIf
    For $x = $PSPVorschauFlaggenX To UBound($PSPVorschauFlaggen) + 1
    If $x < 4 Then GUICtrlSetImage($PSPVorschauFlaggen[$x], @ScriptDir & "\Data\Pics\NA.jpg")
    Next
    EndIf
    Case $hPSXGameListe
    If _GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe)) <> $sPSXAusgewaehltesSpiel Then
    $sPSXAusgewaehltesSpiel = _GUICtrlListBox_GetText($hPSXGameListe, _GUICtrlListBox_GetCurSel($hPSXGameListe))
    GUICtrlSetData($hPSXGameInfo, StringReplace(IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", $sPSXAusgewaehltesSpiel, "Infos", "N/A"), "¤", @CRLF))
    GUICtrlSetData($hPSXEBOOTGroesse, "Größe: " & Int(((FileGetSize(@ScriptDir & "\Data\PSXGames\" & $sPSXAusgewaehltesSpiel & "\" & IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", $sPSXAusgewaehltesSpiel, "EBOOT", "")) / 1024) / 1024)) & "MB")
    GUICtrlSetImage($hPSXUSK, @ScriptDir & "\Data\Pics\" & IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", $sPSXAusgewaehltesSpiel, "USK", "N-A") & ".jpg")
    If GUICtrlSetImage($hPSXVorschau, @ScriptDir & "\Data\PSXVorschauPics\" & IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", $sPSXAusgewaehltesSpiel, "Pic", "N-A")) = 0 Then
    GUICtrlSetState($hPSXVorschau, $GUI_HIDE)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    Else
    GUICtrlSetState($hPSXVorschau, $GUI_SHOW)
    GUICtrlSetState($hPSXVorschauLeer, $GUI_HIDE)
    EndIf
    $PSXVorschauFlaggenX = 0
    Local $SprachenIni = IniRead(@ScriptDir & "\Data\Settings\PSXGames.PGA", $sPSXAusgewaehltesSpiel, "Sprache", 0)
    If $SprachenIni >= 8 Then
    $SprachenIni -= 8
    GUICtrlSetImage($PSXVorschauFlaggen[$PSXVorschauFlaggenX], @ScriptDir & "\Data\Pics\de.jpg")
    $PSXVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 4 Then
    $SprachenIni -= 4
    GUICtrlSetImage($PSXVorschauFlaggen[$PSXVorschauFlaggenX], @ScriptDir & "\Data\Pics\europeanunion.jpg")
    $PSXVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 2 Then
    $SprachenIni -= 2
    GUICtrlSetImage($PSXVorschauFlaggen[$PSXVorschauFlaggenX], @ScriptDir & "\Data\Pics\us.jpg")
    $PSXVorschauFlaggenX += 1
    EndIf
    If $SprachenIni >= 1 Then
    GUICtrlSetImage($PSXVorschauFlaggen[$PSXVorschauFlaggenX], @ScriptDir & "\Data\Pics\JP.jpg")
    $PSXVorschauFlaggenX += 1
    EndIf
    For $x = $PSXVorschauFlaggenX To UBound($PSXVorschauFlaggen) + 1
    If $x < 4 Then GUICtrlSetImage($PSXVorschauFlaggen[$x], @ScriptDir & "\Data\Pics\NA.jpg")
    Next
    EndIf
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSPGameAdd($sINI, $hListBox, $hGUI)
    Local $sPicPfad = ""
    Local $Sprachen = 0
    GUISetState(@SW_DISABLE, $hGUI)
    Local $hGameAddGUI = GUICreate("", 625, 350, 192, 124, Default, Default, $hGUI)
    Local $hVorschau = GUICtrlCreatePic("", 460, 20, 137, 225, $WS_BORDER)
    GUICtrlSetState($hVorschau, $GUI_DISABLE)
    Local $hGameNameInput = GUICtrlCreateInput("", 74, 12, 305, 21)
    GUICtrlCreateLabel("Name:", 26, 14)
    Local $hVorschauPicPfad = GUICtrlCreateInput("", 100, 52, 355, 21, $ES_READONLY)
    Local $hDurchsuchen = GUICtrlCreateButton("JPG", 15, 44, 80, 41)
    Local $hIsoPfad = GUICtrlCreateInput("", 100, 102, 355, 21, $ES_READONLY)
    Local $hIsoDurchsuchen = GUICtrlCreateButton("ISO/CSO", 15, 94, 80, 41)
    Local $hGameInfo = GUICtrlCreateEdit("", 208, 146, 233, 185, $WS_VSCROLL)
    Local $hUSKAuswahl = GUICtrlCreateCombo("USK N-A", 64, 144, 97, 25)
    GUICtrlSetData($hUSKAuswahl, "USK 0|USK 6|USK 12|USK 16|USK 18")
    GUICtrlCreateLabel("Firmware:", 13, 246)
    Local $hFirmwareAuswahl = GUICtrlCreateCombo("N-A", 64, 244, 97, 25)
    GUICtrlSetData($hFirmwareAuswahl, "5.00m33-6|5.50gen-d3")
    Local $hUSKPic = GUICtrlCreatePic($aUSK[0], 80, 168, 65, 65)
    GUICtrlSetState($hUSKPic, $GUI_DISABLE)
    Local $hGameAddButton = GUICtrlCreateButton("Hinzufügen", 30, 285, 150, 50)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\de.jpg", 500, 260, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\europeanunion.jpg", 500, 280, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\us.jpg", 500, 300, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\jp.jpg", 500, 320, 20, 15, $WS_BORDER)
    Local $DE_Flag = GUICtrlCreateCheckbox("", 530, 260, 15, 15)
    Local $EU_Flag = GUICtrlCreateCheckbox("", 530, 280, 15, 15)
    Local $US_Flag = GUICtrlCreateCheckbox("", 530, 300, 15, 15)
    Local $JP_Flag = GUICtrlCreateCheckbox("", 530, 320, 15, 15)
    GUICtrlSetState($hGameAddButton, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameAddGUI)
    ExitLoop
    Case $hUSKAuswahl
    GUICtrlSetImage($hUSKPic, @ScriptDir & "\Data\Pics\" & StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4) & ".jpg")
    Case $hDurchsuchen
    Local $sPicPfad = FileOpenDialog("Vorschau-Bild", "", "JPG Bilder (*.jpg)")
    If Not @error Then
    GUICtrlSetData($hVorschauPicPfad, $sPicPfad)
    GUICtrlSetImage($hVorschau, $sPicPfad)
    EndIf
    Case $hIsoDurchsuchen
    Local $sIsoPfad = FileOpenDialog("ISO/CSO", "", "UMD ISO/CSO (*.iso;*.cso)")
    If Not @error Then
    GUICtrlSetData($hIsoPfad, $sIsoPfad)
    If GUICtrlRead($hGameNameInput) = "" Then
    $sISOName = _SplitPfad($sIsoPfad)
    GUICtrlSetData($hGameNameInput, $sISOName[1])
    EndIf
    GUICtrlSetState($hGameAddButton, $GUI_ENABLE)
    EndIf
    Case $hGameAddButton
    If GUICtrlRead($hGameNameInput) <> "" And _IsDirname(GUICtrlRead($hGameNameInput)) = True Then
    For $x = 1 To UBound($aPSPGames) - 1
    If $aPSPGames[$x] = GUICtrlRead($hGameNameInput) Then
    MsgBox(0, "Error", "Name schon vorhanden. Bitte einen anderen Namen eingeben!")
    ContinueCase
    EndIf
    Next
    DirCreate(@ScriptDir & "\Data\PSPVorschauPics\")
    DirCreate(@ScriptDir & "\Data\PSPGames\")
    GUICtrlSetState($hGameAddGUI, @SW_HIDE)
    $bCopy = _ExplorerCopy($sIsoPfad, @ScriptDir & "\Data\PSPGames\")
    If $bCopy <> False Then
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSPVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    $aISO = _SplitPfad($sIsoPfad)
    If GUICtrlRead($DE_Flag) = 1 Then $Sprachen += 8
    If GUICtrlRead($EU_Flag) = 1 Then $Sprachen += 4
    If GUICtrlRead($US_Flag) = 1 Then $Sprachen += 2
    If GUICtrlRead($JP_Flag) = 1 Then $Sprachen += 1
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Sprache", $Sprachen)
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Pic", GUICtrlRead($hGameNameInput) & ".jpg")
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "ISO", $aISO[1] & "." & $aISO[2])
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "USK", StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Infos", StringReplace(GUICtrlRead($hGameInfo), @CRLF, "¤"))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Firmware", StringReplace(GUICtrlRead($hFirmwareAuswahl), @CRLF, "¤"))
    _GUICtrlListBox_AddString($hListBox, GUICtrlRead($hGameNameInput))
    _GUICtrlListBox_Sort($hListBox)
    EndIf
    $aPSPGames = IniReadSectionNames(@ScriptDir & "\Data\Settings\PSPGames.PGA")
    GUIDelete($hGameAddGUI)
    ExitLoop
    Else
    MsgBox(0, "Error", 'Bitte einen Namen eingeben! (ohne / \ * : < > | " )')
    EndIf
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSPGameAdd

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSPGameEdit($sINI, $hListBox, $hGUI)
    GUISetState(@SW_DISABLE, $hGUI)
    Local $Sprachen = 0
    Local $sName = _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox))
    Local $sPic = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "Pic", "")
    Local $sInfo = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "Infos", "")
    Local $sUSK = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "USK", "")
    Local $sISO = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "ISO", "")
    Local $sFirmware = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "Firmware", "N-A")
    Local $sPicPfad = @ScriptDir & "\Data\PSPVorschauPics\" & $sPic
    Local $hGameAddGUI = GUICreate("", 625, 350, 192, 124, Default, Default, $hGUI)
    Local $hVorschau = GUICtrlCreatePic($sPicPfad, 460, 20, 137, 225, $WS_BORDER)
    GUICtrlSetState($hVorschau, $GUI_DISABLE)
    Local $hGameNameInput = GUICtrlCreateInput($sName, 74, 12, 305, 21)
    GUICtrlCreateLabel("Name:", 26, 14)
    Local $hVorschauPicPfad = GUICtrlCreateInput($sPicPfad, 100, 52, 355, 21, $ES_READONLY)
    Local $hDurchsuchen = GUICtrlCreateButton("JPG", 15, 44, 80, 41)
    Local $hIsoPfad = GUICtrlCreateInput(@ScriptDir & "\Data\PSPGames\" & $sISO, 100, 102, 355, 21, $ES_READONLY)
    Local $hIsoDurchsuchen = GUICtrlCreateButton("ISO/CSO", 15, 94, 80, 41)
    GUICtrlSetState($hIsoDurchsuchen, $GUI_DISABLE)
    Local $hGameInfo = GUICtrlCreateEdit($sInfo, 208, 146, 233, 145, $WS_VSCROLL)
    Local $hUSKAuswahl = GUICtrlCreateCombo("USK N-A", 60, 144, 97, 25)
    GUICtrlSetData($hUSKAuswahl, "USK 0|USK 6|USK 12|USK 16|USK 18")
    Local $iUSKIndex = _GUICtrlComboBox_FindString($hUSKAuswahl, "USK " & $sUSK)
    _GUICtrlComboBox_SetCurSel($hUSKAuswahl, $iUSKIndex)
    GUICtrlCreateLabel("Firmware:", 13, 246)
    Local $hFirmwareAuswahl = GUICtrlCreateCombo("N-A", 64, 244, 97, 25)
    GUICtrlSetData($hFirmwareAuswahl, "5.00m33-6|5.50gen-d3")
    Local $iFirmwareIndex = _GUICtrlComboBox_FindString($hFirmwareAuswahl, $sFirmware)
    _GUICtrlComboBox_SetCurSel($hFirmwareAuswahl, $iFirmwareIndex)
    Local $hUSKPic = GUICtrlCreatePic("", 76, 168, 65, 65)
    GUICtrlSetState($hUSKPic, $GUI_DISABLE)
    GUICtrlSetImage($hUSKPic, $aUSK[$iUSKIndex])
    Local $hGameAddButton = GUICtrlCreateButton("Ändern", 30, 285, 150, 50)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\de.jpg", 500, 260, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\europeanunion.jpg", 500, 280, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\us.jpg", 500, 300, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\jp.jpg", 500, 320, 20, 15, $WS_BORDER)
    Local $DE_Flag = GUICtrlCreateCheckbox("", 530, 260, 15, 15)
    Local $EU_Flag = GUICtrlCreateCheckbox("", 530, 280, 15, 15)
    Local $US_Flag = GUICtrlCreateCheckbox("", 530, 300, 15, 15)
    Local $JP_Flag = GUICtrlCreateCheckbox("", 530, 320, 15, 15)
    Local $SprachenIni = IniRead($sINI, $sName, "Sprache", 0)
    If $SprachenIni >= 8 Then
    GUICtrlSetState($DE_Flag, $GUI_CHECKED)
    $SprachenIni -= 8
    EndIf
    If $SprachenIni >= 4 Then
    GUICtrlSetState($EU_Flag, $GUI_CHECKED)
    $SprachenIni -= 4
    EndIf
    If $SprachenIni >= 2 Then
    GUICtrlSetState($US_Flag, $GUI_CHECKED)
    $SprachenIni -= 2
    EndIf
    If $SprachenIni >= 1 Then GUICtrlSetState($JP_Flag, $GUI_CHECKED)
    GUISetState(@SW_SHOW)
    While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameAddGUI)
    ExitLoop
    Case $hUSKAuswahl
    GUICtrlSetImage($hUSKPic, @ScriptDir & "\Data\Pics\" & StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4) & ".jpg")
    Case $hDurchsuchen
    Local $sPicPfad = FileOpenDialog("Vorschau-Bild", "", "JPG Bilder (*.jpg)")
    If Not @error Then
    GUICtrlSetData($hVorschauPicPfad, $sPicPfad)
    GUICtrlSetImage($hVorschau, $sPicPfad)
    GUICtrlSetState($hGameAddButton, $GUI_ENABLE)
    EndIf
    Case $hGameAddButton
    If GUICtrlRead($hGameNameInput) <> "" And _IsDirname(GUICtrlRead($hGameNameInput)) = True Then
    If GUICtrlRead($hGameNameInput) <> $sName Then
    For $x = 1 To UBound($aPSPGames) - 1
    If $aPSPGames[$x] = GUICtrlRead($hGameNameInput) Then
    MsgBox(0, "Error", "Name schon vorhanden. Bitte einen anderen Namen eingeben!")
    ContinueCase
    EndIf
    Next
    EndIf
    DirCreate(@ScriptDir & "\Data\PSPVorschauPics\")
    If $sPicPfad <> @ScriptDir & "\Data\PSPVorschauPics\" & $sPic Then
    FileDelete(@ScriptDir & "\Data\PSPVorschauPics\" & $sPic)
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSPVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    ElseIf GUICtrlRead($hGameNameInput) <> $sName And $sPicPfad = @ScriptDir & "\Data\PSPVorschauPics\" & $sPic Then
    FileMove($sPicPfad, @ScriptDir & "\Data\PSPVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    Else
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSPVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    EndIf
    IniRenameSection($sINI, $sName, GUICtrlRead($hGameNameInput))
    If GUICtrlRead($DE_Flag) = 1 Then $Sprachen += 8
    If GUICtrlRead($EU_Flag) = 1 Then $Sprachen += 4
    If GUICtrlRead($US_Flag) = 1 Then $Sprachen += 2
    If GUICtrlRead($JP_Flag) = 1 Then $Sprachen += 1
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Sprache", $Sprachen)
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Pic", GUICtrlRead($hGameNameInput) & ".jpg")
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "USK", StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Infos", StringReplace(GUICtrlRead($hGameInfo), @CRLF, "¤"))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Firmware", GUICtrlRead($hFirmwareAuswahl))
    _GUICtrlListBox_DeleteString($hListBox, _GUICtrlListBox_GetCurSel($hListBox))
    _GUICtrlListBox_AddString($hListBox, GUICtrlRead($hGameNameInput))
    _GUICtrlListBox_Sort($hListBox)
    GUICtrlSetState($hGameAddGUI, @SW_HIDE)
    $aPSPGames = IniReadSectionNames(@ScriptDir & "\Data\Settings\PSPGames.PGA")
    GUIDelete($hGameAddGUI)
    ExitLoop
    Else
    MsgBox(0, "Error", 'Bitte einen Namen eingeben! (ohne / \ * : < > | " )')
    EndIf
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSPGameEdit

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSPGameCopy2PSP($hGUI, $SelectedName)
    GUISetState(@SW_DISABLE, $hGUI)
    Local $sISO = $SelectedName
    Local $hGameCopyGUI = GUICreate("Copy2PSP", 333, 300, 192, 124, Default, Default, $hGUI)
    Local $hDrivesCombo = GUICtrlCreateCombo("", 40, 48, 145, 25, $CBS_DROPDOWNLIST)
    _GUICtrlComboBox_SetCueBanner($hDrivesCombo, "PSP-Gerät auswählen")
    Local $hRefresh = GUICtrlCreateButton("Refresh", 192, 40, 115, 33, $WS_GROUP)
    Local $hCopy = GUICtrlCreateButton("Kopieren", 64, 215, 193, 41, $WS_GROUP)
    GUICtrlCreateLabel("Bitte PSP auswählen", 80, 8, 176, 28)
    GUICtrlSetFont(-1, 14)
    Local $aDrives = DriveGetDrive("REMOVABLE")
    For $x = 1 To UBound($aDrives) - 1
    _GUICtrlComboBox_AddString($hDrivesCombo, $aDrives[$x] & " " & DriveGetLabel($aDrives[$x]))
    Next
    _GUICtrlComboBox_SetCurSel($hDrivesCombo, 0)
    Local $Activate = GUICtrlCreateCheckbox("Game Categories benutzen", 40, 112, 161, 17)
    Local $KategorieCombo = GUICtrlCreateCombo("Keiner Kategorie zuordnen", 40, 168, 265, 25, $CBS_DROPDOWNLIST)
    Local $lbl_Cat = GUICtrlCreateLabel("Kategorie auswählen:", 40, 144, 106, 17)
    If FileExists(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\seplugins\vsh.txt") Then
    Local $vshTXTopen = FileOpen(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\seplugins\vsh.txt", 0)
    Local $vshTXTread = FileRead($vshTXTopen)
    FileClose($vshTXTopen)
    If StringInStr($vshTXTread, "/game_categories.prx 1") = True Then
    GUICtrlSetState($Activate, $GUI_CHECKED)
    GUICtrlSetState($KategorieCombo, $GUI_ENABLE)
    GUICtrlSetState($lbl_Cat, $GUI_ENABLE)
    Else
    GUICtrlSetState($KategorieCombo, $GUI_DISABLE)
    GUICtrlSetState($lbl_Cat, $GUI_DISABLE)
    EndIf
    EndIf
    Local $Cats = _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME5XX"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME150"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME"))
    $Cats = _ArrayUnique($Cats)
    For $x = 1 To UBound($Cats) - 1
    _GUICtrlComboBox_AddString($KategorieCombo, $Cats[$x])
    Next
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameCopyGUI)
    ExitLoop
    Case $hRefresh
    $aDrives = DriveGetDrive("REMOVABLE")
    GUICtrlSetData($hDrivesCombo, "")
    For $x = 1 To UBound($aDrives) - 1
    _GUICtrlComboBox_AddString($hDrivesCombo, $aDrives[$x] & " " & DriveGetLabel($aDrives[$x]))
    Next
    _GUICtrlComboBox_SetCurSel($hDrivesCombo, 0)
    Case $hDrivesCombo
    GUICtrlSetData($KategorieCombo, "")
    _GUICtrlComboBox_AddString($KategorieCombo, "Keiner Kategorie zuordnen")
    $Cats = _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME5XX"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME150"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME"))
    $Cats = _ArrayUnique($Cats)
    For $x = 1 To UBound($Cats) - 1
    _GUICtrlComboBox_AddString($KategorieCombo, $Cats[$x])
    Next
    _GUICtrlComboBox_SetCurSel($KategorieCombo, 0)
    Case $Activate
    If GUICtrlRead($Activate) = 4 Then
    GUICtrlSetState($KategorieCombo, $GUI_DISABLE)
    GUICtrlSetState($lbl_Cat, $GUI_DISABLE)
    Else
    GUICtrlSetState($KategorieCombo, $GUI_ENABLE)
    GUICtrlSetState($lbl_Cat, $GUI_ENABLE)
    EndIf
    Case $hCopy
    GUIDelete($hGameCopyGUI)
    If GUICtrlRead($Activate) = 1 Then
    If GUICtrlRead($KategorieCombo) = "Keiner Kategorie zuordnen" Then
    DirCreate(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSPGames\" & $sISO, StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    Else
    DirCreate(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO\CAT_" & GUICtrlRead($KategorieCombo))
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSPGames\" & $sISO, StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO\CAT_" & GUICtrlRead($KategorieCombo) & "\")
    EndIf
    Else
    DirCreate(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSPGames\" & $sISO, StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO\")
    EndIf
    ExitLoop
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSPGameCopy2PSP

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSXGameAdd($sINI, $hListBox, $hGUI)
    Local $sPicPfad = ""
    Local $Sprachen = 0
    GUISetState(@SW_DISABLE, $hGUI)
    Local $hGameAddGUI = GUICreate("", 625, 300, 192, 124, Default, Default, $hGUI)
    Local $hVorschau = GUICtrlCreatePic("", 460, 20, 137, 137, $WS_BORDER)
    GUICtrlSetState($hVorschau, $GUI_DISABLE)
    Local $hGameNameInput = GUICtrlCreateInput("", 74, 12, 305, 21, $ES_OEMCONVERT)
    GUICtrlCreateLabel("Name:", 26, 14)
    Local $hVorschauPicPfad = GUICtrlCreateInput("", 100, 52, 355, 21, $ES_READONLY)
    Local $hDurchsuchen = GUICtrlCreateButton("JPG", 15, 44, 80, 41)
    Local $hEBOOTPfadInput = GUICtrlCreateInput("", 100, 102, 355, 21, $ES_READONLY)
    Local $hEBOOTDurchsuchen = GUICtrlCreateButton("EBOOT", 15, 94, 80, 41)
    Local $hGameInfo = GUICtrlCreateEdit("", 208, 146, 233, 145, $WS_VSCROLL)
    Local $hUSKAuswahl = GUICtrlCreateCombo("USK N-A", 64, 144, 97, 25)
    GUICtrlSetData($hUSKAuswahl, "USK 0|USK 6|USK 12|USK 16|USK 18")
    Local $hUSKPic = GUICtrlCreatePic($aUSK[0], 80, 168, 65, 65)
    GUICtrlSetState($hUSKPic, $GUI_DISABLE)
    Local $hGameAddButton = GUICtrlCreateButton("Hinzufügen", 30, 245, 150, 50)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\jp.jpg", 500, 250, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\de.jpg", 500, 190, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\us.jpg", 500, 230, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\europeanunion.jpg", 500, 210, 20, 15, $WS_BORDER)
    Local $DE_Flag = GUICtrlCreateCheckbox("", 530, 190, 15, 15)
    Local $EU_Flag = GUICtrlCreateCheckbox("", 530, 210, 15, 15)
    Local $US_Flag = GUICtrlCreateCheckbox("", 530, 230, 15, 15)
    Local $JP_Flag = GUICtrlCreateCheckbox("", 530, 250, 15, 15)
    GUICtrlSetState($hGameAddButton, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameAddGUI)
    ExitLoop
    Case $hUSKAuswahl
    GUICtrlSetImage($hUSKPic, @ScriptDir & "\Data\Pics\" & StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4) & ".jpg")
    Case $hDurchsuchen
    Local $sPicPfad = FileOpenDialog("Vorschau-Bild", "", "JPG Bilder (*.jpg)")
    If Not @error Then
    GUICtrlSetData($hVorschauPicPfad, $sPicPfad)
    GUICtrlSetImage($hVorschau, $sPicPfad)
    EndIf
    Case $hEBOOTDurchsuchen
    Local $sEBOOTPfad = FileOpenDialog("EBOOT", "", "PSX-Eboots (*.PBP)")
    If Not @error Then
    GUICtrlSetData($hEBOOTPfadInput, $sEBOOTPfad)
    If GUICtrlRead($hGameNameInput) = "" Then
    $sEBOOTName = _SplitPfad($sEBOOTPfad)
    GUICtrlSetData($hGameNameInput, $sEBOOTName[UBound($sEBOOTName) - 1])
    EndIf
    GUICtrlSetState($hGameAddButton, $GUI_ENABLE)
    EndIf
    Case $hGameAddButton
    If GUICtrlRead($hGameNameInput) <> "" And _IsDirname(GUICtrlRead($hGameNameInput)) = True Then
    For $x = 1 To UBound($aPSXGames) - 1
    If $aPSXGames[$x] = GUICtrlRead($hGameNameInput) Then
    MsgBox(0, "Error", "Name schon vorhanden. Bitte einen anderen Namen eingeben!")
    ContinueCase
    EndIf
    Next
    DirCreate(@ScriptDir & "\Data\PSXVorschauPics\")
    DirCreate(@ScriptDir & "\Data\PSXGames\" & GUICtrlRead($hGameNameInput) & "\")
    GUICtrlSetState($hGameAddGUI, @SW_HIDE)
    GUIDelete($hGameAddGUI)
    $bCopy = _ExplorerCopy($sEBOOTPfad, @ScriptDir & "\Data\PSXGames\" & GUICtrlRead($hGameNameInput) & "\")
    If $bCopy <> False Then
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSXVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    $aEBOOT = _SplitPfad($sEBOOTPfad)
    If GUICtrlRead($DE_Flag) = 1 Then $Sprachen += 8
    If GUICtrlRead($EU_Flag) = 1 Then $Sprachen += 4
    If GUICtrlRead($US_Flag) = 1 Then $Sprachen += 2
    If GUICtrlRead($JP_Flag) = 1 Then $Sprachen += 1
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Sprache", $Sprachen)
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Pic", GUICtrlRead($hGameNameInput) & ".jpg")
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "EBOOT", $aEBOOT[1] & "." & $aEBOOT[2])
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "USK", StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Infos", StringReplace(GUICtrlRead($hGameInfo), @CRLF, "¤"))
    _GUICtrlListBox_AddString($hListBox, GUICtrlRead($hGameNameInput))
    _GUICtrlListBox_Sort($hListBox)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ExitLoop
    Else
    MsgBox(0, "Error", 'Bitte einen Namen eingeben! (ohne / \ * : < > | " )')
    EndIf
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSXGameAdd

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSXGameEdit($sINI, $hListBox, $hGUI)
    GUISetState(@SW_DISABLE, $hGUI)
    Local $Sprachen = 0
    Local $sName = _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox))
    Local $sPic = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "Pic", "")
    Local $sInfo = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "Infos", "")
    Local $sUSK = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "USK", "")
    Local $sEBOOT = IniRead($sINI, _GUICtrlListBox_GetText($hListBox, _GUICtrlListBox_GetCurSel($hListBox)), "EBOOT", "")
    Local $sPicPfad = @ScriptDir & "\Data\PSXVorschauPics\" & $sPic
    Local $hGameAddGUI = GUICreate("", 625, 300, 192, 124, Default, Default, $hGUI)
    Local $hVorschau = GUICtrlCreatePic($sPicPfad, 460, 20, 137, 137, $WS_BORDER)
    GUICtrlSetState($hVorschau, $GUI_DISABLE)
    Local $hGameNameInput = GUICtrlCreateInput($sName, 74, 12, 305, 21)
    GUICtrlCreateLabel("Name:", 26, 14)
    Local $hVorschauPicPfad = GUICtrlCreateInput($sPicPfad, 100, 52, 355, 21, $ES_READONLY)
    Local $hDurchsuchen = GUICtrlCreateButton("JPG", 15, 44, 80, 41)
    Local $hIsoPfad = GUICtrlCreateInput(@ScriptDir & "\Data\PSXGames\" & $sName & "\" & $sEBOOT, 100, 102, 355, 21, $ES_READONLY)
    Local $hIsoDurchsuchen = GUICtrlCreateButton("EBOOT", 15, 94, 80, 41)
    GUICtrlSetState($hIsoDurchsuchen, $GUI_DISABLE)
    Local $hGameInfo = GUICtrlCreateEdit($sInfo, 208, 146, 233, 145, $WS_VSCROLL)
    Local $hUSKAuswahl = GUICtrlCreateCombo("USK N-A", 60, 144, 97, 25)
    GUICtrlSetData($hUSKAuswahl, "USK 0|USK 6|USK 12|USK 16|USK 18")
    Local $iUSKIndex = _GUICtrlComboBox_FindString($hUSKAuswahl, "USK " & $sUSK)
    _GUICtrlComboBox_SetCurSel($hUSKAuswahl, $iUSKIndex)
    Local $hUSKPic = GUICtrlCreatePic("", 76, 168, 65, 65)
    GUICtrlSetState($hUSKPic, $GUI_DISABLE)
    GUICtrlSetImage($hUSKPic, $aUSK[$iUSKIndex])
    Local $hGameAddButton = GUICtrlCreateButton("Ändern", 30, 245, 150, 50)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\jp.jpg", 500, 250, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\de.jpg", 500, 190, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\us.jpg", 500, 230, 20, 15, $WS_BORDER)
    GUICtrlCreatePic(@ScriptDir & "\Data\Pics\europeanunion.jpg", 500, 210, 20, 15, $WS_BORDER)
    Local $DE_Flag = GUICtrlCreateCheckbox("", 530, 190, 15, 15)
    Local $EU_Flag = GUICtrlCreateCheckbox("", 530, 210, 15, 15)
    Local $US_Flag = GUICtrlCreateCheckbox("", 530, 230, 15, 15)
    Local $JP_Flag = GUICtrlCreateCheckbox("", 530, 250, 15, 15)
    Local $SprachenIni = IniRead($sINI, $sName, "Sprache", 0)
    If $SprachenIni >= 8 Then
    GUICtrlSetState($DE_Flag, $GUI_CHECKED)
    $SprachenIni -= 8
    EndIf
    If $SprachenIni >= 4 Then
    GUICtrlSetState($EU_Flag, $GUI_CHECKED)
    $SprachenIni -= 4
    EndIf
    If $SprachenIni >= 2 Then
    GUICtrlSetState($US_Flag, $GUI_CHECKED)
    $SprachenIni -= 2
    EndIf
    If $SprachenIni >= 1 Then GUICtrlSetState($JP_Flag, $GUI_CHECKED)
    GUISetState(@SW_SHOW)
    While 1
    Local $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameAddGUI)
    ExitLoop
    Case $hUSKAuswahl
    GUICtrlSetImage($hUSKPic, @ScriptDir & "\Data\Pics\" & StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4) & ".jpg")
    Case $hDurchsuchen
    Local $sPicPfad = FileOpenDialog("Vorschau-Bild", "", "JPG Bilder (*.jpg)")
    If Not @error Then
    GUICtrlSetData($hVorschauPicPfad, $sPicPfad)
    GUICtrlSetImage($hVorschau, $sPicPfad)
    GUICtrlSetState($hGameAddButton, $GUI_ENABLE)
    EndIf
    Case $hGameAddButton
    If GUICtrlRead($hGameNameInput) <> "" And _IsDirname(GUICtrlRead($hGameNameInput)) = True Then
    If GUICtrlRead($hGameNameInput) <> $sName Then
    For $x = 1 To UBound($aPSPGames) - 1
    If $aPSPGames[$x] = GUICtrlRead($hGameNameInput) Then
    MsgBox(0, "Error", "Name schon vorhanden. Bitte einen anderen Namen eingeben!")
    ContinueCase
    EndIf
    Next
    EndIf
    DirCreate(@ScriptDir & "\Data\PSXVorschauPics\")
    If $sPicPfad <> @ScriptDir & "\Data\PSXVorschauPics\" & $sPic Then
    FileDelete(@ScriptDir & "\Data\PSXVorschauPics\" & $sPic)
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSXVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    ElseIf GUICtrlRead($hGameNameInput) <> $sName And $sPicPfad = @ScriptDir & "\Data\PSXVorschauPics\" & $sPic Then
    FileMove($sPicPfad, @ScriptDir & "\Data\PSXVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    Else
    FileCopy($sPicPfad, @ScriptDir & "\Data\PSXVorschauPics\" & GUICtrlRead($hGameNameInput) & ".jpg")
    EndIf
    IniRenameSection($sINI, $sName, GUICtrlRead($hGameNameInput))
    If GUICtrlRead($DE_Flag) = 1 Then $Sprachen += 8
    If GUICtrlRead($EU_Flag) = 1 Then $Sprachen += 4
    If GUICtrlRead($US_Flag) = 1 Then $Sprachen += 2
    If GUICtrlRead($JP_Flag) = 1 Then $Sprachen += 1
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Sprache", $Sprachen)
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Pic", GUICtrlRead($hGameNameInput) & ".jpg")
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "USK", StringTrimLeft(GUICtrlRead($hUSKAuswahl), 4))
    IniWrite($sINI, GUICtrlRead($hGameNameInput), "Infos", StringReplace(GUICtrlRead($hGameInfo), @CRLF, "¤"))
    _GUICtrlListBox_DeleteString($hListBox, _GUICtrlListBox_GetCurSel($hListBox))
    _GUICtrlListBox_AddString($hListBox, GUICtrlRead($hGameNameInput))
    _GUICtrlListBox_Sort($hListBox)
    GUICtrlSetState($hGameAddGUI, @SW_HIDE)
    GUIDelete($hGameAddGUI)
    ExitLoop
    Else
    MsgBox(0, "Error", 'Bitte einen Namen eingeben! (ohne / \ * : < > | " )')
    EndIf
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSXGameEdit

    [/autoit] [autoit][/autoit] [autoit]

    Func _PSXGameCopy2PSP($hGUI,$SelectedName)
    GUISetState(@SW_DISABLE, $hGUI)
    Local $sEBOOT = $SelectedName
    Local $hGameCopyGUI = GUICreate("Copy2PSP", 333, 300, 192, 124, Default, Default, $hGUI)
    Local $hDrivesCombo = GUICtrlCreateCombo("", 40, 48, 145, 25,$CBS_DROPDOWNLIST)
    _GUICtrlComboBox_SetCueBanner($hDrivesCombo, "PSP-Gerät auswählen")
    Local $hRefresh = GUICtrlCreateButton("Refresh", 192, 40, 115, 33, $WS_GROUP)
    Local $hCopy = GUICtrlCreateButton("Kopieren", 64, 215, 193, 41, $WS_GROUP)
    GUICtrlCreateLabel("Bitte PSP auswählen", 80, 8, 176, 28)
    GUICtrlSetFont(-1, 14)
    Local $aDrives = DriveGetDrive("REMOVABLE")
    For $x = 1 To UBound($aDrives) - 1
    _GUICtrlComboBox_AddString($hDrivesCombo, $aDrives[$x] & " " & DriveGetLabel($aDrives[$x]))
    Next
    _GUICtrlComboBox_SetCurSel($hDrivesCombo, 0)
    Local $Activate = GUICtrlCreateCheckbox("Game Categories benutzen", 40, 112, 161, 17)
    Local $KategorieCombo = GUICtrlCreateCombo("Keiner Kategorie zuordnen", 40, 168, 265, 25, $CBS_DROPDOWNLIST)
    Local $lbl_Cat = GUICtrlCreateLabel("Kategorie auswählen:", 40, 144, 106, 17)
    If FileExists(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\seplugins\vsh.txt") Then
    Local $vshTXTopen = FileOpen(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\seplugins\vsh.txt", 0)
    Local $vshTXTread = FileRead($vshTXTopen)
    FileClose($vshTXTopen)
    If StringInStr($vshTXTread, "/game_categories.prx 1") = True Then
    GUICtrlSetState($Activate, $GUI_CHECKED)
    GUICtrlSetState($KategorieCombo, $GUI_ENABLE)
    GUICtrlSetState($lbl_Cat, $GUI_ENABLE)
    Else
    GUICtrlSetState($KategorieCombo, $GUI_DISABLE)
    GUICtrlSetState($lbl_Cat, $GUI_DISABLE)
    EndIf
    EndIf
    Local $Cats = _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME5XX"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME150"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME"))
    $Cats = _ArrayUnique($Cats)
    For $x = 1 To UBound($Cats) - 1
    _GUICtrlComboBox_AddString($KategorieCombo, $Cats[$x])
    Next
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($hGameCopyGUI)
    ExitLoop
    Case $hRefresh
    $aDrives = DriveGetDrive("REMOVABLE")
    GUICtrlSetData($hDrivesCombo, "")
    For $x = 1 To UBound($aDrives) - 1
    _GUICtrlComboBox_AddString($hDrivesCombo, $aDrives[$x] & " " & DriveGetLabel($aDrives[$x]))
    Next
    _GUICtrlComboBox_SetCurSel($hDrivesCombo, 0)
    Case $hDrivesCombo
    GUICtrlSetData($KategorieCombo, "")
    _GUICtrlComboBox_AddString($KategorieCombo, "Keiner Kategorie zuordnen")
    $Cats = _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\ISO")
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME5XX"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME150"))
    _ArrayCombinate($Cats, _GetCatDir(StringLeft(GUICtrlRead($hDrivesCombo), 2) & "\PSP\GAME"))
    $Cats = _ArrayUnique($Cats)
    For $x = 1 To UBound($Cats) - 1
    _GUICtrlComboBox_AddString($KategorieCombo, $Cats[$x])
    Next
    _GUICtrlComboBox_SetCurSel($KategorieCombo, 0)
    Case $Activate
    If GUICtrlRead($Activate) = 4 Then
    GUICtrlSetState($KategorieCombo, $GUI_DISABLE)
    GUICtrlSetState($lbl_Cat, $GUI_DISABLE)
    Else
    GUICtrlSetState($KategorieCombo, $GUI_ENABLE)
    GUICtrlSetState($lbl_Cat, $GUI_ENABLE)
    EndIf
    Case $hCopy
    Local $Drive = StringLeft(GUICtrlRead($hDrivesCombo), 2)
    Local $Cat = GUICtrlRead($KategorieCombo)
    MsgBox(0,FileExists(@ScriptDir & "\Data\PSXGames\" & $sEBOOT & "\EBOOT.PBP"),@ScriptDir & "\Data\PSXGames\" & $sEBOOT & "\EBOOT.PBP")
    If GUICtrlRead($Activate) = 1 Then
    GUIDelete($hGameCopyGUI)
    If $Cat = "Keiner Kategorie zuordnen" Then
    DirCreate($Drive & "\PSP\GAME\"&$sEBOOT)
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSXGames\" & $sEBOOT & "\EBOOT.PBP", $Drive & "\PSP\GAME\"&$sEBOOT)
    Else
    DirCreate($Drive & "\PSP\GAME\CAT_" & $Cat& "\" &$sEBOOT)
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSXGames\" & $sEBOOT & "\EBOOT.PBP", $Drive & "\PSP\GAME\CAT_" & $Cat & "\"& $sEBOOT)
    EndIf
    Else
    GUIDelete($hGameCopyGUI)
    DirCreate($Drive & "\PSP\GAME\"& $sEBOOT)
    $bCopy = _ExplorerCopy(@ScriptDir & "\Data\PSXGames\" & $sEBOOT & "\EBOOT.PBP",$Drive & "\PSP\GAME\"& $sEBOOT )
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    ExitLoop
    EndSwitch
    WEnd
    GUISetState(@SW_ENABLE, $hGUI)
    GUISetState(@SW_RESTORE, $hGUI)
    EndFunc ;==>_PSXGameCopy2PSP

    [/autoit] [autoit][/autoit] [autoit]

    Func _SplitPfad($sPfad)
    Local $aSplit = StringSplit($sPfad, "\")
    Local $aSplit2 = StringSplit($aSplit[$aSplit[0]], ".")
    Local $aSplitpfad[UBound($aSplit)]
    $aSplitpfad[0] = $aSplit[1]
    $aSplitpfad[1] = $aSplit2[1]
    $aSplitpfad[2] = $aSplit2[2]
    For $x = 3 To UBound($aSplit) - 1
    $aSplitpfad[$x] = $aSplit[$x - 1]
    Next
    Return $aSplitpfad
    EndFunc ;==>_SplitPfad

    [/autoit] [autoit][/autoit] [autoit]

    Func _IsDirname($sName)
    If StringInStr($sName, "\") = True Then Return False
    If StringInStr($sName, "/") = True Then Return False
    If StringInStr($sName, ":") = True Then Return False
    If StringInStr($sName, "*") = True Then Return False
    If StringInStr($sName, "<") = True Then Return False
    If StringInStr($sName, ">") = True Then Return False
    If StringInStr($sName, "|") = True Then Return False
    If StringInStr($sName, '"') = True Then Return False
    Return True
    EndFunc ;==>_IsDirname

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetCatDir($Dir)
    Local $aAllDirs = _FileListToArray($Dir, "*", 2)
    Local $aCatDirs[1] = [0]
    For $x = 1 To UBound($aAllDirs) - 1
    If StringLeft($aAllDirs[$x], 4) = "CAT_" Then
    _ArrayAdd($aCatDirs, StringTrimLeft($aAllDirs[$x], 4))
    $aCatDirs[0] += 1
    EndIf
    Next
    If $aCatDirs[0] = 0 Then Return 0
    _ArrayDelete($aCatDirs, 0)
    Return $aCatDirs
    EndFunc ;==>_GetCatDir

    [/autoit] [autoit][/autoit] [autoit]

    Func _ArrayCombinate(ByRef $avArrayTarget, $avArraySource)
    If Not IsArray($avArrayTarget) Then Return SetError(1, 0, 0)
    If Not IsArray($avArraySource) Then Return SetError(2, 0, 0)
    If UBound($avArrayTarget, 0) <> 1 Then
    If UBound($avArraySource, 0) <> 1 Then Return SetError(5, 0, 0)
    Return SetError(3, 0, 0)
    EndIf
    If UBound($avArraySource, 0) <> 1 Then Return SetError(4, 0, 0)

    [/autoit] [autoit][/autoit] [autoit]

    Local $iUBoundTarget = UBound($avArrayTarget), $iUBoundSource = UBound($avArraySource)
    ReDim $avArrayTarget[$iUBoundTarget + $iUBoundSource]
    For $i = 0 To $iUBoundSource - 1
    $avArrayTarget[$iUBoundTarget + $i] = $avArraySource[$i]
    Next

    [/autoit] [autoit][/autoit] [autoit]

    Return $iUBoundTarget + $iUBoundSource
    EndFunc ;==>_ArrayCombinate

    [/autoit]

    Mfg Keyle

    Hallo Keyle,

    lass den Stil $WS_BORDER bei der Erstellung weg:

    [autoit]

    $hPSPVorschau = GUICtrlCreatePic("", 510, 44, 313, 553, $WS_BORDER)

    [/autoit]

    dann werden die Bilder nicht skaliert,

    Edit: hat komischerweise beim 1. Versuch geklappt und dann nie mehr (auch nicht mit dem gleichen JPG). Die Bilder werden aber genau in der Grösse angezeigt, die das Control hat,
    mfg (Auto)Bert

    Einmal editiert, zuletzt von AutoBert (7. März 2010 um 16:11)

    Edit: also bei mir klappts auch beim 2. mal noch . . . kurrios und wiso sollte man den Border Style nich benutzen dürfen/können????

    Stimmt die werden nicht mehr skaliert, Danke

    Das machen die aber erst seit der neuen Version von AutoIt ;(
    naja muss ich ohne Border Leben :D

    nochmal Danke :thumbup:

    Mfg Keyle