17-10-12, 05:50 PM
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله و بركاتهكود :
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Const TASKBAR_SHOW As Integer = &H40
Const TASKBAR_HIDE As Integer = &H80
Public Sub HideTaskBar()
Dim TaskbarHandle As Long
TaskbarHandle = FindWindow("Shell_traywnd", "")
SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&, TASKBAR_HIDE)
End Sub
Public Sub ShowTaskBar()
Dim TaskbarHandle As Long
TaskbarHandle = FindWindow("Shell_traywnd", "")
SetWindowPos(TaskbarHandle, 0&, 0&, 0&, 0&, 0&,TASKBAR_SHOW)
End Sub