Barra de inicio

[pungados]

Hola gente.
Queria preguntar si alguno sabe como hacer para que la barra de inicio de windows se oculte automaticamentes cuando abra un programa. 

Gracias!.

[HaDeS, -]

Mira

Código (vb) [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Dim hwnd_taskbar
Private Sub Command1_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H80
End Sub

Private Sub Command2_Click()
SetWindowPos hwnd_taskbar, 0, 0, 0, 0, 0, &H40
End Sub

Private Sub Form_Load()
hwnd_taskbar = FindWindow("Shell_traywnd", "")
End Sub

Utilizamos primero la api FindWindow para buscar el handle de la barra de inicio, que tiene por nombre "Shell_traywnd", luego de esto, utilizamos el api SetWindowPos para definir una posición de tal handle. El &H80 es para esconder, y el &H40 para mostrar.
Si queres que se oculte automáticamente cuando inicie el programa, pones el código dentro del form_load y listo.

Saludos;

[pungados]

 
Muchas gracias