Цитата alexey_a:
|
пробую использовать ObjGet () »
|
Там вроде полный путь к файлу нужен (в первом параметре).
А что если создавать объект, типа:
Код:
$oObj = ObjCreate("Dundas.Charting.WinControl.Series")
Цитата semiono:
|
Нужно запустить taskmgr.exe и выбрать в нём Shutdown > Restart Computer > "Yes/OK" »
|
А почему именно через taskmgr? А если вызвать свой дилаог перезапуска, типа такого (с таймером)?
Код:
#NoTrayIcon
_ShutDown_Dialog( _
"Windows: Принудительное завершение работы", _ ;Заголовок
"Завершение работы системы...", _ ;Главный текст
"Система будет перезапущена через %i сек.\r\nЗакройте все приложения и сохраните данные.", _ ;Под-текст (отображение прогресса)
16, _ ;Метод отображения диалога (см. в справке описание для ProgressOn)
2+4, _ ;Метод завершения работы системы
60) ;Интервал ожидания в секундах
Func _ShutDown_Dialog($sTitle, $sMainText, $sSubText, $iDialogFlags=-1, $iShutDownFlags=2, $iWait_Seconds=60)
ProgressOn($sTitle, $sMainText, StringFormat($sSubText, $iWait_Seconds), Default, Default, $iDialogFlags)
For $i = 1 To 99 Step 100 / $iWait_Seconds
ProgressSet($i, StringFormat($sSubText, $iWait_Seconds))
$iWait_Seconds -= 1
Sleep(1000)
Next
Local $iTimer = TimerInit(), $sDots = ""
;~ Shutdown($iShutDownFlags)
While TimerDiff($iTimer) < 10000
$sDots &= "."
If $sDots = "...." Then $sDots = ""
ProgressSet(100, "", $sMainText & $sDots)
Sleep(500)
WEnd
EndFunc
Для перезапуска нужно раскомментировать строчку с Shutdown().
А также есть ещё такой диалог для завершения работы (обычно выводится разными программами для перезапуска системы):
Код:
_RestartDialog('Установка программы успешно завершена!')
Func _RestartDialog($sText='',$iAct=0,$hWnd = 0)
Local $iLen = 256
Local $sCharType = "char"
If @OSType = "WIN32_NT" Then $sCharType = "wchar"
Local $usText = DLLStructCreate($sCharType & "[" & $iLen & "]")
DLLStructSetData($usText, 1, $sText & @CRLF & @CRLF)
Local $aiCall = DLLCall("Shell32.dll","int","RestartDialog","hwnd",$hWnd,"wstr",DllStructGetData($usText,1),"dword",$iAct)
Return $aiCall[0]
EndFunc
