Recursos Libres del sistema

Crea un nuevo proyecto, pega el código en un formulario y pulsa F5:

Private Declare Function GetFreeSystemResources Lib "rsrc32.dll" Alias "_MyGetFreeSystemResources32@4" _
             (ByVal restype As Integer) As Integer
Private Sub Form_Activate()
     Print "System: " & GetFreeSystemResources(0) & "%"
     Print "Gdi: " & GetFreeSystemResources(1) & "%"
     Print "User: " & GetFreeSystemResources(2) & "%"
End Sub

NOTA: Recuerda que para que Print sea efectivo el formulario debe tener la propiedad AutoRedraw a True.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s