время и дата на winapi

[deadh5n1]

Подскажите как получить время и дату в делфи на winapi (без компонетов) чтобы далее занисти их в переменные ???

[_Dmitry]

http://www.programmersforum.ru/showp...92&postcount=5

[kommunist]

 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) +  ':' +          IntToSt(st.wSecond));     
end;

[_Dmitry]

GetLocalTime(lt); - местное время (если правильно установлен часовой пояс, Москва +3ч)
GetSystemTime(st); - время по Гринвичу.
http://ru.wikipedia.org/wiki/%D0%94%...B5%D0%BC%D1%8F