Добрый день!
Есть скрипт
Как вывести результат в не в Label, а 1 и 2 части Statusbar по центру в каждом?
Спасибо
Есть скрипт
Код:
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[4] = [150, 300, 450, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "", 0)
_GUICtrlStatusBar_SetText($StatusBar1, "", 1)
_GUICtrlStatusBar_SetText($StatusBar1, "", 2)
_GUICtrlStatusBar_SetText($StatusBar1, "", 3)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 17)
$regUAC = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System', 'EnableLUA')
$LabelAdmin = GUICtrlCreateLabel('', 10, 372, 200, 17)
$LabelUAC = GUICtrlCreateLabel('', 130, 372, 200, 17)
GUISetState(@SW_SHOW)
;~ Проверка Администратор
If IsAdmin() Then
GUICtrlSetData($LabelAdmin, "admin")
Else
GUICtrlSetData($LabelAdmin, "not admin")
EndIf
;~ Проверка UAC
Switch $regUAC
Case 1
GUICtrlSetData($LabelUAC, "UAC on")
Case 0
GUICtrlSetData($LabelUAC, "UAC off")
Case Else
MsgBox(0, "", "unknown")
EndSwitch
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Как вывести результат в не в Label, а 1 и 2 части Statusbar по центру в каждом?
Спасибо