| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Время из системных часов

Ivanov ©   (2004-04-17 05:21:00) 

Мастера, не подскажете, как заполучить в свою программу время из системных часов.

---

opoloXAI   (2004-04-18 13:19:00) [1]

1-й вариант:

procedure TForm1.Timer1Timer(Sender: TObject);
var sysDT: SyStemTime;
begin
    GetLocalTime(sysDT);
    Label1.Caption:=IntToStr(sysDT.wHour);
    Label2.Caption:=IntToStr(sysDT.wMinute);
    Label3.Caption:=IntToStr(sysDT.wSecond);
// и так далее sysDT...
end;

2-й вариант:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Label4.Caption:=TimeToStr(Time);
end;

---

kat   (2004-04-17 13:43:00) [2]

getsystemtime

---

Shubin   (2004-04-17 06:57:00) [3]

Кинь на форму label и Timer


Label1.Caption:=FormatDateTime('hh:nn:ss',Now);

Усё!

---

KSergey   (2004-04-17 06:51:00) [4]

Time

---

Shubin   (2004-04-17 06:45:00) [5]

Не пойму:тебе надо вывести на свою форму системное время?

---

Наверх