デバイス"AIO000"に対して、アプリを通常サイズで起動し、アプリの起動と終了処理を行います。
Dim Ret As Integer ' 戻り値取得用
Dim AppId As Short
Dim CloseStatus As Integer
'----------------------------------------
' アプリを起動し、アクセスを可能にします
'----------------------------------------
Ret = GenOpenApplication( "AIO000" , AppId , 1 )
If Ret <> 0 Then
System.Diagnostics.Debug.WriteLine("GenOpenApplicationエラーが発生しました " & Ret)
End If
'----------------------------------------
' アプリを終了し、アクセスを不可にします
'----------------------------------------
Ret = GenCloseApplication( AppId , CloseStatus )
If Ret <> 0 Then
System.Diagnostics.Debug.WriteLine(" GenCloseApplicationでエラーが発生しました " & Ret)
End If