Потребовалось мне сменить системное время программно.
Как это сделать средствами Хиасма не нашел, зато нашел как это можно сделать на Delphi
Не долго думая взял компонент "вставка кода", открыл его и не могу сообразить между каких строк надо вставлять свой код.
В delphi я не силен, но знаю что есть begin и end а между ними текст программы
Подскажите как быть
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;|
}
Поиск
Друзья
Администрация