| |
123さん、こんにちは。
レスがついてないようなので作ってみました。
設定ファイルにリストアップされたものから順番に登録するだけの
最低限のものです。適宜改良してみて下さい。
>アイコンモジュールライブラリに綺麗なアイコンが沢山出てきたので、
>気分によって色々アイコンモジュールを切り替えているのですが、
>これを自動で出来ないでしょうか？
>鶴亀起動時に現在あるアイコンモジュールをランダム（または起動毎に順番で違うも
>の）に設定するようなマクロは実現可能でしょうか？
例を参考に、鶴亀メールのホームディレクトリに swicon.ini というファイル
を作成して下さい。
「鶴亀メール終了時」に実行するマクロとして登録しておけば、終了時に
モジュールを変更します。
〜swicon.iniの例〜
[IconFileList]
Count=3
Next=0
IconFile0=C:\Turukame\TkIcon_NM4a.tkm
IconFile1=C:\Turukame\TkIcon_NM4.tkm
IconFile2=C:\Turukame\TkIcon_NM3.tkm
〜以下、swicon.mac本体〜
//
// アイコンモジュールを切り替えるマクロ
// （「マクロ登録 - 自動起動 - 鶴亀メール終了時」用）
//
// --- swicon.ini ---
// - swicon.iniは鶴亀メールのホームディレクトリに置きます。
// - アイコンファイルをフルパスで列挙します。
// IconFile0,IconFile1,...
// - Count はアイコンモジュールの数。
// - Next は次のアイコンモジュールの番号で、
// 0..Count-1 の範囲で変化します。
// - リストアップされた順でアイコンファイルを切り替え。
//
//[IconFileList]
//Count=3
//Next=0
//IconFile0=C:\Turukame\TkIcon_NM4a.tkm
//IconFile1=C:\Turukame\TkIcon_NM4.tkm
//IconFile2=C:\Turukame\TkIcon_NM3.tkm
// ---
$TKMLIST_FILE = "swicon.ini";
#COUNT = 1;
#NEXT = 0;
loaddll "TkInfo.dll";
$ini_path = dllfuncstr("HomeDir") + $TKMLIST_FILE;
#COUNT = getininum($ini_path, "IconFileList", "Count");
#NEXT = getininum($ini_path, "IconFileList", "Next");
$icon_var = "IconFile" + str(#NEXT);
$icon_path = getinistr($ini_path, "IconFileList", $icon_var);
if ($icon_path != ""){
#NEXT = #NEXT + 1;
if (#NEXT >= #COUNT)
#NEXT = 0;
openreg "CURRENTUSER","Software\\Hidemaruo\\TuruKame\\Config";
writeregstr "IconFile", $icon_path;
closereg;
#n = dllfunc("EnvChanged");
}else{
#NEXT = 0;
}
writeininum $ini_path, "IconFileList", "Next", #NEXT;
|
|