Установка системного времени

← →
_ALEXey_ © (2003-04-22 08:11) [0]

Здравствуйте!

Проблема:
Необходимо программно устанавливать системное время. По Win9x - все просто SetSystemTime, а под WinNT необходимо установить привилегии - это я знаю. Но вот почему-то SeSystemtimePrivilege не работает!
Вопрос 1:
В чем загвоздка?

// увеличить время на 1 час procedure TForm1.Button1Click(Sender: TObject); var CurTime: _SYSTEMTIME; hToken: THandle; NewState: TOKEN_PRIVILEGES; D: DWord; begin D:= 0; OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken); NewState.PrivilegeCount:= 1; LookupPrivilegeValue(nil, "SeSystemtimePrivilege", NewState.Privileges[0].Luid); NewState.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, NewState, D, nil, D); CloseHandle(hToken); DecodeDate(Now, CurTime.wYear, CurTime.wMonth, CurTime.wDay); DecodeTime(Now, CurTime.wHour, CurTime.wMinute, CurTime.wSecond, CurTime.wMilliseconds); CurTime.wHour:= CurTime.wHour + 1; SetSystemTime(CurTime); end;

Вопрос 2:
Согласно коду, время должно увеличиваться на 1 час. Я проверял (с правами админа) - оно увеличивается на 7 часов. Почему так?

← →
Anatoly Podgoretsky © (2003-04-22 12:28) [1]

Ну наверно у тебя такое локальное время.

← →
_ALEXey_ © (2003-04-22 13:31) [2]

> Anatoly Podgoretsky ©

Какое уж есть!

← →
_ALEXey_ © (2003-04-24 18:41) [3]

С SetLocalTime такая же история. Ошибка 1314 - недостаточно прав. Какие еще привилегии нужны?

Отвечу сам себе на вопрос 2:
Надо было учесть временнУю зону.

SetSystemTime как раз для того, что бы не учитывать временную зону - в UTC
Для других случаев SetLocalTime

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