Как изменить системное время, дату? (из проги на VB есс-но)?

[TiG]

Привет!
Подскажите пожалйста как изменить системное время, дату? (из проги на VB есс-но)?

На форумах не нашёл!

[RayShade]

Private Declare Function SetSystemTime Lib "kernel32" Alias "SetSystemTime" (lpSystemTime As SYSTEMTIME) As Long

Private Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

[Aleksej]

Используй:
Private Declare Function SetLocalTime Lib "kernel32" ( _
lpSystemTime As SYSTEMTIME) As Long

[TiG]

Вот сюда, что написать?

Private Sub Command1_Click()

End Sub

Берём например значение 15:20:40 из текстбокса и тыкаем его в систему!

[A.A.Z.]

Ребят, вы чего? Даже я, и то знаю!

Код: Выделить всё

Private Sub Command1_Click
'Изменяем дату
Date=#text1.text#
'Изменяем время
Time=#text1.text#
End Sub

[gjghjc]

Ребят, вы чего? Даже я, и то знаю!
Код:
Private Sub Command1_Click
'Изменяем дату
Date=#text1.text#
'Изменяем время
Time=#text1.text#
End Sub

Все дело в том что в этом случае дата изменяется сразу а вот время требует как бы подтверждения т.е. необходимо кликнуть по часам и нажать ОК
2RayShade если использовать АПИ время переведется сразу или все равно нужно щелкать по часам а затем ОК
Дело в том что я пробовал через АПИ менять оформление рабочего стола при этом после запуска программы происходило следующее:
Настройки то изменялись, но после перезагрузки опять восстанавливались прежние, а вот если я сохранял свою тему под каким нибудь именем то все было ОК.

[VOD]

Чо вы паритесь:
Time$ = то шо надо...
Date$ = то шо надо и всё...