[OFFTOPIC]
Porque siempre que posteo algo siempre encuentran una forma de optimizarlo?
Porque siempre que posteo algo siempre encuentran una forma de optimizarlo?

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarEl tamaño de la memoria virtual debe ser el doble de tu memoria ram
CitarMientras mas memoria virtual mejor funciona tu sistema
CitarLa memoria virtual ralentiza el disco duro, mejor desactivalo
CitarSi tienes mas de 1 hdd, la memoria debes ponerlo en un disco que no este iniciado windows ahi
CitarEl tamaño de la memoria virtual debe ser el doble de tu memoria ramEso es de antaño, a partir de 2 gb en adelante no deberia ser asi. Si tienen los 3,25 de ram, pondrias 6 o 7 gb de memoria virtual?
CitarSi tienes mas de 1 hdd, la memoria debes ponerlo en un disco que no este iniciado windows ahiEste me parecio un poco curioso, pero... pensandolo bien se deberia hacer cuando los 2 hdds son de igual velocidad, de lo contrario, pienso que la memoria virtual se deberia poner en el disco de mayor velocidad
Option Explicit
' Extracto
' http://www.vbmonster.com/Uwe/Forum.aspx/vb-winapi/5690/API-to-determine-if-OS-is-32bit-or-64-bit
Private Declare Function GetVersion Lib "kernel32" () As Long
Private Declare Sub GetNativeSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
wProcessorArchitecture As Integer
wReserved As Integer
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
wProcessorLevel As Integer
wProcessorRevision As Integer
End Type
Private Const PROCESSOR_ARCHITECTURE_IA64 = 6
Private Const PROCESSOR_ARCHITECTURE_AMD64 = 9
Public Function IsOS64Bit() As Boolean
' Llamar desde Win2k en adelante
' La verdad dudo de la existencia de Win2k 64 bits...
' pero en el msdn decia que a partir de win2k se puede llamar a la funcion xD
If LoByte(LoWord(GetVersion())) >= 5 Then
Dim si As SYSTEM_INFO
Call GetNativeSystemInfo(si)
IsOS64Bit = _
(si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) Or _
(si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64)
End If
End Function
Private Function LoWord(ByVal Numero As Long) As Long
' Devuelve el LoWord del número pasado como parámetro
LoWord = Numero And &HFFFF&
End Function
Private Function LoByte(ByVal Numero As Integer) As Integer
' Devuelve el LoByte del número pasado como parámetro
LoByte = Numero And &HFF
End Function
Private Sub Form_Load()
If IsOS64Bit Then
MsgBox "Tienes un SO de 64 bits"
Else
MsgBox "Tienes un SO de 32 bits"
End If
End Sub
Cita de: LittleUbis en 5 Octubre 2010, 13:47 PMAlexmanycool (Alexander E.)