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

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

системное время [D7, WinXP]

Костя ©   (2004-12-08 19:44:00) 

Как в программу всунуть системное время

---

Alexander Panov   (2004-12-08 22:32:00) [1]

program SetTime;
uses
 Windows, SysUtils, IdTime;

var
 CurrTime: TDateTime;
 st: TSystemTime;
 YY,MM,DD,HH,NN,SS,MS: Word;
begin
 CurrTime := Now;
   try
     with tIdTime.Create(nil) do
     begin
//        Host := 'ntps1-0.uni-erlangen.de';
       Host := '192.168.0.1';
       try
         CurrTime := DateTime;
       except
         Free;
       end;
       Free;
     end;
   except
   end;
   GetLocalTime(st);
   DecodeDate(CurrTime,YY,MM,DD);
   DecodeTime(CurrTime,HH,NN,SS,MS);
   st.wYear := YY;
   st.wMonth := MM;
   st.wDay := DD;
   st.wHour := HH;
   st.wMinute := NN;
   st.wSecond := SS;
   st.wMilliseconds := MS;
   SetLocalTime(st);
end.

---

System Time   (2004-12-08 21:39:00) [2]

Нет так я туда не всунусь. Надо так.

GetMestoDlyaSystemTime(self);
InsertSystemTime

---

VMcL   (2004-12-08 20:02:00) [3]

InsertSystemTime

---

Наверх