Что нового

Авторан для диска

espec

Новичок
Сообщения
2
Репутация
0
Вот код авторана
авторан:
#NoTrayIcon
#RequireAdmin

#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>

$MainWin = GUICreate("Install Menu", 297, 322,- 1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU))

$b1 = GUICtrlCreateButton("Windows 7 64-bit", 8, 8, 281, 65)
$b2 = GUICtrlCreateButton("Windows 8.1 64-bit", 8, 80, 281, 65)
$b3 = GUICtrlCreateButton("Windows 10 64-bit", 8, 152, 281, 65)
$b4 = GUICtrlCreateButton("Windows 10 32-bit", 8, 224, 281, 65)

$link = GUICtrlCreateLabel("http://www.1.ru/", 88, 296, 121, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")

GUICtrlSetBkColor(-1, 0xFFFFFF)

GUISetIcon("icon.ico")

GUISetState(@SW_SHOW)

FileChangeDir(@ScriptDir)

Global $setup = "sources\setup.exe /installfrom:"

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

  Case $b1 ; Windows 7 64-bit
   Run($setup & "WinImage\Win7Ult64.esd")

  Case $b2 ; Windows 8.1 64-bit
   Run($setup & "WinImage\Win81Pro64.wim")

  Case $b3 ; Windows 10 64-bit
   Run($setup & "WinImage\Win10Pro64.esd")

  Case $b4 ; Windows 10 32-bit
   Run($setup & "WinImage\Win10Pro86.esd")

  Case $link
   ShellExecute("http://www.1.ru")
 EndSwitch
WEnd
Подскажите как добавить:
ико перед каждым пунктом
текст выровнять влево
под ссылкой добавить просто текст
 

Tempo

Скриптер
Сообщения
560
Репутация
176
Подскажите как добавить:

ико перед каждым пунктом
GUICtrlSetImage
текст выровнять влево
Стиль $BS_LEFT
под ссылкой добавить просто текст
Создать еще один GUICtrlCreateLabel
 
Верх