Конференция VBStreets

**DVV** » 10.11.2004 (Ср) 0:38

Как можно вызвать стандартную настройку времени(Дата и время)

**Ennor** » 10.11.2004 (Ср) 0:42

Код: Выделить всё: Shell "timedate.cpl"

**Scuder** » 10.11.2004 (Ср) 11:32

Ennor писал(а):
Код: Выделить всё
Shell "timedate.cpl"

А ты пробовал? :-)

Shell, ShellExecute, ShellExecuteEx не запускают .cpl

**Ruslan Demidow** » 10.11.2004 (Ср) 12:24

Scuder писал(а):
Ennor писал(а):
Код: Выделить всё
Shell "timedate.cpl"

А ты пробовал?
Shell, ShellExecute, ShellExecuteEx не запускают .cpl

А если попробовать

Код: Выделить всё: Shell ("Control timedate.cpl")

Под рукой сейчас VB нет - проверить не могу.

**Scuder** » 10.11.2004 (Ср) 13:38

Ага. Хитро.. :-)

**Andrey Fedorov** » 10.11.2004 (Ср) 14:16

Мне как-то так больше нравится:

Код: Выделить всё: Dim sh As Object Set sh = CreateObject("Shell.Application") sh.SetTime

**alibek** » 10.11.2004 (Ср) 17:48

А все же правильнее использовать

Код: Выделить всё: Shell("rundll32.exe shell32.dll,Control_RunDLL TIMEDATE.CPL", vbNormalFocus)

При дабл-клике на системных часах происходит именно это.

**tyomitch** » 10.11.2004 (Ср) 18:53

alibek, откуда ты знаешь? :roll:

GM » 11.11.2004 (Чт) 8:16

Alibek прав, у меня файервол писал, что explorer хочет запустить rundll32.exe при клике по часам

**tyomitch** » 11.11.2004 (Чт) 8:34

GM писал(а):Alibek прав, у меня файервол писал, что explorer хочет запустить rundll32.exe при клике по часам

Я не говорю, что он не прав - мне интересно, как это можно узнать...
Ведь как-то он это узнал? Не дизассемблировал же explorer.exe?

**Andrey Fedorov** » 11.11.2004 (Чт) 8:44

Alibek прав, у меня файервол писал, что explorer хочет запустить rundll32.exe при клике по часам

Люди вы что!? Одно другому ведь абсолютно не мешает!

SetTime скорей всего и запускает через ту-же rundll32.exe
Просто все это завернуто в объект.

Недаром, еще один вариант запуска выглядит как:

sh.ControlPanelItem "TIMEDATE.CPL"

**tyomitch** » 11.11.2004 (Чт) 8:47

Ещё один вариант:

Код: Выделить всё: Option Explicit Private Declare Sub SHRunControlPanel Lib "shell32" Alias "#161" (ByVal szAppletName As Long, ByVal hWnd As Long) Sub Main() SHRunControlPanel StrPtr("timedate.cpl"), 0 End Sub

Именно так делает explorer.exe при клике по часам.

**Andrey Fedorov** » 11.11.2004 (Чт) 8:50

Именно так делает explorer.exe при клике по часам.

И все это - различные варианты выполнения одной и той-же операции с использованием одной и той-же DLL-ки...

**alibek** » 11.11.2004 (Чт) 10:32

tyomitch писал(а):Я не говорю, что он не прав - мне интересно, как это можно узнать...
Ведь как-то он это узнал? Не дизассемблировал же explorer.exe?

...наша служба и опасна и трудна...

Ты не поверишь, сколь многое explorer делает через rundll32

А откуда знаю, уже не скажу, читал где-то.

**DragonTriste** » 01.12.2004 (Ср) 10:39

alibek писал(а):А все же правильнее использовать
Код: Выделить всё
Shell("rundll32.exe shell32.dll,Control_RunDLL TIMEDATE.CPL", vbNormalFocus)

При дабл-клике на системных часах происходит именно это.

может чтото не так делаю

но оно начитает ругатся... пока скобки не уберёшь:
Shell "rundll32.exe shell32.dll,Control_RunDLL TIMEDATE.CPL", vbNormalFocus

**alibek** » 01.12.2004 (Ср) 10:45

Попробуй Call Shell(...)

Конференция VBStreets

Дата и время

Дата и время

Кто сейчас на конференции