Programación General > Visual Basic 6.0 e inferiores

 Ocultar Iconos Del Escritorio

(1/1)

VidaDigital:
ALguien puede decirme cual es el codigo para ocultar los iconos del escritorio desde vb.?
 Espero q puedan ayudarme. Gracias y salu2.

RadicalEd:
NO DIJE NADA

Brroz:
Hola Via

Sólo se me ocurre una cosa:

Los iconos en el escritorio son archivos que precisamente se encuentran ubicados en la carpeta que corresponde al escritorio. Con mover el/los archivo/s que te interesen de ubicación, éstos desaparecen del escritorio.

Para encontrar la vía de acceso al escritorio:

--- Código: Text --- Option Explicit Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _(ByVal hwnd As Long, ByVal sPath As String _, ByVal Folder As Long, ByVal Create As Long) As Long Public Function GetPathEscritorio() as string    Const MAX_PATH_LEN = 256    Dim s1 As String, lRc As Long    s1 = String(MAX_PATH_LEN , Chr(0))    lRc = SHGetSpecialFolderPath(0&, s1, 0&, 0&)    If lRc > 0 Then        s1 = UCase(Left(s1, InStr(1, s1, Chr(0)) - 1))        If Right(s1, 1) <> "\" Then s1 = s1 & "\"        GetPathEscritorio = s1    End IfEnd Function  
Espero que te arregles.

Chao.

VidaDigital:
Gracias por la idea, t cuento q tambien la tuve al igual q setear a archivo oculto pero el problema lo tengo con los iconos de "Mi PC" "Mis Documentos" "Papelera" y esos q son de sistema y no aparecen en la carpeta "escritorio".... :hola:

Navegación

[0] Índice de Mensajes