| |
以前、添付ファイルのサイズを知りたいということで、たまがわさ
んから、カーソル位置にファイルサイズを挿入するマクロを教えて
いただきましたが、これをメッセージボックスで出すように改良し
て使っています。
※ついでに、100KBより大きいものに★印が付くようにしてあります。
---ここから
loaddll "tkinfo.dll";
openreg "CURRENTUSER", "Software\\Hidemaruo\\TuruKame\\Config";
$home = getregstr("HomeDir");
closereg;
$account = dllfuncstr("CurrentAccount");
$str="";
#j = 0;
while(1) {
$name = dllfuncstr("CurrentHeader2", "X-Attach", #j);
if($name == "") break;
$filename = $name;
while(1) {
#i = strstr($filename, "\\");
if(#i < 0) break;
$filename = midstr($filename, #i + 1, 256);
}
#size = dllfunc("Bypass_GetFileSize", $home+$account+"\\"+$name);
$str = $str + $filename + " (" + str(#size/1024) + " KB)";
if(#size > 102400) $str = $str + " ★";
$str = $str + "\n";
#j = #j + 1;
}
message($str);
--- ここまで
|
|