| |
お忙しいところ、ご回答いただきありがとうございました。
教えていただいた方法で、ウィンドウは閉じることができました。
ただし以下のマクロで試したところ、期待通り動きませんでした。
恐縮ですが、アドバイスいただけないでしょうか。
やりたいことは、このマクロを秀丸メール本体で動作させ、最近一週間に受信
したウィンドウを開きたいです。次にこのマクロを動作させたときには、
（このマクロ以外で開いたウィンドウは閉じずに）このマクロで開いたものを
閉じてから、新しいウィンドウを開きたいです。
以上、よろしくお願いします。
//目的：このマクロで作成した一覧は、既存ウィンドウを閉じて、新たに開きたい。
//秀丸メール本体で実行する
//#test=0の場合は、既存ウィンドウが閉じない
//#test=1の場合は、既存ウィンドウは閉じるが、新規ウィンドウにおいてメール内
容表示が固定となる
//確認は、Win7、Ver6.10 Beta 24
loaddll "TKInfo.dll";
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
$MacroPathFld = getregstr( "MacroPath" );
if ($MacroPathFld=="") $MacroPathFld = hidemarudir;
closereg;
// #test=0;
#test=1;
#wnd=0;
#wnd= getininum ($MacroPathFld+"\\"+"GrepWindowTest.ini", "SearchWindow", "N
ewMail");
//このウィンドウが未だ開かれていることの確認方法？
if( #wnd != 0 ) {
// #n = dllfunc("SetMainWndTop");
if (#test) message str(#wnd);
// #n = dllfunc( "Bypass_PostMessage", #wnd, 0x0010, 0, 0 );
#n = sendmessage( #wnd, 0x0010, 0, 0 );
if (#test) message str(result);
}
#n = dllfunc("SetFindPack", "flag=!send&transmit=1週間前-指定なし, subfolder
=1, inmail=2, hilight=0" );
#n = dllfunc("DoGrep", dllfuncstr( "CurrentAccount" ), "受信+送信済み+ユー
ザー");
#wnd = dllfunc("GrepWnd");
writeininum $MacroPathFld+"\\"+"GrepWindowTest.ini", "SearchWindow", "NewMai
l", #wnd;
if (#test) message str(#wnd);
#n = dllfunc( "SetGrepWndTop" );
endmacro;
|
|