Системная дата и время

12 AM - это полдень или полночь?

2017-10-08T03:43:50+07:00

Очень-очень странные эти англоязычные люди... И счёт времени у них странный!

Вот так у них наступает полдень:

11:00 AM (11 утра)

12:00 PM <- полдень

1:00 PM (13 часов)

Итак 12 PM - это полдень, а 12 AM - это полночь

Время простаивания системы

2017-10-08T03:48:35+07:00

Code:

function LastInput: DWord;

var

LInput: TLastInputInfo;

begin

LInput.cbSize := SizeOf(TLastInputInfo);

GetLastInputInfo(LInput);

Result := GetTickCount - LInput.dwTime;

end;

//Example:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption := Format('System Idle since %d ms', [LastInput]);

end;

// The GetLastInputInfo function retrieves the time

// of the last input event.

// Minimum operating systems: Windows 2000

Время старта и завершения работы системы

2017-10-08T03:47:28+07:00

Вот так можно узнать дату/время загрузки или завершения работы системы (т.е. когда компьютер был выключен или перезагружен последний раз):

Подробнее...

Как долго запущена Windows?

2017-10-08T03:46:08+07:00

Ниже приведён код обработчика события OnClick для Button1. Он показывает диалоговое окошко с текстом в следующем формате

Windows started on Thursday, February 10, 2000 at 11:42:46 AM

Its been up for 0 days, 3 hours, 22 minutes, 54 seconds

Подробнее...

Как изменить системное время?

2017-10-08T03:19:39+07:00

Функция SetSystemTime.

Обрати внимание на привилегии.

Автор ответа: podval

Подробнее...

Как определить, изменилось ли системное время?

2017-10-08T03:20:55+07:00

Следующий пример демонстрирует обработку сообщения WM_TIMECHANGE. Приложение, которое изменяет системное время, посылает сообщение WM_TIMECHANGE всем окнам верхнего уровня.

Подробнее...

Как открыть окно настройки даты и времени Windows?

2017-10-08T03:33:44+07:00

Code:

Shellexecute(handle, 'Open', 'Rundll32.exe', 'shell32.dll,Control_RunDLL TIMEDATE.CPL', Pchar(Getsystemdir), 0);

Как получить список часовых поясов?

2017-10-04T19:02:24+07:00

Code:

uses

Registry;

...

var

reg : TRegistry;

ts : TStrings;

i : integer;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Time Zones', false);

if reg.HasSubKeys then

begin

ts := TStringList.Create;

reg.GetKeyNames(ts);

reg.CloseKey;

for i := 0 to ts.Count -1 do

begin

reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Time Zones\' + ts.Strings[i], false);

Memo1.Lines.Add(ts.Strings[i]);

Memo1.Lines.Add(reg.ReadString('Display'));

Memo1.Lines.Add(reg.ReadString('Std'));

Memo1.Lines.Add(reg.ReadString('Dlt'));

Memo1.Lines.Add('----------------------');

reg.CloseKey;

end;

ts.Free;

end

else

reg.CloseKey;

reg.free;

end;

Как реализовать задержку разрешения в микросекундах?

2017-10-08T03:53:57+07:00

Code:

// Wait 0.2ms

procedure PerformanceDelay;

var

hrRes, hrT1, hrT2, dif: Int64;

begin

if QueryPerformanceFrequency(hrRes) then

begin

QueryPerformanceCounter(hrT1);

repeat

QueryPerformanceCounter(hrT2);

dif := (hrT2 - hrT1) * 10000000 div hrRes;

until dif > 2;

end;

Как узнать системное время?

2017-10-04T21:07:00+07:00

Хранится в глобальных переменных now, date, time

Определение текущего времени(отдельно часы, минуты, секунды)

2017-10-08T03:35:19+07:00

Code:

{ **** UBPFD ***************

>> Определение текущего времени(часы, минуты, секунды)

Зависимости: SysUtils, Classes

Автор: Eagle, Copyright: MegaSoft

***************************************************** }

unit gettime;

interface

uses SysUtils, Classes;

function gethours: integer;

function getmins: integer;

function getsecs: integer;

implementation

function gethours: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[1] + s[2]);

Result := h;

end;

function getmins: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[4] + s[5]);

Result := h;

end;

function getsecs: integer;

var

s: string;

h: integer;

begin

s := timetostr(time);

h := strtoint(s[7] + s[8]);

Result := h;

end;

end.

Определить сейчас до или после полудня

2017-10-08T03:36:26+07:00

Code:

procedure AM_or_PM;

begin

if Frac(Time) = 0 then

ShowMessage('AM')

else

ShowMessage('PM');

end;

Получить из регистров информацию о временной зоне (DST)

2017-10-04T21:04:22+07:00

HKEYLocalMachine/Software/Microsoft/Windows/CurrentVersion/TimeZones/ - место, где в регистре хранится информация о временных зонах (Timezone). Двоичный код 'TZI' хранит информацию о начале и конце летнего времени. Есть какие-нибудь идеи насчет извлечения этих дат из этой двоичной величины?

Попробуем описать решение тут:

Подробнее...

Проверить, используется ли формат времени в 24 часа

2017-10-08T03:42:43+07:00

Code:

function Is24HourTimeFormat: Boolean;

var

DefaultLCID: LCID;

begin

DefaultLCID := GetThreadLocale;

Result := 0 <> StrToIntDef(GetLocaleStr(DefaultLCID,

LOCALE_ITIME,'0'), 0);

end;

Узнать текущие время и дату по Гринвичу

2017-10-08T03:42:01+07:00

Code:

procedure TForm1.Button4Click(Sender: TObject);

var

lt: TSYSTEMTIME;

st: TSYSTEMTIME;

begin

GetLocalTime(lt);

GetSystemTime(st);

Memo1.Lines.Add('LocalTime = ' +

IntToStr(lt.wmonth) + '/' +

IntToStr(lt.wDay) + '/' +

IntToStr(lt.wYear) + ' ' +

IntToStr(lt.wHour) + ':' +

IntToStr(lt.wMinute) + ':' +

IntToStr(lt.wSecond));

Memo1.Lines.Add('UTCTime = ' +

IntToStr(st.wmonth) + '/' +

IntToStr(st.wDay) + '/' +

IntToStr(st.wYear) + ' ' +

IntToStr(st.wHour) + ':' +

IntToStr(st.wMinute) + ':' +

IntToStr(st.wSecond));

end;