Что нового

[Окна, Диалоги] Окно в полный экран

Pushkinal

Новичок
Сообщения
1
Репутация
0
Добрый день! Стоит задача проиграть флеш-ролик на весь экран. Для этого создаем окошко с браузером, в него запихиваем флеш, а окно делаем на весь экран. Вот тут проблема. На весь экран то делается, только заголовок и бордюр никак не могу убрать. Вот тут код, помогите, пожалуйста!

Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=images\logo.ico
#AutoIt3Wrapper_Outfile=..\Bukvar.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Comment=Copyright by FRK&K
#AutoIt3Wrapper_Res_Fileversion=2.0.0.0
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Include <Misc.au3>



Opt('TrayIconDebug',0)
Opt('TrayIconHide',1)
Opt('TrayIconDebug',0)

;HotKeySet('{ESC}', '_Pro_Exit')

Global $sTitleScript = "«Букварь»"

If WinExists($sTitleScript) Then
	$hWnd = WinGetHandle($sTitleScript)
	WinSetState($hWnd, "", @SW_RESTORE)
	DllCall("user32.dll", "int", "SetForegroundWindow", "hwnd", $hWnd)
	Exit
EndIf


;Func _Pro_Exit()
  ; If MsgBox(33, 'Выход', 'Вы действительно хотите выйти?', 6)=1 Then Exit
;EndFunc

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$hWnd = GUICreate($sTitleScript, 1024, 700, -1, -1, $WS_CLIPSIBLINGS+ $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, -1, -1, 1024, 700)
GUICtrlSetResizing($GUIActiveX,$GUI_DOCKBORDERS)
GUISetState()
_IENavigate ($oIE, "file:///"&@ScriptDir&"/start.html")
WinSetState($hWnd, "", @SW_MAXIMIZE)
$styles = GUIGetStyle($hWnd)
GUICtrlSetStyle($hWnd, BitAnd($styles[0], 0x3FFFFF))
;0x3FFFFF - результат BitNOT(0x00C00000)

Sleep(9000)
WinSetState($hWnd, "", @SW_RESTORE)
_IENavigate ($oIE, "file:///"&@ScriptDir&"/title.html")

While 1
    Switch GUIGetMsg()
			Case $GUI_EVENT_CLOSE
		If MsgBox(33, 'Выход', 'Вы действительно хотите выйти?',6)=1 Then
            ExitLoop


		EndIf
    EndSwitch
WEnd
GUIDelete()
Exit

Func _WinGetStyle($hWnd)
    Local $aStyles = DllCall('User32.dll', 'long', 'GetWindowLong', 'hwnd', $hWnd, 'int', -16)
    Return $aStyles[0]
EndFunc

И ничего. Кнопок управления нет, но убираться заголовок и рамка не хочет. И вообще, по моему, никакое изменение WindowLong не работает. Заранее спасибо!
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,323
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.


С уважением, ваш Глобальный модератор.
 
Верх