;-----------------------------------------------

;デスクトップの色数を求めるモジュール

;-----------------------------------------------
;llmod.asが必要です

;	bitspix v1
;
;	  v1=数値型変数
;
;	  デスクトップの色数(bit)をv1に返します。
;	  エラー処理はありません。


#module "BITSPIX"
#deffunc bitspix val
	mref ret,16

	;デスクトップのウィンドウハンドルをdllret@に返す
	dllproc "GetDesktopWindow",pm,0,D_USER@
	hWnd=dllret@

	pm=hWnd
	dllproc "GetDC",hWnd,1,D_USER@
	hDC=dllret@

	pm=hDC,12				;取得する情報 = BITSPIXEL(色数) = 12
	dllproc "GetDeviceCaps",pm,2,D_GDI@
	irokazu=dllret@

	;GetDCで得たデバイスコンテキストハンドルは、
	;ReleaseDCで開放せねばならない
	dllproc "ReleaseDC",hDC,1,D_USER@

	ret=irokazu
return
#global