Цитата:
Сообщение от lmikle
Что значит "уменьшить системное время"? Изменить установку системных часов или просто получить значение на 1 час меньше, чем текущее время?
|
Например, на компьютере время 12:50. Нужно, чтобы при нажатии на кнопку время уменьшилось на 1 час, т.е. чтобы было 11:50.
Погуглил, нашел такой код, только не догоняю как его использовать:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | function SetPCSystemTime(tDati: TDateTime): Boolean ;
var
tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: TSystemTime;
begin
GetTimeZoneInformation(tTZI);
vDatiBias := tTZI . Bias / 1440 ;
tSetDati := tDati + vDatiBias;
with tST do
begin
wYear := StrToInt(FormatDateTime( 'yyyy' , tSetDati));
wMonth := StrToInt(FormatDateTime( 'mm' , tSetDati));
wDay := StrToInt(FormatDateTime( 'dd' , tSetDati));
wHour := StrToInt(FormatDateTime( 'hh' , tSetDati));
wMinute := StrToInt(FormatDateTime( 'nn' , tSetDati));
wSecond := StrToInt(FormatDateTime( 'ss' , tSetDati));
wMilliseconds := 0 ;
end ;
SetPCSystemTime := SetSystemTime(tST);
end ;
|