18.05.2008, 20:07
|
|
Постоянный
Регистрация: 30.04.2008
Сообщений: 323
Провел на форуме:
379101
Репутация:
136
|
|
Для это существуют функции Win APi
GetSystemTime и SetSystemTime
Код:
// получить секунды системного времени
var
lpSystemTime: _SYSTEMTIME;
begin
GetSystemTime(lpSystemTime);
ShowMessage(IntToStr(lpSystemTime.wSecond));
// изменить
lpSystemTime.wSecond := lpSystemTime.wSecond - 30;
SetSystemTime(lpSystemTime);
в качесте параметра передается переменная типа структуры, в которой
Код:
_SYSTEMTIME = record
wYear: Word; // год
wMonth: Word; // месяц
wDayOfWeek: Word; // день недели
wDay: Word; // день
wHour: Word; // час
wMinute: Word; // минуты
wSecond: Word; // секунды
wMilliseconds: Word; // милисекунды
Последний раз редактировалось 0verbreaK; 18.05.2008 в 20:10..
|
|
|