"Multithreading" mit Gui

#include <file.au3>
#include <array.au3>
#include <guilistview.au3>
#include <sound.au3>

Global $path = @ScriptDir
Global $playindex = -1, $playid
Global $timer, $musicinfo, $maxplay
Global $pause = False
Global $OLD_pos

$Form1 = GUICreate("Musicplayer", 450, 200)
$GUI_listview = GUICtrlCreateListView("Play|Filename|Title|Interpret|Duration", 10, 10, 430, 100)
$GUI_pre = GUICtrlCreateButton("<<", 10, 120, 50)
$GUI_next = GUICtrlCreateButton(">>", 60, 120, 50)
$GUI_play = GUICtrlCreateButton("Play", 120, 120, 50)
$GUI_stop = GUICtrlCreateButton("Stop", 170, 120, 50)
$GUI_pause = GUICtrlCreateButton("Pause", 230, 120, 50)
$DISP_pos = GUICtrlCreateLabel("00:00:00", 300, 120, 50)
$GUI_pos = GUICtrlCreateSlider(10, 150, 430, 20)

$array = _FileListToArray($path, "*mp3")
$maxplay = $array[0]
Dim $musicinfo[$maxplay + 1][5]

For $i = 1 To $maxplay
	$info = _FileInfoExtended($path & "\" & $array[$i])
	$infotime = StringSplit($info[1][21], ":")

	$musicinfo[$i][0] = $array[$i] ;Filename
	$musicinfo[$i][1] = $info[1][16] ;Interpret
	$musicinfo[$i][2] = $info[1][10] ;Title
	$musicinfo[$i][3] = $info[1][21] ;Duration
	$musicinfo[$i][4] = ($infotime[1] * 3600 + $infotime[2] * 60 + $infotime[3]) * 1000 ;Duration in ms
	GUICtrlCreateListViewItem("|" & $musicinfo[$i][0] & "|" & $musicinfo[$i][1] & "|" & $musicinfo[$i][2] & "|" & $musicinfo[$i][3], $GUI_listview)
Next

GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $GUI_play
			$name = _GUICtrlListView_GetItemText($GUI_listview, Int(ControlListView($Form1, "", $GUI_listview, "GetSelected")), 1)
			$playindex = _ArraySearch($array, $name)
			_play($playindex)
		Case $GUI_stop
			_stop()
		Case $GUI_pause
			_pause()
		Case $GUI_next
			_next()
		Case $GUI_pre
			_pre()
	EndSwitch

	If $playindex <> -1 Then
		If TimerDiff($timer) > $musicinfo[$playindex][4] Then _next()
		$sound_per = Int(TimerDiff($timer) / $musicinfo[$playindex][4] * 100)
		If $sound_per <> GUICtrlRead($GUI_pos) Then GUICtrlSetData($GUI_pos, $sound_per)
		If _SoundPos($playid) <> $OLD_pos Then
			$OLD_pos = _SoundPos($playid)
			GUICtrlSetData($DISP_pos, _SoundPos($playid))
		EndIf
	EndIf
WEnd

Func _play($vPlayindex)
	_SoundStop($playid)
	$playid = _SoundOpen($path & "\" & $array[$vPlayindex])
	_playindex($vPlayindex)
	_SoundPlay($playid, 0)
	$timer = TimerInit()
EndFunc   ;==>_play

Func _stop()
	_SoundStop($playid)
EndFunc   ;==>_stop

Func _pause()
	If $pause = False Then
		$pause = True
		_SoundPause($playid)
		GUICtrlSetData($GUI_pause, "Resume")
	Else
		$pause = False
		_SoundResume($playid)
		GUICtrlSetData($GUI_pause, "Pause")
	EndIf
EndFunc   ;==>_pause

Func _next()
	If $playindex > $array[0] Then $playindex = 1
	If $playindex <> -1 Then
		$playindex += 1
		_play($playindex)
	EndIf
EndFunc   ;==>_next

Func _pre()
	If $playindex > $array[0] Then $playindex = 1
	If $playindex <> -1 Then
		$playindex -= 1
		_play($playindex)
	EndIf
EndFunc   ;==>_pre

Func _playindex($iPlay)
	For $i = 0 To $maxplay - 1
		If $i <> $iPlay - 1 Then
			_GUICtrlListView_SetItemText($GUI_listview, $i, "")
		Else
			_GUICtrlListView_SetItemText($GUI_listview, $i, ">")
		EndIf
	Next
EndFunc   ;==>_playindex

Func _FileInfoExtended($FolderOrFile)
	If Not FileExists($FolderOrFile) Then Return SetError(1)
	Local $objShell = ObjCreate("Shell.Application")
	Local $arrHeaders[34], $Type = 'F'
	If StringInStr(FileGetAttrib($FolderOrFile), 'D') Then
		Local $objFolder = $objShell.Namespace($FolderOrFile)
		$Type = 'D'
	Else
		Local $objFSO = ObjCreate("Scripting.FileSystemObject")
		Local $objFile = $objFSO.GetFile($FolderOrFile)
		Local $FileName = $objFSO.GetFileName($objFile)
		Local $objFolder = $objShell.Namespace($objFSO.GetParentFolderName($objFile))
	EndIf
	Local $arRet[1][34]
	For $i = 0 To 33
		$arrHeaders[$i] = $objFolder.GetDetailsOf($objFolder.Items, $i)
		$arRet[0][$i] = $arrHeaders[$i]
	Next
	For $strFileName In $objFolder.Items
		If $Type = 'F' And $objFolder.GetDetailsOf($strFileName, 0) <> $FileName Then ContinueLoop
		ReDim $arRet[UBound($arRet) + 1][34]
		For $i = 0 To 33
			$arRet[UBound($arRet) - 1][$i] = $objFolder.GetDetailsOf($strFileName, $i)
		Next
	Next
	Return $arRet
EndFunc   ;==>_FileInfoExtended

InetGet(xxx)

;Alles was man zeitgleich machen will hier runter