Add(MainForm,9557352,21,105)
{
 Left=20
 Top=105
}
Add(InlineCode,2648140,182,196)
{
 WorkPoints=#5:tDati|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|0:|5: end;|0:|14:implementation|0:|4:end.|0:|0:|0:|42://****************************************|42:// Функция (раздел Public) SetPCSystemTime|35:// изменяет системную дату и время.|41:// Параметр(ы) : tDati Новые дата и время|52:// Возвращаемые значения: True - успешное завершение|27:// False - метод несработал|42://****************************************|52:function SetPCSystemTime(tDati: TDateTime): Boolean;|3:var|22:  tSetDati: TDateTime;|21:  vDatiBias: Variant;|29:  tTZI: TTimeZoneInformation;|19:  tST: TSystemTime;|5:begin|31:  GetTimeZoneInformation(tTZI);|32:  vDatiBias := tTZI.Bias / 1440;|32:  tSetDati := tDati + vDatiBias;|13:  with tST do|7:  begin|56:    wYear := StrToInt(FormatDateTime('yyyy', tSetDati));|55:    wMonth := StrToInt(FormatDateTime('mm', tSetDati));|53:    wDay := StrToInt(FormatDateTime('dd', tSetDati));|54:    wHour := StrToInt(FormatDateTime('hh', tSetDati));|56:    wMinute := StrToInt(FormatDateTime('nn', tSetDati));|56:    wSecond := StrToInt(FormatDateTime('ss', tSetDati));|23:    wMilliseconds := 0;|6:  end;|40:  SetPCSystemTime := SetSystemTime(tST);|4:end;|
}