VPF::Системное время - Форум программистов

Pakshin A. S.

Дата 22.2.2003, 03:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Как програмным путём установить дату и время в Windowsе

Vco

Дата 22.2.2003, 03:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет

Здесь есть...

--------------------

Я всегда где-то рядом...!

X-Vlad

Дата 22.2.2003, 03:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

нашол у себя...

Цитата

Procedure settime(hour, min, sec, hundreths : byte); assembler;
asm

mov ch, hour
mov cl, min
mov dh, sec
mov dl, hundreths
mov ah, $2d
int $21
end;

Procedure setdate(Year : word; Month, Day : byte); assembler;
asm

mov cx, year
mov dh, month
mov dl, day
mov ah, $2b
int $21
end;

или

Цитата

function SetPCSystemTime(tDati: TDateTime): Boolean;
var

tSetDati: TDateTime;
vDatiBias: Variant;
tTZI: TTimeZoneInformation;
tST: TSystemTime;
begin

GetTimeZoneInformation(tTZI);
vDatiBias := tTZI.Bias / 1440;
tSetDati := tDati + 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;
SetPCSystemTime := SetSystemTime(tST);
end;

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

Vco

Дата 22.2.2003, 03:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет

а, точно, я в книге по паскалю метод asm видел... asm легче, и интересней мне кажеться

Это сообщение отредактировал(а) Vco - 22.2.2003, 03:53

--------------------

Я всегда где-то рядом...!

Pakshin A. S.

Дата 23.2.2003, 03:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Всё работает правильно, только XP выдаёт сообщение об ошибке при запуске. Программу я поместил в реестр в автозапуск, может быть не стоило этого делать, а вы как думаете? Просто меня достало это окошко с сообщением об ошибке времени.

X-Vlad

Дата 23.2.2003, 08:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5

какая именно ошибка?
если ты время переводишь назад то винда ето всё сичет и выдает ошибку....

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »