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

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

Как поменять время ? [D6, WinXP]

Morg ©   (2004-02-29 19:52:00) 

Этот код меняет время и дату, а как синхронизировать что-то одно.

function SetPCSystemTime(tDati: TDateTime): Boolean;
var
 tSetDati: TDateTime;
 vDatiBias: Variant;
 tTZI: TTimeZoneInformation;
 tST: TSystemTime;
begin
 GetTimeZoneInformation(tTZI);
 vDatiBias := tTZI.Bias / 1440;
 tSetDati := tDati + vDatiBias;
 with tST do
 begin
   wYear := StrToInt(FormatDateTime('yyyy', tSetDati));
   wMonth := StrToInt(FormatDateTime('mm', tSetDati));
   wDay := StrToInt(FormatDateTime('dd', tSetDati));
   wHour := StrToInt(FormatDateTime('hh', tSetDati));
   wMinute := StrToInt(FormatDateTime('nn', tSetDati));
   wSecond := StrToInt(FormatDateTime('ss', tSetDati));
   wMilliseconds := 0;
 end;
 SetPCSystemTime := SetSystemTime(tST);
end;


P.S. знаю что ламер Ж)

---

Novichok   (2004-02-29 20:03:00) [1]


SetPCSystemTime(date+strtotime('19:01:33'));


Дату он меняет на ту же самую, а время на то что в скобках :)

---

Morg   (2004-02-29 20:03:00) [2]

спасибо

---

Наверх