#include-once "Constants.au3"
#include-once "memstats.au3"
#include-once "String.au3"
#include-once "config.au3"
#include-once "ButtonConstants.au3"
#include-once "EditConstants.au3"
#include-once "GUIConstantsEx.au3"
#include-once "WindowsConstants.au3"
#include-once "CompInfo.au3"
#include-once "Array.au3"
#include-once "GUIListBox.au3"
#include-once "TabConstants.au3"
;----------------------------Computer Info----------------------------------------------
#Region ### START Koda GUI section ### Form=
	$formSystemInfo = GUICreate("System Information", 900, 600, 1218, 887)
	;Create System Tabs
	$tab1 = GUICtrlCreateTab(16, 16,850,417)
	Dim $GUI_DOCKWIDTH, $GUI_DOCKHEIGHT, $GUI_SHOW
	GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
	Dim $tabItem, $tabArray[7] = ["Hard Drive", "Bios", "Services", "Running Processes", "Display", "System", "Print"]
	For $i = 1 To $tabArray[0] Step 1
		$tabItem[$i] = GUICtrlCreateTabItem($tabArray[$i])
	Next
	GUICtrlSetState(-1,$GUI_SHOW)
	GUICtrlCreateTabItem("")
Func GetDriveInfo()
	;Drive Info
	;Testing ListBox for Drive
	$ListView = GUICtrlCreateListView("Drive# | Label | Drive | FileSystem | Serial Number | " & _
	"Free Space | Total Space ", 10, 75, 850, 500)
	Dim $Drives
	_ComputerGetDrives($Drives) ;Defaults to "FIXED"
	For $i = 1 To $Drives[0][0] Step 1
		$sData = $i & "|"
		$sData &= $Drives[$i][2] & "|" & $Drives[$i][0] & "|" & $Drives[$i][1] & "|" & $Drives[$i][3] & "|" 
		$sData &= Round($Drives[$i][4]/1024,2) & "GB" & "|" & Round($Drives[$i][5]/1024,2) & "GB"
		GUICtrlCreateListViewItem($sData, $ListView)
	Next
	
EndFunc
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case $msg = 0
            ContinueLoop

	EndSwitch
WEnd