Установка времени и даты на локальном компьютере

Устанавливаем год на компьютере — GetLocalTime(tm); tm.wYear:= 2000; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем месяц на компьютере — GetLocalTime(tm); tm.wMonth:= 01; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем день на компьютере — GetLocalTime(tm); tm.wDay:= 01; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем часы на компьютере — GetLocalTime(tm); tm.wHour:= 0; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем минуты на компьютере — GetLocalTime(tm); tm.wMinute:= 0; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем секунды на компьютере — GetLocalTime(tm); tm.wSecond := 1; SetLocalTime(tm); // var tm: TSystemTime;
Устанавливаем миллисекунды на компьютере — GetLocalTime(tm); tm.wMilliseconds := 0; SetLocalTime(tm); // var tm: TSystemTime;

Пауза перед выполнением команды 1 секунда — sleep(1000);
Присвоение x значения времени в данный момент — x:= time; // x: tdatetime;
Присвоение x значения даты в данный момент — x:= date; // x: tdatetime;
Перевод даты в встроку — s:=datetostr(x); // x: tdatetime; s:string;
Перевод строки в дату — x:=strtodate(s); // x: tdatetime; s:string;
Прибавление к текущему времени 30 минут и присвоение результата переменной closetime — closetime:= opentime+strtotime(’00:00:30′);// closetime: tdatetime;

Функция возвращает время в милисекундах с начала старта Windows — function GetTickCount: DWORD; stdcall;

Пауза без зависания программы и загрузки процессора:

procedure Delay(Value: Cardinal); // процедура задержки
var
F, N: Cardinal;
begin
N := 0;
while N <= (Value div 10) do begin SleepEx(5, true); Application.ProcessMessages; Inc(N); end; F := GetTickCount; repeat Application.ProcessMessages; N := GetTickCount; until (N - F >= (Value mod 10)) or (N < F); end; Использование - Delay(1000); // Пауза 1 секунда.

Нашли ошибку в тексте?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *