 |
Как узнать текущие время и дату используя 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;
|
| Категория: Примеры | Добавил: dolphin (22.01.2013)
|
| Просмотров: 3554
| Рейтинг: 5.0/1 |
|
| Профиль |
 | |
 |
| Поиск |
| |
|
| Наша кнопка |
|
|
|
|
Статистика
|
|
Статистика материалов Файлов: 457 Форум: 1176/8168 Коментариев: 767 Новостей: 29
Статистика пользователей Всего: 388 За неделю: 2 Вчера: 1 Сегодня: 0
Всего онлайн: 36 Гостей: 36 Пользователей: 0
|
|
|
