使用方法
★レジストリへの書き込み
-- エラー時は1が戻ります。
-- サンプル:HKEY_CURRENT_USER\Software\test\test_writeへtestを書き込む
error = APIregwrite("HKEY_CURRENT_USER","Software\test","test_write","test")
if (error) then
alert "error"
end if
★レジストリからの読み込み
-- サンプル:HKEY_CURRENT_USER\Software\test\test_writeから読み込む
-- 読み込みエラー時は"default"が戻ります。
reg = APIregread("HKEY_CURRENT_USER","Software\test","test_write","default")
--- リターン文字がデフォルトと同じ場合はエラー
if (reg = "default") then
alert "レジストリキーが見つかりません。"
end if
★関連付けられたアプリケーションでファイルを開きます。
-- サンプルはreadme.txtです。
-- ウインドウ形状は"maximize","minimize",""の3種類指定できます。
-- エラー時は1が戻ります。
file = the pathName & "readme.txt"
-- error = APIopenfile(file,"maximize")
-- error = APIopenfile(file,"minimize")
error = APIopenfile(file,"")
if (error) then
alert "ファイルがないか、関連付けられたアプリケーションがありません"
end if
★メッセージボックスの表示を行います。
-- 0〜6の7タイプが可能(サンプルは0)
-- 戻り値はクリックされたボタンの番号です。
temp = APImessagebox("キャプション","メッセージ",0)
★現在の解像度を取り込みます。
-- 戻り値はdispmode[1]:幅,dispmode[2]:高さ,dispmode[3]:色数,dispmode[4]:リフレッシュレートです。
dispmode = APIgetdispmode()
-- 最終文字を取得します。
laststring = dispmode.getLast()
if (laststring < 10 ) then -- 周波数レートを取得出来ない場合
member(2).text = "解像度取り込みの戻り値は" & string(dispmode[1]) & "," & string(dispmode[2]) & "," & string(dispmode[3]) & "です。"
else -- 周波数レートを取得出来た場合
member(2).text = "解像度取り込みの戻り値は" & string(dispmode[1]) & "," & string(dispmode[2]) & "," & string(dispmode[3]) & "," & string(dispmode[4]) & "です。"
end if
★サポートされている解像度リストを取り込みます。
-- 戻り値は解像度リストです。
modelist = APIgetdisplist()
-- 最終文字列取得
laststring = modelist.getLast()
-- 最終文字列からリストの数を取得
lastnum=modelist.getOne(laststring)
cnt = 1
temp = ""
-- リストの数ループして解像度を取り出す。
repeat while cnt < lastnum+1
temp = temp & " [" & modelist[cnt] & "]"
cnt = cnt+1
end repeat
member(2).text = "サポートされている解像度は" & string(lastnum) & "種類です。" & temp
★任意の解像度に変更します。
-- サンプル:幅800,高さ600,色数16ビット,リフレッシュレート60Hz
-- 設定できない場合は1が戻ります。
-- また、再起動が必要な場合も1が戻ります。
error = APIsetdispmode(800,600,16,60)
if (error) then
alert "解像度変更に失敗しました。"
end if
|