mieki256's diary

Lazarus 4.4 で、アプリの設定ファイルを保存したい。環境は Windows11 x64 25H2。

設定ファイルを保存する場所として、C:\Users\(USERNAME)\AppData\Roaming\ を取得して、その下にアプリ名でディレクトリ(フォルダ)を作成して、その中に .json 等を保存したい。

Windows11の場合、件のディレクトリは環境変数 %APPDATA% で指定されているはずなのだけど…。

Lazarus ではどうやってそのディレクトリパスを取得するのか少しググってみたら、GetAppConfigDir() というものがあるそうで、これを使えば設定を保存しても良さそうなディレクトリを提示してくれる、らしいのだけど…。

_Multiplatform Programming Guide/ja - Lazarus wiki

試してみたら、AppData/Roaming ではなくて、AppData/Local を返してきた。Roaming のほうを取得したいのだけどな…。

結局、こうなった。

function GetConfigDir: string;
var
  dirpath: string;
begin
  dirpath := GetEnvironmentVariable('APPDATA');
  if dirpath = '' then
  begin
    dirpath := ConcatPaths([GetUserDir, 'AppData', 'Roaming']);
  end;

  Result := ConcatPaths([dirpath, CONFIG_DIR]);
end;

• GetEnvironmentVariable() で、環境変数 APPDATA の内容を取得して、
• 万が一、中身が空だったら、GetUserDir でユーザフォルダのパスを取得しつつ、その下に AppData/Roaming があるはずだと決め打ちして取得してしまう。
• 最後にアプリ名を追加して、そこが保存先ディレクトリだと確定する。

ConcatPaths() は、配列？に入った文字列を結合してファイルパスを作ってくれるらしい。

ただ、それぞれのフォルダの違いを確認してみたところ…。もしかするとこの場合、Local フォルダに入れたほうがいいのだろうか…？

_AppData 直下の「Local」「LocalLow」「Roaming」フォルダの違い｜ことりと
_AppDataの下にあるLocal,Roaming,LocalLowの３つはどんな違いがある？ - おねーさんブログ
_ユーザーフォルダの「Roaming」「Local」「LocalLow」の違いについて | おのでらの創作日記 in ソーサリーフォース
_猫科研究所 - Roaming, Local, LocalLow

愚痴(?)です。

近所には元々2つの池があって、上池、下池と呼ばれてたのだけど、上池は少し前に埋め立てられてしまった。残念だなと思っていたら、今日、回覧板で、下池まで埋め立てられることを知った。

市の予算が無いとか騒いでおきながら、なんでそういうやらんでもいいことをまた始めるかなあ…。実は予算が余ってたりするのだろうか。

下の池まで無くなったら、水の流れ的にバッファになるところが完全に無くなって、周囲の高台からゴウゴウと流れてきた水はそのまま下流に凄い勢いで流れていきそうだけど、大丈夫なのかな。埋め立てを計画した人達は雨の日にこのあたりがどういうことになってるのか視察したことがあるのだろうか。地図だけ眺めてテキトーに計画を立ててそうで怖い…。

上の池も…。埋め立てたのはいいけれど(いや良くない)、そこで予算が尽きたのか放置状態になっていて…。風が強い日は埋め立てに使った土が砂埃を上げてまるで西部劇のような光景に。風下を歩く時は砂塵の中を突き進まないといけない。WBから脱走して砂漠を歩くアムロ状態ですよ。てめえらは車でスイスイ走り抜けるから気づかないんだろうけど池を埋め立てたせいでこの近辺ちょっと大変なことになってんだよ…。

埋め立ててから結構時間が立ってるのに、あの広い面積に草一本生えてないのもおかしい。工事した連中は除草剤でも撒いたのだろうか。一面に雑草でも生えていればあそこまで砂埃も舞い上がらないだろうに。あの場所、これからどうするつもりなんだろう。

もっとも、須賀川市は東日本大震災で藤沼湖(ダム湖)の堤防が決壊してかなりの犠牲者が出てしまったので、その事故がトラウマになってるのかなと邪推してるのだけど…。とにかく池の類は埋めちまえ潰しちまえモードになってるのだろう…。

山寺池公園のように、まずは池を縮小することから始めればいいのではと思うのだけど、どうしていきなり全部埋め立てるかな…。しかも水の流れをちゃんと調べないままテキトーに埋め立てるから周囲から水が流れ込んで埋め立てに使った土が下流に流されて…。上池跡の端のほうなんて豪雨が降るたびにごっそりと土が流れて無くなって、無くなったからまたそこだけ埋め立て直して、雨が降ったらまた流されてを繰り返しているうちにとうとう放置モードに入ってそのままに。土遊びしてる幼児のほうがまだ上手に水の流れを作れるわ…。

わざわざ税金使って、どうしてこんな杜撰な工事ばかり…。いや、そもそも計画内容がおかしいのだろうけど。水の流れを全然考えない計画というか…。もっとも、釈迦堂川が氾濫したらここら辺は水没するよとハザードマップで示してあった場所にスーパーシティ？ スマートシティ？ 構想と称して公共施設を建てて見事水没させたぐらいに頭が悪い市だから期待しても無駄なのだろうか。

愚痴でした。