Скрипты O’Basic

12.08.2016 - Автор: - Категория: Без рубрики - Нет комментариев 
WinDir$=GetWinDir()
CurTime# = Clock.SystemTime#
Msg$ = Clock.Format(CurTime#, "Время и дата: $D, $M #d, #Y, at #h:#n:#s $P")
Msg2$= "Серийный номер диска:"
SerNum# = GetDiskSerialNumber("C:\")

frmStart.Title$ = "O'Basic"
frmStart.Static1.Text$ =Msg2$
frmStart.Static2.Text$ = Str(SerNum#)
frmStart.Static3.Text$ = Msg$
ReturnedBy$ = frmStart.Show(fsModal@)