Текущий архив: 2004.11.28;
Скачать: CL | DM;
Вниз
системное время и дата Найти похожие ветки
← →
Viper © (2004-10-15 22:48) [0]1)как отследить изменение системного времени и даты и
2)как программно изменить системное время и дату
3)как запретить изменять ситемное время и дату
← →
GuAV © (2004-10-15 23:04) [1]
> 1)как отследить изменение системного времени и даты и
WM_TIMECHANGE
> 2)как программно изменить системное время и дату
SetSystemTime
> 3)как запретить изменять ситемное время и дату
Никак. можно попытаться возвращать его при изменении. для этого можно заранее сохранять старое и результат GetTickCount. (Этот самый TickCount AFAIK никак не меняется)
← →
GuAV © (2004-10-15 23:08) [2]Хотя может насчёт никак я погорячился... можно фции API перевхватить :) или вообще отредактировать kernel32.dll :)
← →
Viper © (2004-10-16 11:58) [3]>SetSystemTime привиди пожалуста пример использования любой
← →
GanibalLector © (2004-10-16 12:30) [4]
function SetNewDateTime(Value: TDateTime): boolean;
var
tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: TSystemTime;
begin
GetTimeZoneInformation(tTZI);
vDatiBias := tTZI.Bias / 1440;
tSetDati := Value + 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;
Result := Windows.SetSystemTime(tST);
end;
← →
Viper © (2004-10-16 20:18) [5]спасибо за помощь
Страницы: 1 вся ветка
Текущий архив: 2004.11.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
