【QBASIC互換!?】FreeBasic【GPL】

743 ：デフォルトの名無しさん：2016/09/28(水) 21:50:39.31 ID:x9CrL3iv.net

>>740-741 ありがとうございます。
現在レジストリー関係で四苦八苦していますので、こっちはちょっと先になるかと思います。

>>737　レジストリー関係いじるの開始。
一つのルーチンの引数がかなり類似しているので、引数を整理することで、中身を置き換えた。
比較的簡単なルーチン、sakura エディタ
http://sakura-editor.sourceforge.net/index.html.ja
の存在するディレクトリーの取得。これは、引数を合わせるだけでうまく動作した。
次に、システム情報を取得しようとして
RootKey = HKEY_LOCAL_MACHINE
SubKeyString = "Software\Microsoft\Windows\CurrentVersion"
に９種類、かっては保管されていたのが、現在は5つのみ。残りは行方不明。
RootKey = HKEY_LOCAL_MACHINE
SubKeyString = "Software\Microsoft\Windows\CurrentVersion\Setup\"
に23種のディレクトリーと最終ドライブ名が保管されているはずだが消えた。
「const CSIDL_」で「C:\tool\FreeBASIC\*.bi」を検索すると、
C:\tool\FreeBASIC\inc\win\shlobj.bi　に約60行　SHGetFolderPath() システム関数によって取得できるディレクトリーが取得できる。
こっちに切り替えとなる。 #Include Once "win/shlobj.bi" 宣言が必要なので要注意。

Declare 文が３桁になって専用の *.bi を作ったのは良いのだが
#Include "ComCom1.bi"
(適当な宣言)
#Include "ComCom1.bi"
なんてやったらば、書き込んだ *.bas ではなく、ComCom1.bi に重複宣言とのエラーメッセージが出た。
２重に宣言したことに気が付くのに時間がかかった。