API Start Barının Yok Edilmesi

Bu kodu arkadaşlarınıza şaka yapmak için yada Start barının başkaları tarafından kullanılmasını istemezseniz kullanabilirsiniz.
Command1 için fonksiyon bir buton eventi olup Start barı saklamak için kullanılır.
Command2 için olan fonksiyon ise Start barı geri çağırmak için kullanılır.
Tüm kodu fare ile copy yapın ve MS Visual Basic içinde, General Declerations bölümünden itibaren paste edin. Form üzerinede iki adet buton koyun ve butonlara basıldığında aşağıdaki command1 ve command2 event'lerinin çalışmasını sağlayın.
Sorularınız için Gürkan Yeniçeri [email protected]

Dim hWnd1 As Long
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
Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40


Private Sub Command1_Click()
hWnd1 = FindWindow("Shell_traywnd", "")
Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
Private Sub Command2_Click()
Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub