【読了】邪悪なものの鎮め方

ほとんどブログで読める内容ですが、ものを読むには紙媒体のほうがいいです。 どう良いかというと、説明するのは難しいですが、発光してる物体の上に描かれているドットの集合体と紙に印刷されているものでは、入ってくるときに通るところが違う気がする。 わかりにくいはなしですまない。 先生も書いてるけど次々と読み進めてしまうので、あっという間に読んでしまうがまた読み返したくなる。 ナチューレ文庫に追加しました。

February 3, 2010 · 1 分 · Shohei

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

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

January 19, 2010 · 1 分 · Shohei

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

昨日、仕事帰りにジュンク堂に寄ったところ。 15日公開というチラシを見てしまった。 幸い今日は金曜日で夜は店にでなくていい日だし、何の用事もない。ということで、軽くファストフード(回転寿司)でご飯を済ませてTOHOシネマズに直行。 ラッキーなことに字幕版がレイトショーでやっていたので、観てきた。 原作の絵本で育ったので、あの「かいじゅうたち」が動き回ってるCGを観るだけで、感動してしまった。 絵本が原作だけど、再現度は非常に高いと思う。 よくある原作もので、映画化してみたらガッカリという印象はなかった。 寒い季節ですが、この映画を観て少しほっこりしてみるのもありだと思います。

January 16, 2010 · 1 分 · Shohei

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

うちの子はアニバーサリーモデル(多分一番最初の数百台?限定車)なのですが。 この子のメンテ公開してるページが皆無なのです。 とりあえず、今日苦労したことはウィンドリフレクタの外し方。 そもそも、他のページでみるウィンドリフレクタとは微妙に取り付け方が違うんです。なんか鍵のようなパーツが部分があってそこをまわせば外せそう。というか結論としては専用の鍵で開けるようです。でもそんな鍵ついてこなかった…。これって社外品なのかしら? おかげでだいぶ苦労してウィンドリフレクタの取り外しをした後、したかったことは。リアスクリーンのメンテ。 プレクサスがいいらしいということで、プレクサスを吹いてしばらく待ち、ふき取ると不思議なことにあんなに曇っていたリアスクリーン(プラスチック製)の透明度がかなり向上しました。 恐るべしプレクサス、ちなみにオートバックスで定価で買いましたがドンキホーテではかなり安いらしいです…。

January 11, 2010 · 1 分 · Shohei

復活

なぜかアクセスできなくなっていたブログ。 原因はデータベースが物故割れてただけでした。 なんでかなー。

January 5, 2010 · 1 分 · Shohei

Hello world!

WordPress へようこそ。これは最初の投稿です。編集もしくは削除してブログを始めてください !

January 5, 2010 · 1 分 · Shohei