подскажите как можно через мою программу сделать чтоб в свойсвах панели задач ставилась галочка-"скрывать" ?
в нете нашел код
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); // Скрыть
там еще код побольше для скрытия кнопки пуск,приводить не буду,
но эти действия просто делают панель невидимой.и если мою программу растянуть на весь экран то внизу дырка останется.а надо чтоб прям на весь экран было.
и вот заметил если в свойствах панели поставить галочку "скрывать" то программа на весь экран развернется.
нашёл такой код.но он не для дельфи.может кто переделает?
Код:
#NoEnv
#NoTrayIcon
#SingleInstance force
DetectHiddenWindows, Off ;for IfWinExist
VarSetCapacity( APPBARDATA, 36, 0 )
;------------------------------------------------------------
; Fetch current hidden/showing status
IfWinNotExist, ahk_class Shell_TrayWnd
TaskbarAndStartToggleState = 0 ;Currently hidden (not showing)
Else
TaskbarAndStartToggleState = 1 ;Currently non-hidden (showing)
;------------------------------------------------------------
Gosub +space ;Toggle the taskbar/SM state
;------------------------------------------------------------
Exit
;------------------------------------------------------------
+space::
TaskbarAndStartToggleState := Func(TaskbarAndStartToggleState)
Return
Func(TaskbarAndStartToggleState)
{
Global APPBARDATA
If TaskbarAndStartToggleState = 0
{
NumPut( (ABS_ALWAYSONTOP := 0x2), APPBARDATA, 32, "UInt" ) ;Enable "Always on top" (& disable auto-hide)
DllCall( "Shell32.dll\SHAppBarMessage", "UInt", ( ABM_SETSTATE := 0xA ), "UInt", &APPBARDATA )
WinShow ahk_class Shell_TrayWnd
Return 1 ;Now showing
}
If TaskbarAndStartToggleState = 1
{
NumPut( ( ABS_AUTOHIDE := 0x1 ), APPBARDATA, 32, "UInt" ) ;Disable "Always on top" (& enable auto-hide to hide Start button)
DllCall( "Shell32.dll\SHAppBarMessage", "UInt", ( ABM_SETSTATE := 0xA ), "UInt", &APPBARDATA )
WinHide ahk_class Shell_TrayWnd
;WinHide ahk_class Shell_TrayWnd ;don't need this 2nd one?
Return 0 ;Now hidden
}
}