Запуск explorer.exe как оболочки Винды

FlatX007 · Отправлено: **18:41, 10-08-2009** | #2

Код:

Run(@WindowsDir & "\explorer.exe")

ммм ?

Vagac · Отправлено: **19:26, 10-08-2009** | #3

Спасибо огромное все работает Ура!

Nik_rus · Отправлено: **20:59, 10-08-2009** | #4

А виндир не обязателен.

Код:

Run("explorer.exe")

Можно и так.

Vagac · Отправлено: **12:54, 12-08-2009** | #5

Так нельзя Run("explorer.exe") потому что запускается не оболочка а открывается проводник.
Следующий код включен в автозагрузку групповой политикой после логина пользователя.
Этот код работает только почему то не все грузится в трей
#include <Process.au3>
#include <File.au3>
#NoTrayIcon

ProcessWait ("explorer.exe")
ProcessClose("explorer.exe")
$connect = _GetNetworkConnect()
If $connect Then

Else
Run(@WindowsDir & "\cmps.exe")
;Сеть Отсутствует
Exit
EndIf
$varPing = Ping("192.168.0.8",400)
If @error > 0 Then
;Пинг Отсутствует
Run(@WindowsDir & "\cmps.exe")
Exit
Else
;Пинг Нормальный
$rc = _RunDos('NET TIME \\192.168.0.1 /SET /Y')
Run(@WindowsDir & "\cmp.exe")
EndIf

Func _GetNetworkConnect()
Local Const $NETWORK_ALIVE_LAN = 0x1 ;net card connection
Local $aRet, $iResult
$aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "" & @LF
Return $iResult
EndFunc

FlatX007 · Отправлено: **18:58, 12-08-2009** | #6

Цитата Vagac:

Так нельзя Run("explorer.exe") потому что запускается не оболочка а открывается проводник. »

Да ну правда чтоли ...

а если снять процесс explorer.exe и запустить как написано то всё работает...