Delphi. Уменьшить системное время

[StudentMarat]

1) Как уменьшить системное время на 1 час??
2) Как найти абсолютную сумму чисел -5 45 -88 -78 ??

[Stilet]

Как уменьшить системное время на 1 час??

uses dateutils
...
var st:SYSTEMTIME;
...
DateTimeToSystemTime(now,st);dec(st.hour);
SetSystemTime(@st);
...

абсолютную сумму чисел -5 45 -88 -78

...:=abs(-5+45-88-78);

[StudentMarat]

Сообщение от Stilet

uses dateutils
...
var st:SYSTEMTIME;
...
DateTimeToSystemTime(now,st);dec(st.hour);
SetSystemTime(@st);
...

...:=abs(-5+45-88-78);

С абсолютной суммой разобрался. А насчет времени, почему-то у меня увеличивается время на 2 часа. Код использовал, который Вы написали. Это от часового пояса может зависеть??

Погуглил, наше этот код, только не догоняю, как его использовать

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;

[Stilet]

Это от часового пояса может зависеть??

Врядли. У меня все в порядке.

[StudentMarat]

Сообщение от Stilet

Врядли. У меня все в порядке.

Я не хочу показаться наглым, но не могли бы Вы выложить скомпилированную программу вместе с кодом на форум. На форме нужно просто разместить одну кнопку (Button) и чтобы каждый раз при нажатии на эту кнопку системное время уменьшалось на 1 час, т.е. например, ели время на компьютере 11:50, то при нажатии на кнопку время будет 10:50 и т.д.
Просто очень хочу понять, что у меня не получается. Заодно, может это и другим пригодится

[Stilet]

Ты прав, эта функция кое от чего зависит и на разных ОС работает по разному.
Используй SetLocalTime вместо SetSystemTime.

P.S. Между прочем мог бы не поленится в хелпе посмотреть See also, не было бы таких проблем.

[StudentMarat]

После нескольких часов поиска в интернете и благодаря помощи Stilet пришел к выводу, что нужно использовать такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  lt : TSystemTime;
begin
  GetLocalTime(lt);
  lt.wHour := lt.wHour - 1;
  SetLocalTime(lt);
end;

Здесь каждый раз при нажатии на кнопку системное время уменьшается на 1 час. Тестировал на операционной системе WindowsXP и Windows7. Все работает. Если я не прав, укажите ошибку.

[Stilet]

Раз работает - значит прав, че сомневаешся?

[StudentMarat]

Сообщение от Stilet

Раз работает - значит прав, че сомневаешся?

С моей точки зрения, все правильно. Тему можно закрыть