![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
02/02/2004, 14:58
|
| | 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 |