Устанавливаем год на компьютере — 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 секунда.