Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

системное время   Найти похожие ветки 

← →
Костя   (2004-12-08 19:44) [0]

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

---

← →
VMcL ©   (2004-12-08 20:02) [1]

InsertSystemTime

---

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

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

GetMestoDlyaSystemTime(self);
InsertSystemTime

---

← →
Alexander Panov ©   (2004-12-08 22:32) [3]

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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.038 c