Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.03;
Скачать: CL | DM;

Вниз

Надо уменьшать системное время ?   Найти похожие ветки 

 
Дмитрий Д. ©   (2002-07-24 07:49) [0]

подскажите где я не прав ?

var
NewTime: SYSTEMTIME;
Year, Month,Day, Hour, Min, Sec, MSec: Word;
begin
DecodeTime(now, Hour, Min, Sec, MSec);
DecodeDate(now, Year, Month, Day);
NewTime.wYear := Year;
NewTime.wMonth := Month;
NewTime.wDayOfWeek:=DayOfWeek(now);
NewTime.wDay := Day;
NewTime.wHour := Hour;
NewTime.wMinute := Min-1;
NewTime.wSecond := 0;
NewTime.wMilliseconds := 0;
setsystemtime(NewTime);

и будет ли работать такой код под ХР ?


 
han_malign   (2002-07-24 10:51) [1]

2002/10/23:15.00.00.00
==>
2002/10/23:15. -1.00.00 ??? (word(-1)=$FFFF)

P.S. DateTimeToSystemTime(now-1/(24*60),NewTime)- без всяких коллизий (даже в Новый Год - на високосный), все остальное Win32 API и должно работать (разве что с правами админа какая бяка).

P.P.S.
Remarks

Windows NT: The SetSystemTime function fails if the calling process does not have the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default. Use the AdjustTokenPrivileges function to enable this privilege and again to disable it after the time has been set. For more information about security privileges, see Privileges.
Windows 95: Security privileges are not supported or required.

P.P.P.S
now - дает локальное время, а SetSystemTime устанавливает UTC,
так что пользовать нужно SetLocalTime



Страницы: 1 вся ветка

Текущий архив: 2002.10.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-7907
pvasya
2002-09-23 13:37
2002.10.03
waveOutGetVolume


3-7867
Evgen123
2002-09-13 09:43
2002.10.03
Вопрос MS SQL7.0 D5


3-7812
Serg2002
2002-09-12 10:32
2002.10.03
Как использовать RxMemoryData из RxLibrary.


6-8092
phantom_17
2002-07-29 12:35
2002.10.03
Поиск


1-8053
X-Shadow
2002-09-22 06:20
2002.10.03
Помогите в этим пожалуйста