системное время

← →
Костя (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

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.

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