Как изменить системное время с помощью Delphi?

← →
Volf_555 (2005-12-08 19:20) [0]

Следующий код ничего изменять не хочет:

procedure TForm1.Button1Click(Sender: TObject); var NewTD: TSYSTEMTIME; begin NewTD.wYear:=2000; NewTD.wMonth:=3; NewTD.wDay:=28; NewTD.wDayOfWeek:=1; NewTD.wHour:=12; NewTD.wMinute:=12; NewTD.wSecond:=12; NewTD.wMilliseconds:=0;} SetSystemTime(NewTD); end;

В чём неправильность кода?!

← →
Virgo_Style © (2005-12-08 19:24) [1]

afaik, нужно получить привилегию на изменение времени

← →
Anatoly Podgoretsky © (2005-12-08 19:27) [2]

Привилегия систем, а не пользователя.

← →
Volf_555 (2005-12-08 19:35) [3]

А следующий код работает!

procedure TForm1.Button1Click(Sender: TObject);
var
NewTD: TSYSTEMTIME;
a:Boolean;
begin
NewTD.wYear:=2005;
NewTD.wMonth:=12;
NewTD.wDay:=8;
NewTD.wDayOfWeek:=1;
NewTD.wHour:=16;
NewTD.wMinute:=23;
NewTD.wSecond:=12;
NewTD.wMilliseconds:=0;
a:=SetSystemTime(NewTD);
if a=True then
ShowMessage("Настройки благополучно изменены") else
ShowMessage("Что-то не то в коде");
end;

Странно, однако....

← →
umbra © (2005-12-08 19:52) [4]

28 марта 2000 года был не понедельник, а вторник

← →
Volf_555 (2005-12-08 19:52) [5]

Вдобавок - этот код изменяет всё нормально, кроме часов. При использовании этого кода вместо 16 часов выползает 18 часов, то есть на 2 часа больше

и сегодня не понедельник, а четверг

← →
Volf_555 (2005-12-08 19:54) [7]

umbra © (08.12.05 19:52) [4]
28 марта 2000 года был не понедельник, а вторник

Знаю... это просто для проверки этот код использовал я

Как изменить системное время с помощью Delphi? Найти похожие ветки