VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 システム及びOS情報関係のメニュー
1.環境変数に格納されている情報を取得
2.コントロールパネル及びコントロールパネル内の各メニューを開く
3.INI ファイルへの書き込み及び読み込み
4.レジストリへの保存及び読み取り・削除例
5.オペレーティングシステムのバージョン情報を取得
6.WMI の Win32_OperatingSystem クラスを使っての OS 情報の取得
7.現在のシステム環境に関する情報(108項目)を取得
8.ウィンドウ・画面等の幅や高さ等と現在の構成を(84項目)取得
9.Win32 API を使っての物理メモリ及び仮想メモリに関する情報を取得
10.コンピューターの製造会社名及びモデル名/製品型番を取得
11.現在の OS 及びプロセスが 64ビットかどうかを調べる
12.
 . 
20.その他、当サイト内に掲載のシステム及びOS情報に関するサンプル


11.現在の OS 及びプロセスが 64ビットかどうかを調べる(27_Sys_11) (旧、SampleNo.000)
1.現在の OS 及びプロセスが 64ビットかどうかを調べる
2.
3.
4.
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.現在の OS 及びプロセスが 64ビットかどうかを調べる

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If System.Environment.Is64BitOperatingSystem Then
        MessageBox.Show("64 ビットオペレーティングシステムです。")
    Else
        '.NET Framework 4.0 以降が対象なので、略 32 ビット OS といえるのではないでしょうか
        MessageBox.Show("64 ビットオペレーティングシステム以外です。")
    End If

    '対象の CPU を x64 / x86 等に変更して試してみて下さい。
    If System.Environment.Is64BitProcess Then
        MessageBox.Show("このプロセスは、64 ビット上で動作しています。")
    Else
        MessageBox.Show("このプロセスは、64 ビット以外で動作しています。")
    End If

    If IntPtr.Size = 4 Then
        MessageBox.Show("32ビットプロセスで動作しています")
    ElseIf IntPtr.Size = 8 Then
        MessageBox.Show("64ビットプロセスで動作しています")
    End If

End Sub

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。