Saber el directorio de "Fonts" del sistema

en: Julio 26, 2010, 04:05:12 pm

Código: Visual Basic

'----- Saber la ubicacion de la carpeta Fonts -----
' Creado por CULD a pedido de diegoc
' Todos los derechos e izquierdos reservados
Public Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Const MAX_PATH = 260
 
Public Function Directorio_Fonts()
Dim strFolder As String
strFolder = String(MAX_PATH, 0)
waf = GetWindowsDirectory(strFolder, MAX_PATH)
If waf <> 0 Then
Directorio_Fonts = Left(strFolder, InStr(strFolder, Chr(0)) - 1) & "\Fonts\"
Else
Get_WinPath = ""
End If
End Function

Apagar el equipo, reiniciar Windows, reiniciar el Sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2203	Julio 26, 2010, 10:31:47 am por ANTRAX
Como apagar, reiniciar o salir del sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2386	Julio 26, 2010, 11:24:30 am por ANTRAX
Cambiar Fecha u Hora del Sistema Iniciado por ANTRAX	Respuestas: 0 Vistas: 2276	Julio 26, 2010, 01:39:27 pm por ANTRAX
Listar Las Fuentes Del Sistema En ComboBox Iniciado por ANTRAX	Respuestas: 0 Vistas: 2261	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: 2629	Junio 16, 2013, 06:28:13 pm por Karcrack

Underc0de - Hacking y seguridad informática

Saber el directorio de "Fonts" del sistema

ANTRAX

Saber el directorio de "Fonts" del sistema

Similar topics (5)