Newsgroup: it.comp.lang.visual-basic
Titolo: [API] Nascondere la TaskBar

Talvolta, può essere utile, in un programma Nascondere o mostrare la
TaskBar.
Eccovi un semplice esempio
Sono necessarie due Declare della libreria USER32.DLL
Mettete du CommandButton sul form ed incollate questo codice:
Private Declare Sub 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)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80  'Costante per Nascondere
Const SWP_SHOWWINDOW = &H40  'Costante per Mostrare
Private Sub Command1_Click()
Dim WHandle1 As Long
WHandle1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(WHandle1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
Private Sub Command2_Click()
Dim WHandle2 As Long
WHandle2 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(WHandle2, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
Private Sub Form_Load()
Command1.Caption = "Nascondi TaskBar"
Command2.Caption = "Mostra TaskBar"
End Sub
Questo esempio, unitamente alla raccolta API, lo trovi su
http://members.Xoom.it/CesareRizzi
Se hai API da postare ti prego inviale...certamente a qualcuno servirà !!!
--
Posted from 
romeo.logikos.it
 [193.70.26.1]
via Mailgate.ORG Server - 
http://www.mailgate.org

taskbar
Tutto molto bello, perņ...
prova  a premere il tasto Win sulla tastiera...  :-)
--
Genesio Conti - Calvizzano (NA) - Italy
E-Mail :  gen...@NOSPAMsofthome.net
( remove NOSPAM for answer )

 prova  a premere il tasto Win sulla tastiera...  :-)
Il tasto Win sulla tastiera non č altro che la combinazione dei tasti "CTRL
+ ESC" quindi (per far rimanere il tutto molto bello) basta disattivare
questa combinazione di tasti per esempio con la funzione API
"SystemParametersInfo".
Una volta ho sviluppato un'applicazione che aveva bisogno di "tagliare
fuori" dal sistema l'utente per un po'. Cosě ho scritto in un modulo ".bas"
il codice riportato qui sotto (attenzione in questo esempio il sistema per
nascondere la TaskBar č leggermente diverso da quello di Cesare Rizzi, ma il
risultato č lo stesso, il succo non cambia!)
Vi posto il codice che magari puň essere utile a qualcuno:
----------------------------
Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal
nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SS = 97
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Sub AttivaTasti()
'   Attiva le combinazioni di tasti "CTRL+ALT+CANC", "CTRL+ESC", "ALT+TAB"
   Dim r As Integer
   Dim p As Boolean
   r = SystemParametersInfo(SS, False, p, 0)
End Sub
Private Sub DisattivaTasti()
'   Disattiva le combinazioni di tasti "CTRL+ALT+CANC", "CTRL+ESC",
"ALT+TAB"
   Dim r As Integer
   Dim p As Boolean
   r = SystemParametersInfo(SS, True, p, 0)
End Sub
Private Sub NascondiTaskBar()
   Dim g_hwndTray As Long
   g_hwndTray = FindWindow("Shell_TrayWnd", vbNullString)
   ShowWindow g_hwndTray, SW_HIDE
End Sub
Private Sub MostraTaskBar()
   Dim g_hwndTray As Long
   g_hwndTray = FindWindow("Shell_TrayWnd", vbNullString)
   ShowWindow g_hwndTray, SW_SHOW
End Sub
Public Sub BloccaUtente()
   DisattivaTasti
   NascondiTaskBar
End Sub
Public Sub SbloccaUtente()
   AttivaTasti
   MostraTaskBar
End Sub
------------------------------
Attenzione a ripristinare la giusta formattazione del codice!
 _    _
 >    <
    []
 \___/......(Ciao!)
Pasquale
mine...@libero.it