HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
1013
ユーヤンOSがWin11かどうか判別6解決


ユーヤン

リンク

2021/10/13(Wed) 18:11:15|NO.94156

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



この記事に返信する


zrs90(5さい)

リンク

2021/10/13(Wed) 20:41:15|NO.94158

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

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



zrs90(5さい)

リンク

2021/10/13(Wed) 21:42:16|NO.94159

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

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

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



こいる

リンク

2021/10/13(Wed) 22:33:36|NO.94160

こんな感じでしょうか。

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 "クライアント" }



UT-X

リンク

2021/10/13(Wed) 22:36:49|NO.94161

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" }



zrs90(5さい)

リンク

2021/10/14(Thu) 00:39:23|NO.94163

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

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

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



ユーヤン

リンク

2021/10/17(Sun) 17:32:46|NO.94186

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



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.94156への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

ONION software Copyright 1997-2021(c) All rights reserved.