【HSP3】富士通 FMV-BIBLO LOOX T70J(2004年発売) の液晶の輝度を変えるサンプルコード | Codetter（こーどったー）

#include "kernel32.as"
#define FILE_SHARE_READ 0x00000001
#define FILE_SHARE_WRITE 0x00000002
#define GENERIC_READ 0x80000000
#define GENERIC_WRITE 0x40000000
#define IOCTL_VIDEO_QUERY_SUPPORTED_BRIGHTNESS 0x00230494
#define IOCTL_VIDEO_QUERY_DISPLAY_BRIGHTNESS 0x00230498
#define IOCTL_VIDEO_SET_DISPLAY_BRIGHTNESS 0x0023049C

	title "FMV(BIBLO/LIFEBOOK) FUJ02B1 LCD BRIGHTNESS "

	//デバイスのオープン(FUJ02B1)
	val="\\\\?\\acpi#fuj02b1#4&32d50c2&0#{92c94020-da95-11d1-9135-00000e6982c2}"

	CreateFile val,GENERIC_READ|GENERIC_WRITE,FILE_SHARE_READ|FILE_SHARE_WRITE,0,3,0,0
	if stat=-1:dialog
	hlcd=stat

	// バックライトが何段階に調光可能か調べる
	buf=0:br=0
	DeviceIoControl hlcd,0x00220200,varptr(buf),4,varptr(buf),4,varptr(br),0
	l=""
	repeat buf
		l+=""+cnt+"\n"
	loop

	// 現在の状態
	buf=0:br=0
	DeviceIoControl hlcd,0x00220204,varptr(buf),4,varptr(buf),4,varptr(br),0
	buf=0:br=0
	DeviceIoControl hlcd,0x00220204,varptr(buf),4,varptr(buf),4,varptr(br),0
	s = buf

	combox s,,l
	button "変更",*set
	button "更新",*ref
	
stop
*set
	// レベル７に指定
	buf=s:br=0
	DeviceIoControl hlcd,0x00220208,varptr(buf),4,varptr(buf),4,varptr(br),0
	// 上の動作の確定コマンド？
	buf=0:br=0
	DeviceIoControl hlcd,0x0022023c,varptr(buf),4,varptr(buf),4,varptr(br),0
stop
*ref
	// 現在の状態
	buf=0:br=0
	DeviceIoControl hlcd,0x00220204,varptr(buf),4,varptr(buf),4,varptr(br),0
	buf=0:br=0
	DeviceIoControl hlcd,0x00220204,varptr(buf),4,varptr(buf),4,varptr(br),0
	s = buf
	objprm 0,s

stop