Underc0de - Hacking y seguridad informática

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 04:05:12 pm

Título: Saber el directorio de "Fonts" del sistema
Publicado por: ANTRAX en Julio 26, 2010, 04:05:12 pm
Código: Visual Basic
  1. '----- Saber la ubicacion de la carpeta Fonts -----
  2. ' Creado por CULD a pedido de diegoc
  3. ' Todos los derechos e izquierdos reservados
  4. Public Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
  5. Public Const MAX_PATH = 260
  6.  
  7. Public Function Directorio_Fonts()
  8. Dim strFolder As String
  9. strFolder = String(MAX_PATH, 0)
  10. waf = GetWindowsDirectory(strFolder, MAX_PATH)
  11. If waf <> 0 Then
  12. Directorio_Fonts = Left(strFolder, InStr(strFolder, Chr(0)) - 1) & "\Fonts\"
  13. Else
  14. Get_WinPath = ""
  15. End If
  16. End Function