HSPTV!掲示板

OSもどきを作っている者です。
windows 10 だと実行できて、
windows 7やwindows 8では
警告を表示するということはできないでしょうか。
SysinfoでOSを特定し、notesaveし、それを読み込んでそれでやろうとしたのですが、
仮想環境でやっても、無理でした。
だれか教えてください！

#uselib "NTDLL.dll"
#func global RtlGetVersion "RtlGetVersion" sptr

	dim OSVERSIONINFO,37
	OSVERSIONINFO=$94
	RtlGetVersion varptr(OSVERSIONINFO)
	mes"WindowsNT "+OSVERSIONINFO(1)+"."+OSVERSIONINFO(2)

	if OSVERSIONINFO(1)==10&OSVERSIONINFO(2)==0 {	//WindowsNT 10.0 (Windows10)
		mes"Windows10環境です"
	} else {
		mes"Windows10環境ではありません"
	}

http://hsp.tv/play/pforum.php?mode=pastwch&num=70416

このサイトの情報を基にして作りました。
Windows8環境を持っていないので確認はできていませんが、多分いけると思います。

別のWindowsバージョンを特定したい場合は以下のページを参考にして、if文の式を変えてみてください。

https://ja.wikipedia.org/wiki/Windows_NT系#バージョンの変遷

仮想環境でやったらできました！ありがとうございます！