[Snake22]

подскажите как можно через мою программу сделать чтоб в свойсвах панели задач ставилась галочка-"скрывать" ?
в нете нашел код
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
   }
}

[NumLock]

Код:

uses
  ShellAPI,

const
  ABM_SETSTATE = $0a;
var
  pData: TAppBarData;
begin
  ZeroMemory(@pData, SizeOf(TAppBarData));
  pData.cbSize:=SizeOf(TAppBarData);
  pData.hWnd:=FindWindow('Shell_TrayWnd', '');
  pData.lParam:=ABS_AUTOHIDE;
  SHAppBarMessage(ABM_SETSTATE, pData);
end;

[Snake22]

о! спасибо=)