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 SubNOTA: Recuerda que para que Print sea efectivo el formulario debe tener la propiedad AutoRedraw a True.
Posted
vie, nov 19 1999 17:18
by
Maverick