請問如何判斷 MS-Windows 是 32 位元或 64 位元 ?
用哪個 Windows API ? 或 Delphi 有現成指令 ?
謝謝 ^_^

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

看起來好像是用IsWow64Process,連結內有範例
http://stackoverflow.com/questions/601089/detect-whether-current-windows-version-is-32-bit-or-64-bit

MSDN
http://msdn.microsoft.com/en-us/library/ms684139

在 Windows XP x86 + Delphi 7 編譯測試 OK
編譯出來的程式碼拿去 Windows 7 x64 測試 OK

[code delphi]
function Is64BitOS: Boolean;
type
TIsWow64Process = function(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall;
var
hKernel32 : Integer;
IsWow64Process : TIsWow64Process;
IsWow64 : BOOL;
begin
// we can check if the operating system is 64-bit by checking whether
// we are running under Wow64 (we are 32-bit code). We must check if this
// function is implemented before we call it, because some older versions
// of kernel32.dll (eg. Windows 2000) don't know about it.
// see http://msdn.microsoft.com/en-us/library/ms684139(VS.85).aspx
Result := False;
hKernel32 := LoadLibrary('kernel32.dll');
if (hKernel32 = 0) then RaiseLastOSError;
@IsWow64Process := GetProcAddress(hkernel32, 'IsWow64Process');
if Assigned(IsWow64Process) then begin
IsWow64 := False;
if (IsWow64Process(GetCurrentProcess, IsWow64)) then begin
Result := IsWow64;
end
else RaiseLastOSError;
end;
FreeLibrary(hKernel32);
end;
[/code]

http://stackoverflow.com/questions/601089/detect-whether-current-windows-version-is-32-bit-or-64-bit

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

在 Windows XP x86 + VC++ 2008 編譯測試 OK
編譯出來的程式碼拿去 Windows 7 x64 測試 OK


[code cpp]
// VC 2008
// http://msdn.microsoft.com/en-us/library/ms684139
#include
#include
typedef BOOL (WINAPI *LPFN_ISWOW64PROCESS) (HANDLE, PBOOL);
LPFN_ISWOW64PROCESS fnIsWow64Process;
BOOL IsWow64()
{
BOOL bIsWow64 = FALSE;
//IsWow64Process is not available on all supported versions of Windows.
//Use GetModuleHandle to get a handle to the DLL that contains the function
//and GetProcAddress to get a pointer to the function if available.
fnIsWow64Process = (LPFN_ISWOW64PROCESS) GetProcAddress(
GetModuleHandle(TEXT("kernel32")),"IsWow64Process");
if(NULL != fnIsWow64Process)
{
if (!fnIsWow64Process(GetCurrentProcess(),&bIsWow64))
{
//handle error
}
}
return bIsWow64;
}
void main()
{
if(IsWow64())
printf("The process is running under WOW64.\n");
else
printf("The process is not running under WOW64.\n");
system("PAUSE");
}

[/code]

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！