VPF::Как изменить системное время? - Форум программистов

EKoshelev

Дата 19.12.2014, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 509
Регистрация: 1.9.2004

Репутация: нет
Всего: нет

Всем кто интересовался этим вопросом известен код:

Код


var
  NewSystemTime : TSystemTime;
 
begin
  NewSystemTime.wYear  := 2003;
  NewSystemTime.wMonth := 11;
  NewSystemTime.wDayOfWeek := 2;
  NewSystemTime.wDay := 1;
  NewSystemTime.wHour:=0;
  NewSystemTime.wMinute:=0;
  NewSystemTime.wSecond:=0;
  NewSystemTime.wMilliseconds:=0;
 
  SetSystemTime(NewSystemTime);
end;

Я пишу то же самое, но время не меняется. SetSystemTime возвращает true. Может я что-то не так делаю?

***********************

Блин. На самом деле всё работало. Просто я присваивал гринвичское время. А на компе поправка стоит на три часа, вот я и думал, что оно не изменяется.

Это сообщение отредактировал(а) EKoshelev - 19.12.2014, 13:25

--------------------

Вежливым и адекватным предлагаю общаться на "ты".

EKoshelev

Дата 19.12.2014, 12:19 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 509
Регистрация: 1.9.2004

Репутация: нет
Всего: нет

Нашел ещё вот такое:

Код


Procedure settime(hour, min, sec, hundreths : byte); assembler;
asm
mov ch, hour
mov cl, min
mov dh, sec
mov dl, hundreths
mov ah, $2d
int $21
end;



Procedure setdate(Year : word; Month, Day : byte); assembler;
asm
mov cx, year
mov dh, month
mov dl, day
mov ah, $2b
int $21
end;

Глючит на int $21 (Access violation. Read of address FFFFFFFF);

--------------------

Вежливым и адекватным предлагаю общаться на "ты".

ТоляМБА

Дата 19.12.2014, 18:30 (ссылка)

(голосов:1)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: нет
Всего: 252

EKoshelev, это из-за "контроля учетных записей (UAC)" ссылка. Если включены уведомления, то работать твой код (из первого поста не будет).

Вариантов выхода два:
1 - выключить уведомления (чем это чревато читай ссылку) - Пуск -> Панель управления -> Учетные записи пользователей -> Изменение параметров контроля учетных записей -> Бегунок в самый низ (никогда не уведомлять) -> Ok -> Пуск -> Перезагрузка.
2 - более правильный выход это запуск и Делфи и потом получившегося экзешника с правами администратора (надеюсь знаешь как это делать), создайте для этого ярлыки чтобы каждый раз правую кнопку мыши не жать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »