Главная страница
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.014 c
1-7889
Igor1
2002-09-23 11:06
2002.10.03
Интересная задачка! Делаем движение курсор мыши ПЛАВНЫМ


1-8025
kex86
2002-09-20 02:11
2002.10.03
ImageIndex ы


14-8176
Lamer86
2002-09-04 21:23
2002.10.03
Как узнать IP человека, который написал мне письмо?


3-7870
elektro
2002-09-12 11:49
2002.10.03
Компоненты FIBPlus 4.6


14-8147
kolobok11
2002-09-09 10:25
2002.10.03
Винты, винты, винты ...