使用方法

★レジストリへの書き込み
  -- エラー時は１が戻ります。 
  -- サンプル：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",""の３種類指定できます。
  -- エラー時は１が戻ります。 
  
  file = the pathName & "readme.txt"
  -- error = APIopenfile(file,"maximize")
  -- error = APIopenfile(file,"minimize")
  error = APIopenfile(file,"")
  if (error) then
    alert "ファイルがないか、関連付けられたアプリケーションがありません"
  end if

★メッセージボックスの表示を行います。  
  -- 0〜6の７タイプが可能（サンプルは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
  -- 設定できない場合は１が戻ります。
  -- また、再起動が必要な場合も１が戻ります。
  error = APIsetdispmode(800,600,16,60)
  if (error) then
    alert "解像度変更に失敗しました。"
  end if