'Check Computer 64-bit
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private Declare Function IsWow64Process
Lib "kernel32" _
(ByVal hProcess As Long,
ByRef Wow64Process As Long) As Long
Private Declare Function GetCurrentProcess
Lib "kernel32" () As Long
Private Declare Sub GetNativeSystemInfo
Lib "kernel32" _
(lpSystemInfo As SYSTEM_INFO)
Private Sub Form_Load()
Dim Ret As Long
IsWow64Process GetCurrentProcess, Ret
If Ret = 0 Then
MsgBox "This application is not running on an x86 emulator for a 64-bit
computer!"
Else
Dim SysInfo64 As SYSTEM_INFO
GetNativeSystemInfo SysInfo64
MsgBox "Number of processors on your 64-bit system: " +
CStr(SysInfo64.dwNumberOrfProcessors)
End If
End Sub
Wednesday, April 29, 2009
Check Computer 64-bit
Subscribe to:
Post Comments (Atom)
When you're choosing your recovery software, you need to consider your options. The best way to choose is to look at the reviews. To learn more about computer repair Perth, visit on hyperlinked site.
ReplyDeleteThese servers provide very cheap server hosting with many features like split loading and transfer speed. For more information on dedicated servers discover here.
ReplyDeleteSometimes they will allow you to run a virtual private server (VPS) at a cheaper price than your regular dedicated server. As much as possible, do not sign up for an account that includes any features, as it will always cost you more than the regular price. Get more interesting details about server hosting this site.
ReplyDelete