2008/12/04 木曜日
今日は、まともにラムダ関数を使った例でも書いてみることにします。コードはとっさに思い浮かんだウィンドウの列挙です。VC++10 CTP用です。
#include <iostream>
#include <string>
#include <deque>
#include <algorithm>
#include <functional>
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
namespace egtra
{
typedef std::tr1::function<bool (HWND)> enum_func_t;
BOOL CALLBACK xEnumWindowsProc(HWND hwnd, LPARAM lp)
{
return (*reinterpret_cast<enum_func_t*>(lp))(hwnd);
}
inline BOOL EnumWindows(enum_func_t fn)
{
return ::EnumWindows(xEnumWindowsProc,
reinterpret_cast<LPARAM>(&fn));
}
std::basic_string<TCHAR> GetWindowText(HWND hwnd)
{
std::basic_string<TCHAR> s;
if (int tmpLen = GetWindowTextLength(hwnd))
{
++tmpLen;
s.resize(static_cast<size_t>(tmpLen));
int len = GetWindowText(hwnd, &s[0], tmpLen);
s.resize(len);
}
return s;
}
}
int main()
{
std::deque<HWND> hwnds;
egtra::EnumWindows([&hwnds](HWND hwnd) -> bool {
hwnds.push_back(hwnd);
return true;
});
std::for_each(hwnds.begin(), hwnds.end(), [](HWND hwnd) {
std::cout << std::hex << hwnd << 't'
<< egtra::GetWindowText(hwnd) << std::endl;
});
}日本語で書くとこんな感じです: EnumWindowsでウィンドウハンドルを取得し、hwndsへ蓄え、そしてハンドルとタイトルを出力するためfor_eachで中身を巡回しています。
中心となる部分がmain関数に全て収まりました。このコードでは名前空間egtraに放り込んだ部分に相当するライブラリが充実したら相当おもしろそうですが、どうせこれまでどおりそこも自分で書き続ける羽目になるのでしょう。
egtra::xEnumWindowsProcは独立した関数にせず、egtra::EnumWindows内にラムダ関数で定義しようとしましたが、キャプチャなし（外側の環境の影響を一切受けないもの）でも関数へのポインタに変換するのは駄目でしたね。そのようなこれもできたらできたで良かったのにとは思います。
1行目の段の文字の内、1箇所へこんでいるのはフォントのせいです。エディタに張り付けて他のフォントを選べば、きれいな段になります。
タブの外側が普通のウィンドウの色、タブとその中がEnableThemeDialogTextureによる背景となっています（他のスキンでも同じです）。標準以外のテーマを入れるにはシステムファイル保護を無効にしなければならないなど、危険性の上昇、手順の面倒くささが問題なので、誰にでもお勧めできる機能ではないのが残念です。
このとおり、Process Explorerで見ても整合性レベルがLowであることが確認できます。
まあ大したことありません。MeesageBox/MsgBoxとあまり変わったことはできません。
とりあえず名前を付けて保存ダイアログを表示し、入力されたファイル名をコンソールにPrintしているだけです。
（画像のウィンドウは小さくしてあります）中心となる処理は3行で済むようになります。これくらいは簡単でないと後が思いやられることになりますからね。
Paint関数をAddPaintDCでfに「登録」しています。すると、以後Paintイベントが起こると先ほど書いたPaint関数が呼ばれるという具合です。ほかにもAddClick, AddKeyPressなどAB4のRADでイベントとして存在したものは同様に登録可能です。なお、f.Textはウィンドウタイトルです。