HSPTV!掲示板

質問ですが、テスト環境がないため、4G以上のメモリ取得がわかりません
調べたところ、

#uselib "KERNEL32.DLL"
#func GlobalMemoryStatusEx "GlobalMemoryStatusEx" var
dim buf,16
buf(0)=64
GlobalMemoryStatusEx buf
mes strf("メモリ容量(下位)=%x",buf(2))
mes strf("メモリ容量(上位)=%x",buf(3))

が出てきましたが、これの上位と下位をあわせて10進にした上で
double型変数に代入することはできるんでしょうか？
よろしくお願いします。

私の環境では、GlobalMemoryStatusExでは「メモリ容量(上位)」の値は0になってしまい、
「メモリ容量(下位)」の値は大きすぎてint型では正常に表示されませんでした。

>double型変数に代入することはできるんでしょうか？
double型に代入したいのであれば手動で変換したらいいのではないでしょうか？

	#uselib "KERNEL32.DLL"
	#func GlobalMemoryStatusEx "GlobalMemoryStatusEx" var
	dim buf,16
	buf(0)=64
	GlobalMemoryStatusEx buf
	memory=strf("%x",buf(2))
	ddim data,3
	repeat strlen(memory)
	data(0)=data(1)
	data(1)=double(int("$"+strmid(memory,cnt,1)+""))
	data(2)=data(2)*16.0+data(1)
	loop
	mes data(2)

ご返答ありがとうございます。

質問を少し間違えてました。
double型変数に代入したら、4GB以上を正常に取得することができるのでしょうか？

よろしくお願いします。

>double型変数に代入したら、4GB以上を正常に取得することができるのでしょうか？
できますよ
これが一番スマートだと思います

#uselib "KERNEL32.DLL"
#func GlobalMemoryStatusEx "GlobalMemoryStatusEx" var
ddim buf,8
lpoke buf,0,64
GlobalMemoryStatusEx buf

//表示
mes strf("%I64u",buf(1))
//double変換
memsize=double(strf("%I64u",buf(1)))

momo さんの方が、最適であったため、当方が提示した、書き込みを削除させていただきました。
ですが、momoさんの提示されたスクリプトで、[MEMORYSTATUSEX構造体]の一部の、dwMemoryLoad; がbuf(0) の一部として返されるため、
そこだけは、val=peek(buf(0),4) などで取得してくださいね。

また、momoさんのスクリプトにて、[MEMORYSTATUSEX構造体]のすべての数値を正常に取得できた事を報告します。

ありがとうございます。
4GB環境がなく、確認が取れなかったので、参考になりました。

回答してくださった皆様、誠にありがとうございました。