Ver Mensaje Individual
  #8 (permalink)  
Antiguo 02/02/2004, 14:58
kakarot
 
Fecha de Ingreso: diciembre-2003
Mensajes: 288
Antigüedad: 21 años, 1 mes
Puntos: 0
prueba de hacer sto, en NT parece funcionar, es para ocultarla

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_

As String, ByVal lpWindowName As String) As Long

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

Global Ventana As Long

Global Const Muestra = &H40

Global Const Oculta = &H80

Private Sub Command1_Click()

Ventana = FindWindow("Shell_traywnd", ""

Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)

End Sub