| |
失礼しました。僕の作ったマクロですが、秀丸メール本体ウィンドウ上で実行
される前提になっていて、エディタ・ウィンドウ上だとうまく動いてませんでし
た。
エディタ・ウィンドウ上でもうまく動くように直してみました。これでどうで
しょうか。
#x = x;
#y = y;
loaddll "tkinfo.dll";
if( dllfunc("IsHidemaruMailMain") ) {
#n = dllfunc("EnterPrintMulti");
}
#readonly = readonly;
if( #readonly ) readonlyswitch;
#browsemode = browsemode;
if( #browsemode ) browsemodeswitch;
begingroupundo;
moveto 0, -9999;
while(1) {
searchdown "^Date: [^ ]", regular, casesense;
if( !result ) {
break;
}
if( (colorcode & 0x1F) != 3 ) {
continue;
}
$date = gettext( 10, y, 256, y );
$date = dllfuncstr("FormatDate", $date, "YYYY/MM/DD(W曜日) hh:mm:ss");
moveto 10, y;
beginsel;
golineend2;
delete;
insert $date;
}
endgroupundo;
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hmpv\\Conf";
$template = getregstr("StartHPT");
closereg;
openreg "CLASSESROOT"
, "CLSID\\{3790E08E-DA26-41E2-B6B7-A2C2DED41C2F}\\InprocServer32";
if( ! result ) {
message "秀丸パブリッシャーがインストールされていません。";
endmacro;
}
$path = getregstr("");
closereg;
loaddll $path;
if( !result ) {
message "HidemaruApi.dllのロードに失敗しました。ファイル名 = "
+ $path;
endmacro;
}
#n = dllfunc("PrintDialog", hidemaruhandle(0), $template, 0,0,0,1,0 );
undo;
if( #readonly ) readonlyswitch;
if( #browsemode ) browsemodeswitch;
loaddll "tkinfo.dll";
if( dllfunc("IsHidemaruMailMain") ) {
#tmp = dllfunc("LeavePrintMulti");
}
moveto #x, #y;
|
|