Что нового

Картинка без панели

hahasi45

Новичок
Сообщения
18
Репутация
1
Как сделать чтобы программа была на верху без меню
вот так:
09f584b8b322.jpg

без этого меню:
690f2657b29d.jpg
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Для начала надо выяснить: сторонняя ли это программа или на Autoit ?
 
Автор
H

hahasi45

Новичок
Сообщения
18
Репутация
1
Это autoit 100%
P.S Проверял в трее даже!
 

Roman89

Новичок
Сообщения
107
Репутация
3
Это autoit 100%
P.S Проверял в трее даже!
Ето autoit!
Причом ето моя программа!
А скрипт вот:
Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <Inet.au3>
#include <Misc.au3>
#Include <File.au3>

$Width = 190
$Height = 150
GUISetBkColor(0xFFFFFF)
$hGUI = GUICreate(" Скрипт by Romuk", $Width, $Height, -1, -1, BitOR($WS_POPUP, $WS_BORDER))
$Close = GUICtrlCreateLabel("X", $Width - 15, 0, 11, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetCursor(-1, 0)
$Formtitle = GUICtrlCreateLabel(" Скрипт by Romuk", 0, 3, @DesktopWidth, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Formtitlebackground = GUICtrlCreateGraphic(0, 0, @DesktopWidth, 22)
GUICtrlSetBkColor(-1, 0x000000)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Запустить", 14, 35, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button2 = GUICtrlCreateButton("Инструкцыя", 14, 75, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
$Button3 = GUICtrlCreateButton("Выход", 14, 115, 163, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetColor(-1, 0x000000)

GUISetState(@SW_SHOW)






While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $Close
		Exit
Case $Button3
	Exit
	
EndSwitch
WEnd
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,669
Репутация
2,463
hahasi45 [?]
Это autoit 100%
P.S Проверял в трее даже!
Т.е не твоя программа?
Тогда можно так:

Код:
#include <WindowsConstants.au3>

$hWnd = WinGetHandle("Title")
$nStyle = _WinGetStyle($hWnd, 0)
_WinSetStyle($hWnd, BitAND($nStyle, BitNOT(BitOR($WS_CAPTION, $WS_SYSMENU))))

Func _WinSetStyle($hWnd, $nStyle = -1, $nExStyle = 0)
	Local Const $GWL_STYLE = -16, $GWL_EXSTYLE = -20
	Local Const $SWP_NOMOVE = 0x2, $SWP_NOSIZE = 0x1, $SWP_SHOWWINDOW = 0x40, $SWP_NOZORDER = 0x4
	Local $iFlags = BitOR($SWP_SHOWWINDOW, $SWP_NOSIZE, $SWP_NOMOVE, $SWP_NOZORDER)
	
	If $nStyle = -1 Then
		$nStyle = BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)
	EndIf
	
	DllCall("User32.dll", "int", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_STYLE, "int", $nStyle)
	DllCall("User32.dll", "int", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_EXSTYLE, "int", $nExStyle)
	DllCall("User32.dll", "int", "SetWindowPos", "hwnd", $hWnd, "hwnd", 0, "int", 0, "int", 0, "int", 0, "int", 0, "int", $iFlags)
EndFunc

Func _WinGetStyle($hWnd, $iIndex = 0)
	Local Const $GWL_STYLE = -16, $GWL_EXSTYLE = -20
	
	Local $iGWL_Index = $GWL_STYLE
	
	If $iIndex > 0 Then
		$iGWL_Index = $GWL_EXSTYLE
	EndIf
	
	Local $aStyles = DllCall('User32.dll', 'long', 'GetWindowLong', 'hwnd', $hWnd, 'int', $iGWL_Index)
	Return $aStyles[0]
EndFunc


Roman89 [?]
ето моя программа!
Что то сходства не видно :laugh:.
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Хорошая функция, только визуальный эффект проявляется после сворачивания-разворачивания окна. Наверно необходимо добавить в функцию перерисовку окна.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,669
Репутация
2,463
VladUs [?]
визуальный эффект проявляется после сворачивания-разворачивания окна. Наверно необходимо добавить в функцию перерисовку окна.
Странно, но такая функция есть («SetWindowPos»). На каком окне проверял, и с какими стилями?
 
Верх