| |
僕の作ったマクロは秀丸メール本体ウィンドウ上で実行する前提になっていました。
エディタ・ウィンドウ上でも実行可能なように直してみました。これでどうでしょ
うか。
-----------------------------------------------------------------------
loaddll "tkinfo.dll";
#handle = hidemaruhandle(0);
#main = dllfunc("MainWnd2");
if( #handle == #main ) {
//秀丸メール本体ウィンドウ上で実行した場合
#n = dllfunc("SetAutoPushTimerEver", hidemaruhandle(0), "" );
#n = sendmessage( hidemaruhandle(0), 0x111, 40321, 0 ); //履歴の
消去コマンド
#n = dllfunc("StopAutoPushTimer");
} else {
//エディタ・ウィンドウ上の場合
#n = dllfunc("Bypass_PostMessage", #main, 0x111, 40321, 0 ); //
履歴の消去コマンド
#tick = tickcount;
while(1) {
#dlg = findwindow( "履歴の消去" );
if( #dlg != 0 ) {
#n = dllfunc("Bypass_PostMessage", #dlg, 0x111, 1, 0 );
//OKボタン
break;
}
if( tickcount - #tick > 1000 ) {
message "履歴の消去ダイアログが見つかりません。";
endmacro;
}
}
}
|
|