HSPTV!掲示板

HSPでWindows10か11かどうか取得することは可能でしょうか？
Serverかどうかも取得したいです。

先日、ご自分で立てたWindows11〜のスレッドに
ウインドウの角丸をon/offするモジュールを投稿された方が
いらっしゃいました。...バージョン判定の処理がありましたので
それをヒントに、マイクロソフトのapiのドキュメント見たら
ご自分で作れるかも...

...私は、探しきれませんでしたが。当方スマホ投稿なんで、検索しづらくて。
(※見つけても、多分私じゃムリ。)

出来ないなら、私が使っていた乱暴な方法で...

dxdiagでDirectX診断ツールを起動。
情報を全て保存ボタン→テキストで保存されるので
note系命令を使って、必要な情報の行だけ
引きずり出せば、良いんですよ。

Win32api使わなくても、OS／メモリ／ＣＰＵ情報他
全部取り出せます。超簡単。

こんな感じでしょうか。

Windows 11かの判定は、zrs90(5さい)さんがおっしゃっているであろう、UT-Xさんのコードを参考にしました。
https://hsp.tv/play/pforum.php?mode=all&num=94059#94134

各OSのバージョン番号が知りたい場合はこちらを。
https://docs.microsoft.com/ja-jp/windows/win32/sysinfo/operating-system-version

// Windows 11か10かそれ以外か判定
#uselib "ntdll.dll"
	#func RtlGetVersion "RtlGetVersion" sptr
	
	// バージョン取得
	dim OSVERSIONINFO, 37
	OSVERSIONINFO = varsize(OSVERSIONINFO)
	RtlGetVersion varptr(OSVERSIONINFO)
	
	majorVersion = OSVERSIONINFO(1)
	buildNumber = OSVERSIONINFO(3)
	
	// 判定
	if (majorVersion >= 10) {
		if (buildNumber >= 22000) {
			mes "Windows 11"
		}else{
			// Windows Server 2019 もしくは Windows Server 2016 の可能性もあるが
			mes "Windows 10"
		}
	}else{
		mes "Windows 8.1以前"
	}

// サーバーか判定
#uselib "shlwapi.dll"
	#func IsOS "IsOS" sptr
	#define OS_ANYSERVER  29
	
	if (IsOS(OS_ANYSERVER)) {
		mes "サーバー"
	}else{
		mes "クライアント"
	}

Windows11 Ver.21H2 は、内部的には NT10.0 Build22000 ということになっています。
以前に沢渡さんが以下のスレッドで書いたgetverを用いることで、
Windows Serverとの区別もできます。
http://hsp.tv/play/pforum.php?mode=pastwch&num=91821
winver_textをWindows11に対応させるには、以下の部分を書き換えてください。

		if x=100 : s="Windows 10"

↓

		if x=100 {
			if a(2)<22000 : s="Windows 10" : else : s="Windows 11"
		}

こいるさん、UT-Xさんありがとうございました。
私では、出来そうもなかったので助かりました。

追記。
ユーヤンさんへ
自分で立てたスレッドと、投稿したスレッドは
最後まで、読んでおくと良いですよ。

例のスレッドは、私も投稿していたので
今回、似た処理があった事を思い出して
書く事が出来ました。

返信が遅くなってすみません。ありがとうございます…。