Форум: "WinAPI";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Внизсистемное время Найти похожие ветки
← →
Костя (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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.038 c