SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: VidaDigital en Miércoles 17 de Noviembre de 2004, 02:59

Título: Ocultar Iconos Del Escritorio
Publicado por: VidaDigital en Miércoles 17 de Noviembre de 2004, 02:59
ALguien puede decirme cual es el codigo para ocultar los iconos del escritorio desde vb.?
 Espero q puedan ayudarme. Gracias y salu2.
Título: Re: Ocultar Iconos Del Escritorio
Publicado por: RadicalEd en Miércoles 17 de Noviembre de 2004, 16:16
NO DIJE NADA
Título: Re: Ocultar Iconos Del Escritorio
Publicado por: Brroz en Miércoles 17 de Noviembre de 2004, 17:37
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
  1.  
  2. Option Explicit
  3.  
  4. Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" _
  5. (ByVal hwnd As Long, ByVal sPath As String _
  6. , ByVal Folder As Long, ByVal Create As Long) As Long
  7.  
  8. Public Function GetPathEscritorio() as string
  9.     Const MAX_PATH_LEN = 256
  10.     Dim s1 As String, lRc As Long
  11.     s1 = String(MAX_PATH_LEN , Chr(0))
  12.     lRc = SHGetSpecialFolderPath(0&, s1, 0&, 0&)
  13.     If lRc > 0 Then
  14.         s1 = UCase(Left(s1, InStr(1, s1, Chr(0)) - 1))
  15.         If Right(s1, 1) <> "\" Then s1 = s1 & "\"
  16.         GetPathEscritorio = s1
  17.     End If
  18. End Function
  19.  
  20.  

Espero que te arregles.

Chao.
Título: Re: Ocultar Iconos Del Escritorio
Publicado por: VidaDigital en Jueves 18 de Noviembre de 2004, 05:17
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: