comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Saber el directorio de "Fonts" del sistema

  • 0 Respuestas
  • 1146 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5331
  • Actividad:
    45%
  • Reputación 30
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« 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
« Última modificación: Mayo 12, 2014, 03:24:31 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Apagar el equipo, reiniciar Windows, reiniciar el Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1344
Último mensaje Julio 26, 2010, 10:31:47 am
por ANTRAX
Como apagar, reiniciar o salir del sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1476
Último mensaje Julio 26, 2010, 11:24:30 am
por ANTRAX
Cambiar Fecha u Hora del Sistema

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1320
Último mensaje Julio 26, 2010, 01:39:27 pm
por ANTRAX
Listar Las Fuentes Del Sistema En ComboBox

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1361
Último mensaje Julio 26, 2010, 04:06:50 pm
por ANTRAX
[ANTI] AmISandboxied() - Saber si estamos siendo ejecutados dentro de Sandboxie

Iniciado por Karcrack

Respuestas: 0
Vistas: 1417
Último mensaje Junio 16, 2013, 06:28:13 pm
por Karcrack