こてちゅさん、こんにちは。

どうもありがとうございます。
試してみます。

＞＞一つ教えてください。
＞＞INIファイル等に書き出すようにするにはどうすればよいでしょうか？
＞＞例のような形で教えていただけると大変助かります。
＞
＞
＞SystemErrorイベントはアプリケーションオブジェクトのイベントなのは知ってますよね？
＞そこに下記のように記述します。
＞ただし、このスクリプトはVer6.5までのもで、Ver7になるとSystemErrorイベントの
＞引数にエラーが起きたオブジェクトや行番号などが入ってきますので、そちらを利用します。
＞
＞*********************
＞//変数宣言
＞String errwin
＞String errobj
＞String erreve
＞Integer errline
＞Integer errnum
＞String errtxt
＞Integer m
＞
＞/* エラー内容の取得 */
＞errwin = Error.WindowMenu
＞errobj = Error.Object
＞erreve = Error.ObjectEvent
＞errline = Error.Line
＞errnum = Error.Number
＞errtxt = Error.Text
＞
＞/* .INIファイルへ書込む */
＞SetProfileString(g_inifile, \"SystemErr\", \"GamenID\", errwin)
＞SetProfileString(g_inifile, \"SystemErr\", \"ObjectID\", errobj)
＞SetProfileString(g_inifile, \"SystemErr\", \"EventID\", erreve)
＞SetProfileString(g_inifile, \"SystemErr\", \"LineNO\", String(errline))
＞SetProfileString(g_inifile, \"SystemErr\", \"ErrNO\", String(errnum))
＞SetProfileString(g_inifile, \"SystemErr\", \"ErrTXT\", errtxt)
＞
＞//メッセージ
＞m = MessageBox(\"エラー発生\",\"SYSTEMエラーが発生しました。INIファイルで確認してください。\" &
＞               StopSign!,RetryCancel!,1)
＞Choose Case m
＞ Case 1
＞ Return
＞ Case 2
＞ HALT Close
＞End Choose
＞
＞