shohei blog

月: 2010年1月

コモンダイアログを開いたときに縮小版にしたい

職場で事情によりネットショップ・オーナーというソフトを使うことがあるんですけど、画像選択するコモンダイアログがいつもアイコンでしか開かない。Windowsって不便です。

でも毎回縮小表示にするのが面倒なので、何とかしたいと思った。そもそもコモンダイアログだろうとSendMessageでなんとか出来るとだろうと思い検索。すると既に公開されている方がいた!それでソースをそのままコピーして、利用するWindows2003とネットショップ・オーナーでも動作するように変更しただけです。ソール公開しているくまっちさんに感謝。

ここにバイナリ置いてきますね。主に自分のため。

以下改変したソース

#uselib "user32.dll"
#cfunc FindWindow "FindWindowA" sptr, sptr
#cfunc FindWindowEx "FindWindowExA" int, int, sptr, sptr, 

#define WM_COMMAND 0x0111
#define THUMBNAIL_XP 0x702d //XP
#define THUMBNAIL_W2K 0x7031 //W2K

screen 0,200,100,1
title "縮小版にしちゃう"

a = sysinfo(0)
;mes a
b = instr(a,0,"NT")
c = instr(a,0,"5.0")
d = instr(a,0,"5.1")

if(b > 0){
	mes "NT系"
}else{
	mes "NT系以外"
	mes "利用できません。"
stop
}

if( c > 0){
	mes "Win 2K"
	THUMBNAIL = THUMBNAIL_W2K
}else{
if( d > 0){
	mes "Win Xp"
	THUMBNAIL = THUMBNAIL_XP
}else{
	mes "Vista?"
	//mes "利用できません。"
	//stop 別にとめない
	THUMBNAIL = THUMBNAIL_XP
	}
}

while(1)
hwnd1 = FindWindow("#32770", "イメージソースの選択")

if(hwnd1 == 0){
	hwnd1 = FindWindow("#32770", "別名で保存")
}

if(hwnd1 == 0){
	hwnd1 = FindWindow("#32770", "名前を付けて保存")
}

if(hwnd1 == 0){
	hwnd1 = FindWindow("#32770", "画像選択")	//これを追加した
}

hwnd2 = FindWindowEx(hwnd1, 0, "SHELLDLL_DefView",0 )

if(hwnd2){
	sendmsg hwnd2,WM_COMMAND,THUMBNAIL,0
	while(FindWindowEx(hwnd1, 0, "SHELLDLL_DefView",0 ))
		wait(50)
	wend
}
wait(50)
wend

【映画】かいじゅうたちのいるところ

昨日、仕事帰りにジュンク堂に寄ったところ。
15日公開というチラシを見てしまった。
幸い今日は金曜日で夜は店にでなくていい日だし、何の用事もない。ということで、軽くファストフード(回転寿司)でご飯を済ませてTOHOシネマズに直行。
ラッキーなことに字幕版がレイトショーでやっていたので、観てきた。

原作の絵本で育ったので、あの「かいじゅうたち」が動き回ってるCGを観るだけで、感動してしまった。
絵本が原作だけど、再現度は非常に高いと思う。
よくある原作もので、映画化してみたらガッカリという印象はなかった。

寒い季節ですが、この映画を観て少しほっこりしてみるのもありだと思います。

BMW Z3メンテ記録 ウィンドリフレクタの取り外し

うちの子はアニバーサリーモデル(多分一番最初の数百台?限定車)なのですが。
この子のメンテ公開してるページが皆無なのです。

とりあえず、今日苦労したことはウィンドリフレクタの外し方。

そもそも、他のページでみるウィンドリフレクタとは微妙に取り付け方が違うんです。なんか鍵のようなパーツが部分があってそこをまわせば外せそう。というか結論としては専用の鍵で開けるようです。でもそんな鍵ついてこなかった…。これって社外品なのかしら?

おかげでだいぶ苦労してウィンドリフレクタの取り外しをした後、したかったことは。リアスクリーンのメンテ。

プレクサスがいいらしいということで、プレクサスを吹いてしばらく待ち、ふき取ると不思議なことにあんなに曇っていたリアスクリーン(プラスチック製)の透明度がかなり向上しました。

恐るべしプレクサス、ちなみにオートバックスで定価で買いましたがドンキホーテではかなり安いらしいです…。