掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
利用パソコンが32ビットOSか、64ビットOSか (ID：41852)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ぽむぽむさん、こんにちは。ヒントありがとうございます。 IsWow64Processを使って解決する事ができました。 サンプルソースです。 type TIsWow64Process = function( Handle: THandle; var Res: BOOL ): BOOL; stdcall; function IsWOW64: Boolean; var IsWow64Result: BOOL; IsWow64Process: TIsWow64Process; begin IsWow64Process := GetProcAddress( GetModuleHandle('kernel32'), 'IsWow64Process' ); if Assigned(IsWow64Process) then begin if not IsWow64Process(GetCurrentProcess, IsWow64Result) then raise Exception.Create('Bad process handle'); Result := IsWow64Result; end else Result := False; end; procedure TForm2.Button1Click(Sender: TObject); begin if IsWOW64 = True then ShowMessage('Running on 64-bit OS!!') else ShowMessage('NOT running on 64-bit OS!!'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.