Форум: "WinAPI";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
ВнизКак изменить системное время с помощью 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 часа больше
← →
umbra © (2005-12-08 19:53) [6]и сегодня не понедельник, а четверг
← →
Volf_555 (2005-12-08 19:54) [7]umbra © (08.12.05 19:52) [4]
28 марта 2000 года был не понедельник, а вторник
Знаю... это просто для проверки этот код использовал я
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.064 c