Вторник, 05.06.2018, 11:43 Приветствую вас Гость | Группа "Гости"

Меню сайта
	Главная Файлы Форум Статьи Гостевая Инфо о сайте

Категории раздела

Вирусология [39]

Статьи о вирусах

Системные [0]

Работа с системой

Примеры [44]

Приёмы, функции, процедуры

Ceти [1]

Работа с интернет

Приколы [5]

Пишем шуточные програмки

Остальное [5]

Всё что не вошло

Недавние темы

Расчет энтропии (B64D919B)

(4)

(1)

(2)

(1)

(13)

(1)

(1)

Опрос
	Нужно ли ограничение (регистрация) при скачке файлов? Да Нет Мне всё равно! Результаты \| Архив опросов Всего ответов: 347

Главная » Статьи » Delphi » Примеры

Как узнать текущие время и дату используя API

Используя API фукцию GetSystemTime Пример: procedure TForm1.Button1Click(Sender: TObject); var lt : TSYSTEMTIME; st : TSYSTEMTIME; begin GetLocalTime(lt); GetSystemTime(st); Memo1.Lines.Add('LocalTime = ' + IntToStr(lt.wmonth) + '/' + IntToStr(lt.wDay) + '/' + IntToStr(lt.wYear) + ' ' + IntToStr(lt.wHour) + ':' + IntToStr(lt.wMinute) + ':' + IntToStr(lt.wSecond)); Memo1.Lines.Add('UTCTime = ' + IntToStr(st.wmonth) + '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' + IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond)); end;
1 2 3 4 5 Категория: Примеры \| Добавил: dolphin (22.01.2013)
Просмотров: 1967 \| Комментарии: 1 \| Рейтинг: 5.0/1

Профиль

Статистика
	Статистика материалов Файлов: 365 Форум: 1133/8049 Коментариев: 785 Новостей: 27 Статистика пользователей Всего: 372 За неделю: 5 Вчера: 1 Сегодня: 2 Всего онлайн: 3 Гостей: 2 Пользователей: 1 Stance1978