同じ画像をA4に8つ印刷したい時の技

Wordを使う。

・1ページいっぱいに画像を拡大する
・リボン>レイアウト>余白>ユーザー設定の余白選択して全部0にする
f:id:shikaku:20201023231234p:plain
・ファイル⇒印刷⇒設定の[すべてのページを印刷]
・ページ数[1,1,1,1,1,1,1,1,]コンマで区切り[1ページが8ページ]
・最下の[1ページ/枚]▾⇒[8ページ/枚]を選択
・印刷ボタンでGo! PDFにしておくと便利。
f:id:shikaku:20201023231305p:plain

c++11の機能を使ったStopWatchクラス

#include <chrono>
struct StopWatch
{
	StopWatch() { pre_ = std::chrono::high_resolution_clock::now(); }

	//前回のlap関数コールからの経過時間をmilli sec単位で返す
	double lap()
	{
		auto tmp = std::chrono::high_resolution_clock::now();  // 計測終了時刻を保存
		auto dur = tmp - pre_;
		pre_ = tmp;
		return std::chrono::duration_cast<std::chrono::nanoseconds>(dur).count() / 1000000.0;
	}
	
	CString slap() {
		CString mess;
		mess.Format("%f\n", lap());
		return mess;
	}

	std::chrono::high_resolution_clock::time_point pre_;
};

Norton SafeWeb に 誤検出された時の対策方法

https://safeweb.norton.com/site_dispute にアクセス
・アカウント作る
・ログイン
・URL入れてサイトの評価を確認 「X」と出る
・「>ここをクリックして異議を送信」をクリック
・HEADにタグを埋め込むかファイルをアップロードして認証。
・「サイトを再評価する」で異議申し立て

2日かかるそうです。


innosetupでウィザードのようこそ画面を表示させる

DisableWelcomePage = no とする

;-------------------------------------------------------------------------
; ウィザード画面の表示に関わる定義
;-------------------------------------------------------------------------
; 開始ダイアログの表示設定
DisableStartupPrompt = no
; ようこそ画面の表示設定
DisableWelcomePage = no 
; プログラムグループ設定画面の表示設定
DisableProgramGroupPage= no
; ユーザー情報設定画面の表示設定
UserInfoPage = yes
; インストール先の指定の表示設定
DisableDirPage = no 
; 準備完了画面の表示設定
DisableReadyPage = no
; インストール完了の表示設定
DisableFinishedPage = no

inno setupで指定exeが起動してたら中断する

[Code]
function IsAppRunning(const FileName : string): Boolean;
var
  FSWbemLocator: Variant;
  FWMIService : Variant;
  FWbemObjectSet: Variant;
begin
  Result := false;
  FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
  FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
  FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
  Result := (FWbemObjectSet.Count > 0);
  FWbemObjectSet := Unassigned;
  FWMIService := Unassigned;
  FSWbemLocator := Unassigned;
end;

function InitializeSetup: boolean;
begin
Result := not IsAppRunning('excel.exe');
if not Result then
MsgBox('Excelが起動しています。Excelを終了させてから再度インストールをお試し下さい。', mbError, MB_OK);
end;