Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2012, 14:21   #1
Артур31
Пользователь
 
Регистрация: 09.11.2012
Сообщений: 16
Сообщение WIN API функции в Delphi

Узнать текущие время и дату за Гринвичем с помощью функии GetLocalTime или GetSystemTime
Артур31 вне форума Ответить с цитированием
Старый 30.11.2012, 14:32   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
var 
lt : TSYSTEMTIME; 
st : TSYSTEMTIME; 
S:string;
begin 
GetLocalTime(lt); 
GetSystemTime(st); 
s:='LocalTime = ' + IntToStr(lt.wmonth) + '/' + IntToStr(lt.wDay) ;
s:=s+ '/' + IntToStr(lt.wYear) + ' ' + IntToStr(lt.wHour) ;
s:=s+ ':' + IntToStr(lt.wMinute) + ':' + IntToStr(lt.wSecond)); 
Memo1.Lines.add(s);
s:='UTCTime = ' + IntToStr(st.wmonth) ;
s:=s+ '/' + IntToStr(st.wDay) + '/' + IntToStr(st.wYear) + ' ' + IntToStr(st.wHour) + ':' ;
s:=s+ IntToStr(st.wMinute) + ':' + IntToStr(st.wSecond)); 
Memo1.Lines.add(s);
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 30.11.2012 в 14:35.
Mad_Cat вне форума Ответить с цитированием
Старый 30.11.2012, 15:07   #3
Артур31
Пользователь
 
Регистрация: 09.11.2012
Сообщений: 16
По умолчанию

спасибо!!!!
Артур31 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi win api функции посылка сообщений iCaesy Общие вопросы Delphi 3 18.12.2011 18:52
С++ Builder и функции Win API Assemblerru C++ Builder 15 09.08.2011 10:23
Win API, чайник и Delphi Crabobass Общие вопросы Delphi 2 19.04.2011 11:29
Win API aleks_n Общие вопросы Delphi 0 15.09.2008 11:07