[266903582]

D_Master,

Код:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 214, 161)
$Label1 = GUICtrlCreateLabel("Label1", 80, 64, 252, 65)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
		GUICtrlSetData($Label1,@HOUR&" : "&@MIN&" : "&@SEC)
WEnd

266903582, это понятно, но как это реализовать именно в моей форме?

[Creat0R]

Внизу формы есть лейбл, куда по идее должны писаться дата/время, что у меня и не получается »

Они не пишутся так как дело до цикла вовсе не доходит - Попробуй так:

Код:

#NoTrayIcon
#include <GUIConstants.au3>
;

Opt("GUIOnEventMode", 1)

$mainForm = GUICreate("Установка программ", 640, 260)
GUISetFont(10, 400, 0, "Tahoma")
GUISetBkColor(0xFFFFFF)

$lblCurrentProg = GUICtrlCreateLabel("Установка:", 19, 112, 100, 20)
$textCurrentProg = GUICtrlCreateLabel("", 120, 112, 500, 20)
$lblDescription = GUICtrlCreateLabel("Описание:", 19, 142, 66, 20)
$lblStatus = GUICtrlCreateLabel("Ход установки:", 19, 216, 100, 20)
$textDescription = GUICtrlCreateLabel("", 120, 142, 500, 20)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\head.jpg", 0, 0, 640, 103)
$count = GUICtrlCreateLabel("", 120, 216, 500, 20)
$Label2 = GUICtrlCreateLabel("", 19, 200, 4, 4)
$lblAuthor = GUICtrlCreateLabel("Производитель:", 19, 172, 95, 20)
$textAuthor = GUICtrlCreateLabel("", 120, 172, 500, 20)
$timeDate = GUICtrlCreateLabel("", 408, 232, 220, 20)

GUISetState(@SW_SHOW)

AdlibEnable("SetTime_Proc", 1000)
StartProcess()

While 1
    Sleep(100)
WEnd

Func SetTime_Proc()
    $sTimeDate = StringFormat("Время | дата: %s.%s.%s. | %s:%s:%s", @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC)
    GUICtrlSetData($timeDate, $sTimeDate)
EndFunc

Func StartProcess()
    $sTimeDate = StringFormat("Время | дата: %s.%s.%s. | %s:%s:%s", @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC)
    GUICtrlSetData($timeDate, $sTimeDate)
    Sleep(100)
    GUICtrlSetData($textCurrentProg, "Программа 1")
    GUICtrlSetData($textDescription, "Описание программы 1")
    GUICtrlSetData($textAuthor, "Производитель 1")
    GUICtrlSetData($count, "программа 1 из 5")
    Sleep(2000)
    GUICtrlSetData($textCurrentProg, "Программа 2")
    GUICtrlSetData($textDescription, "Описание программы 2")
    GUICtrlSetData($textAuthor, "Производитель 2")
    GUICtrlSetData($count, "программа 2 из 5")
    Sleep(2000)
    GUICtrlSetData($textCurrentProg, "Программа 3")
    GUICtrlSetData($textDescription, "Описание программы 3")
    GUICtrlSetData($textAuthor, "Производитель 3")
    GUICtrlSetData($count, "программа 3 из 5")
    Sleep(2000)
    GUICtrlSetData($textCurrentProg, "Программа 4")
    GUICtrlSetData($textDescription, "Описание программы 4")
    GUICtrlSetData($textAuthor, "Производитель 4")
    GUICtrlSetData($count, "программа 4 из 5")
    Sleep(2000)
    GUICtrlSetData($textCurrentProg, "Программа 5")
    GUICtrlSetData($textDescription, "Описание программы 5")
    GUICtrlSetData($textAuthor, "Производитель 5")
    GUICtrlSetData($count, "программа 5 из 5")
    Sleep(2000)
    GUICtrlSetData($textCurrentProg, "")
    GUICtrlSetData($textDescription, "")
    GUICtrlSetData($textAuthor, "")
    GUICtrlSetData($count, "установка программ завершена!")
    Sleep(2000)

    Exit
EndFunc

Creat0R, Вы волшебник!!! спасибо большое!!!