Текущий архив: 2002.07.15;
Скачать: CL | DM;
Вниз
Люди помогите плииииииииииизззз!!!!!!!!! Найти похожие ветки
← →
Lot © (2002-06-28 01:24) [0]Как в дельфи поменять системное время и дату ??????????
← →
nimble © (2002-06-28 02:37) [1]Для этого существуют процедуры SetLocalTime и SetSystemTime, которые устанавливают местное время и системное время (в формате UTC) procedure GetSystemTime(var lpSystemTime: TSystemTime);
где TSystemTime есть тип-запись, определенная следующим образом:
TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
← →
MARcoDEN © (2002-06-28 07:33) [2]
function SetTime(DateTime:TDateTime):Boolean;
var
st:TSystemTime;
ZoneTime: TTimeZoneInformation;
begin
GetTimeZoneInformation(ZoneTime);
DateTime:=DateTime+ZoneTime.Bias/1440;
with st do begin
DecodeDate(DateTime,wYear,wMonth,wDay);
DecodeTime(DateTime,wHour,wMinute,wSecond,wMilliseconds);
end;
result:=SetSystemTime(st);
end;
Страницы: 1 вся ветка
Текущий архив: 2002.07.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
