[becky-pin:02210] Re: プロファイル／メールボックスを追加するには？

　TCM_SETCURFOCUS, PSM_SETCURSEL どちらも試そうとしたのですが、
　どうやらメッセージを投げる以前に、アカウント設定画面を
　FindWindowできていないようなのです。

　↓これらのプロシージャを PostMessage で次々に呼び出しているのですが・・
　もしかして、「メールボックスの設定」ダイアログが生成される前に
　ControlBoxDialogが実行されてしまっているのでしょうか・・・


// 「新規メールボックスの作成」ダイアログを探し出して操作
procedure ControlNewBoxDialog(h : HWND; LPARAM : Longint); stdcall;
var
 hDialog: hWnd;
begin
 hdialog := FindWindow( '#32770', '新規メールボックスの作成');
 if hdialog=0 then exit;
 hdialog := FindWindowEx( hDialog, 0, 'Button', 'OK' );
 if hdialog=0 then exit;
 SendMEssage( hdialog, WM_LBUTTONDOWN,0,0);
 SendMessage(hdialog,WM_LBUTTONUP,0,0);
end;

// 「メールボックスの設定」ダイアログを探し出して操作
procedure ControlBoxDialog(h : HWND; LPARAM : Longint); stdcall;
var
 hDialog: hWnd;
begin
 hDialog := FindWindow( '#32770', '[]の設定');
 if hdialog=0 then exit;
//  hdialog := FindWindowEx( hDialog, 0, '#32770', '' );
//  if hdialog=0 then exit;
//  hdialog := FindWindowEx( hDialog, 0, 'SysTabControl32', '' );
//  if hdialog=0 then exit;
 SendMessage( hdialog, PSM_SETCURSEL, 4, 0);
end;


--

::===========================================================
:: 三浦　琢磨  <mailto:mueller@...>
:: PGP fingerprint: 42FC 4F53 2FB6 5810 1B1B 97A3 F166 2DE7
::===========================================================