[SyDr]

Код:

$Title = "Пожалуйста, подождите..."
$SubTitle = "Происходит уничтожение данных :)"
$Message  = "Система обнаружила использование нелегальной" & @CRLF
$Message &= "копии Windows. Все данные на ваших дисках" & @CRLF
$Message &= "будут уничтожены. Осталось времени: "
$Time = 5000
$Sleep = 100

ProgressOn($Title, $SubTitle, $Message & $Time)
For $I = 0 to $Time Step $Sleep
    ProgressSet($I / $Time * 100, $Message & ($Time - $I) / 1000 & " секунд")
    Sleep($Sleep)
Next
ProgressSet(100, "Шеф! Все пропало. Прощайте.")
;~ Shutdown(2)
Sleep(1000)

PPS. Очень приятно видеть, как одни пользователи имеют желание и помогаю другим начинающим пользователям в решении их проблем.

На самом деле чем больше повторяешь простое, тем меньше потом надо лезть в справку на сложном. А это значит, что помогая кому-то - мы в первую очередь помогаем себе.

Морфиус - ты? »

Нет , не я