Skrytí stavového řádku Windows

Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H40

Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
*každá deklarace musí být napsána celá na samostatném řádku

Vypnutí zobrazení systémového řádku se provede následovně:

Dim HWnd1 As Long

HWnd1 = FindWindow("Shell_traywnd", "")
'najde systémový řádek
Call SetWindowPos(HWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
'vypne zobrazení systémového řádku

Zpětné nastavení pro zobrazení:

Dim HWnd1 As Long

HWnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(HWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

Pokud budete vypínat systémový řádek v programu, nezapomeňte jej znovu zapnout při ukončení Vaší aplikace.

Zpět