Mostrar y ocultar iconos del escritorio

Iniciado por Juan, Agosto 30, 2010, 06:35:37 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Agosto 30, 2010, 06:35:37 PM Ultima modificación: Mayo 12, 2014, 03:29:17 PM por Expermicid
Ahi le sva el source:

Código: vb
'By Drinky94
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
Const SW_SHOW = 5
Const SW_HIDE = 0
Enum Estado
    Visible = 1
    Oculto = 0
End Enum
Public Function Iconos(queacer As Estado)
    Dim ventana As String
    Dim modo As String
    ventana = FindWindowEx(0&, 0&, "Progman", vbNullString)
    If queacer = 0 Then
        modo = ShowWindow(ventana, SW_HIDE)
    Else
        modo = ShowWindow(ventana, SW_SHOW)
    End If
End Function



salu2!