ちょっと変な状態に陥ったのでメモ．

\\DevS\Documents\MICS\Plan\MICSDat\Test_2015 01-03\9LM-2U-J6TRi-2S7M.001\
\\DevS\Documents\MICS\Plan\MICSDat\Test_2014_12\ などでは
[Window Title]
ファイルを作成できません
[Content]
ファイル ‘新しいテキスト ドキュメント.txt’ を作成できません。
開かれている共有ファイルが多すぎます。
[OK]

\\DevS\Documents\MICS\Plan\MICSDat\ だと戻ってこない（エクスプローラが応答なしになる）
\\DevS\Documents\MICS\Plan\ などでは正しく生成できる．

ログオフ時，\\DevS\Documents\MICS\Plan\MICSDat\新しいテキスト ドキュメント.txt ができていた．
再ログオン後，直後はできなかったがしばらくすると可能となった．

現象はどーってことない（再起動すれば直る）が，
問題は，MFC で作成した普通の AP でドキュメントが消失したこと．
その AP は，自動的に %Temp% にバックアップを保持するので完全に失ったわけではないが，
標準の MFC のシリアライズ動作ではうまくないのか？

コンソール AP で，レジストリを読み取るために以下の様な関数を用意した．

　　int Reg_GetInt (HKEY hKey,LPCTSTR subKey,LPCTSTR ent,const int defValue=0)
　　{
　　　　 DWORD value = defValue ;
　　#ifdef _ATL_VER
　　　　 {
　　　　　　 CRegKey reg ;
　　　　　　 reg.Open(hKey,subKey) ;
　　　　 #if (_ATL_VER >= 0x700)
　　　　　　 reg.QueryDWORDValue(ent,value) ;
　　　　 #else
　　　　　　 reg.QueryValue(value,ent) ;
　　　　 #endif
　　　　　　 }
　　#else
　　　　 {
　　　　　　 HKEY hSecKey = NULL ;
　　　　　　 LONG openStatus = ::RegOpenKeyEx(hKey,subKey,0,KEY_READ,&hSecKey) ;
　　　　　　 if (hSecKey == NULL) { return value ; }
　　　　　　 DWORD type = REG_NONE ;
　　　　　　 DWORD count = sizeof(DWORD) ;
　　　　　　 LONG queryStatus = ::RegQueryValueEx(hSecKey,ent,NULL,&type,(LPBYTE)&value,&count) ;
　　　　　　 ::RegCloseKey(hSecKey) ;
　　　　　　 }
　　#endif
　　　　 return int(value) ;
　　　　 }
＊::Reg～ などのエラーチェックは省いている．
呼出すのはこんな感じ．
　　int value = ::Reg_GetInt(HKEY_CURRENT_USER,_T(“Software\\Iwao\\Test\\RegAcc”),_T(“T_RegKey_DW”)) ;

CWinApp::GetProfileInt などが使えないかとやってみたが，…
1. AfxGetApp() を呼びだしても，NULL で戻ってくる．
　　次の様に領域を確保．
　　　　CWinApp theApp;
2. SetRegistryKey(key) が直接呼びだせないので，
　　class C_SRK_WinApp : public CWinApp {
　　public:
　　　　　　 void SetRegKey (LPCTSTR key) { SetRegistryKey(key) ; }
　　　　 } ;
　　変数の確保は次の様に変更．
　　　　C_SRK_WinApp theApp ;
3. SetRegistryKey の中で ASSERT(m_pszAppName != NULL)
　　以下を追加して，CWinApp を初期化．
　　　　 AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0) ;
4. これで CWinApp::GetProfileInt は利用できるようになるが，CWinApp::m_pszProfileName が邪魔．
　　 C_SRK_WinApp* app = (C_SRK_WinApp*)AfxGetApp() ;
　　 int val = app->GetProfileInt(_T(“Test\\RegAcc”),_T(“T_RegKey_DW”),0) ;
　　HKCU\Software\Iwao\(m_pszProfileName)\Test\RegAcc となってしまう．
5. m_pszProfileName を _T(“”) とすることにより，意図した値を取得できる様にはなった．
　　 C_SRK_WinApp* app = (C_SRK_WinApp*)AfxGetApp() ;
　　 if (app != NULL) {
　　　　 AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0) ;
　　　　 app->SetRegKey(_T(“Iwao”)) ;
　　　　 free((void*)app->m_pszProfileName) ;
　　　　 app->m_pszProfileName = _tcsdup(_T(“”)) ;
　　　　 int val = app->GetProfileInt(_T(“Test\\RegAcc”),_T(“T_RegKey_DW”),0) ;
　　　　 }

コンソール AP で CWinApp::GetProfileInt などを使うことは，やめ．

以前 DoDragDrop で少し調べたが，その時は途中になっていた．
その時の内容で，例えば CListBox に表示されてるファイルリストのすべてを，CListBox の外側でドラッグするすることはできる．
　　void CDragLBDlg::OnLButtonDown(UINT nFlags, CPoint point)
　　{
　　　　CStringArray sa ;
　　　　::ToStringArray(FileNames,&sa) ;
　　　　::StringArrayToDoDragFiles(sa) ;
　　　　}

CListCtrl であれば，OnBegindragXxxx が利用できるので，
　　void CDragLVDlg::OnBegindragListFiles(NMHDR* pNMHDR, LRESULT* pResult)
　　{
　　　　NM_LISTVIEW* pNMListView = (NM_LISTVIEW*)pNMHDR;
　　　　{
　　　　　　CStringArray sa ;
　　　　　　for (int index=0 ; index<m_ListFiles.GetItemCount() ; index++) {
　　　　　　　　if (m_ListFiles.GetItemState(index,LVIS_SELECTED) == LVIS_SELECTED) {
　　　　　　　　　　tstring str = FileNames[index] ;
　　　　　　　　　　sa.Add(str.c_str()) ;
　　　　　　　　　　}
　　　　　　　　}
　　　　　　if (sa.GetSize() > 0) {
　　　　　　　　::StringArrayToDoDragFiles(sa) ;
　　　　　　　　}
　　　　　　}
　　　　*pResult = 0;
　　　　}

今回やりたかったのは，CListBox の項目のドラッグ．
ドラッグ部分は CListCtrl とほぼ同様となると思われるが，ドラッグ開始のタイミングが取れない．
CDragListBox と開始時の動きは似ているが，MFC のコードを見るとちょっと難しそう．
いろいろと検索すると，CListBox のサブクラス化で対応するみたいとわかったが，手順が．．．
動的なサブクラス化と言うらしい．
Inside Visual C++ には，囲み記事に CNonNumericEdit がある．
利用する手順はわかるが，作成する手順がわからない
今も利用はしている CView からの VXxxxView ファミリがあるが，10 年以上前で手順は覚えてない．

いろいろ探して「MFC クラスウィザード」を利用することがわかった．
今まで，よく見ていたダイアログなのに．．．

後は，WM_LBUTTONDOWN を処理する様にして，
　　void CMyListBox::OnLButtonDown(UINT nFlags, CPoint point)
　　{
　　　　CListBox::OnLButtonDown(nFlags, point);
　　　　int sel = GetCurSel() ;
　　　　if (sel == LB_ERR) { return ; }
　　　　CString str ;
　　　　GetText(sel,str) ;
　　　　CStringArray sa ;
　　　　sa.Add(str) ;
　　　　::StringArrayToDoDragFiles(sa) ;
　　　　}
ダイアログに追加したリスボックスで，これを利用する様にダイアログのヘッダを修正．

MSDN CTRLTEST サンプル
テクニカル ノート 14
標準コントロールからのコントロールの派生
[MSVC] MFCを使用しての動的サブクラス化
Create Client Windows, Drag and Drop Between Listboxes

2014/08/11 追記
COleDataSource を利用して，他の AP に CF_HDROP で渡そうとすると，
—————————
Microsoft Visual C++ Debug Library
—————————
Debug Assertion Failed!
Program: …Documents\Visual Studio 2010\Projects\TestVC10\Debug\T_SC.exe
File: f:\dd\vctools\vc7libs\ship\atlmfc\src\mfc\cmdtarg.cpp
Line: 43
For information on how your program can cause an assertion
failure, see the Visual C++ documentation on asserts.
(Press Retry to debug the application)
—————————
中止(A) 再試行(R) 無視(I)
—————————

COleDataSource の使い方が間違っていた．
開放する時に delete ではうまくない．
データ オブジェクトとデータ ソース : 作成と破棄

VC 7 以降，MDI AP のモードレスダイアログが独立して動作してしまう現象があった．
その AP は，VC 4 の頃作成したもので CMainFrame::OnCreate 内でモードレスダイアログを作成している．
VC 6 までは特に問題なかったが，VC 7 以降タスクバーにアイコンが 2 つ存在する状態になってしまっていた．
過去に何度か対応方法を調べたが，わからずそのままとなっていた．

今日別の事を調べていて，「モードレスダイアログで親子にならなくする」方法が目に留まった．
CDialog::Create で，デフォルトの NULL ではなく，GetDesktopWindow() を与えるというもの．
VC 7 AP のダイアログの情報を，Spy++ で見ると，親ウィンドウが （なし） になっている．
今度はデバッガで，Create の付近を追いかけると AfxGetMainWnd() で NULL がかえっている．
ThrdCore.cpp より
CWnd* CWinThread::GetMainWnd()
{
　　if (m_pActiveWnd != NULL)
　　　　return m_pActiveWnd;
　　if (m_pMainWnd != NULL)
　　　　return m_pMainWnd;
　　return CWnd::GetActiveWindow();
}

CXxxApp::InitInstance で以下の部分を修正．
　　CMainFrame* pMainFrame = new CMainFrame;
　　m_pMainWnd = pMainFrame;　　　// ここを追加
　　if (!pMainFrame->LoadFrame(IDR_MAINFRAME))
　　　　return FALSE;
　　m_pMainWnd = pMainFrame;

SDI で，MDI の「新しいウィンドウを開く」で 4 つのビューを表示した様な動作が欲しかったので，調べてみた．
動的な分割ウィンドウである程度の所まではできそう．

1. MainFrm.h の CMainFrame に以下を追加．
　　　　CSplitterWnd m_wndSplitter;
　　　　virtual BOOL OnCreateClient(LPCREATESTRUCT lpcs, CCreateContext* pContext);
2. CMainFrame::OnCreateClient の追加．
　　　　BOOL CMainFrame::OnCreateClient(LPCREATESTRUCT lpcs, CCreateContext* pContext)
　　　　{
　　　　　　{
　　　　　　　　if (!m_wndSplitter.Create(this,2, 2,CSize(10, 10), pContext,
　　　　　　　　　　　　WS_CHILD | WS_VISIBLE /* | WS_HSCROLL | WS_VSCROLL */ | SPLS_DYNAMIC_SPLIT))	{
　　　　　　　　　　TRACE0("Failed to create split bar ");
　　　　　　　　　　return FALSE;
　　　　　　　　　　}
　　　　　　　　return TRUE;
　　　　　　　　}
　　　　　　}
　　　　スクロールバーを付加したくなかったので，6 つ目のウィンドウスタイルを変更している．
テスト用に分割動作をコマンドとして実装．
　　　　void CMainFrame::OnSplit() 
　　　　{
　　　　　　if (IsSplit)	{
　　　　　　　　if (m_wndSplitter.GetColumnCount() > 1) {	m_wndSplitter.DeleteColumn(1) ;	}
　　　　　　　　if (m_wndSplitter.GetRowCount() > 1) {     	m_wndSplitter.DeleteRow   (1) ;	}
　　　　　　　　IsSplit = !IsSplit ;
　　　　　　　　}
　　　　　　else {
　　　　　　　　CRect	rect ;
　　　　　　　　m_wndSplitter.GetClientRect(&rect) ;
　　　　　　　　if (m_wndSplitter.GetColumnCount() == 1) {	m_wndSplitter.SplitColumn(rect.Width ()/2) ; }
　　　　　　　　if (m_wndSplitter.GetRowCount() == 1) {		m_wndSplitter.SplitRow   (rect.Height()/2) ; }
　　　　　　　　IsSplit = !IsSplit ;
　　　　　　　　}
　　　　　　}

2 x 2 の分割ウィンドウのコントロールの ID (Spy++ で確認)
　　左上(0,0)　　E900　　AFX_IDW_PANE_FIRST
　　右上(0,1)　　E901
　　左下(1,0)　　E910
　　右下(1,1)　　E911

ビューの OnDraw を以下の様に書き換えると

　　void CSpltWView::OnDraw(CDC* pDC)
　　{
　　　　int		row = -1 ;
　　　　int		clm = -1 ;
　　　　CMainFrame*		mw = (CMainFrame*)AfxGetMainWnd() ;
　　　　CSplitterWnd*	sw = &mw->m_wndSplitter ;
　　　　CString			str ;
　　　　if (sw->IsChildPane(this,&row,&clm)) {
　　　　　　int	id = sw->IdFromRowCol(row,clm) ;
　　　　　　CString	tmp1 ;	tmp1.Format(_T("row = %d  ,  clm = %d"),row,clm) ;
　　　　　　CString	tmp2 ;	tmp2.Format(_T("IdFromRowCol = %04X"),	id) ;
　　　　　　str += tmp1 + _T("\r\n") ;
　　　　　　str += tmp2 + _T("\r\n") ;
　　　　　　}
　　　　{
　　　　　　UINT	nID = GetDlgCtrlID() ;
　　　　　　CString	tmp ;	tmp.Format(_T("GetDlgCtrlID  = %04X"),nID) ;
　　　　　　str += tmp + _T("\r\n") ;
　　　　　　}
　　　　{
　　　　　　CWnd*	pw = GetParent() ;
　　　　　　CString	tmp1 ;	tmp1.Format(_T("Splitter = %08x "),sw->GetSafeHwnd()) ;
　　　　　　CString	tmp2 ;	tmp2.Format(_T("Parent  = %08x "),pw->GetSafeHwnd()) ;
　　　　　　str += tmp1 + _T("\r\n") ;
　　　　　　str += tmp2 + _T("\r\n") ;
　　　　　　}
　　　　CRect	rect ;
　　　　GetClientRect(rect) ;
　　　　rect.top = rect.left = 10 ;
　　　　pDC->DrawText(str,rect,0) ;
　　　　}

MFC の ソースを眺めていると CView::GetParentSplitter があったので，間接的にはそれを使えば良さそう．

ビューでどの位置かを求めるだけなら，
　　　　short	texNo = 0 ;
　　　　{
　　　　　　UINT	nID = GetDlgCtrlID() ;
　　　　　　switch	(nID)	{
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x00 :	texNo = 1 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x01 :	texNo = 2 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x10 :	texNo = 3 ;		break ;
　　　　　　　　case	AFX_IDW_PANE_FIRST + 0x11 :	texNo = 4 ;		break ;
　　　　　　　　}
　　　　　　}

MFC を利用しないコードを VC 6 でテストしていて，
　　コンソール AP として作成したスケルトンに，::oGetFileSize を追加．
　　MFC を利用した，::GetFileSize と動作を比べるために，
　　　　プロジェクトの設定を変更（共有 DLL で MFC を使用）．
　　　　main 関数が存在するソースに Afx.h などの include を追加．
　　ビルドして実行すると，メモリリークが発生するようになった．
　　main 関数内を全てコメントにしてもあまり変わらない．

MFC サポートありで，コンソール AP を作成．
　　同様に oGetFileSize と GetFileSize を追加．
　　ビルド，実行すると特に問題ない．
　　StdAfx.h 内の Afx.h などを tmain のソース内に移動．
　　リビルドすると，メモリリーク発生．
どうも，Afx.h より前の iostream などが関係している．
また，リビルドしないと現象が変わらない．

StdAfx.h に iostream の include を追加
　　#define VC_EXTRALEAN
　　#include <iostream>
　　#include <afx.h>

Detected memory leaks!
Dumping objects ->
{51} normal block at 0x00032440, 33 bytes long.
 Data: < C              > 00 43 00 CD CD CD CD CD CD CD CD CD CD CD CD CD 
{50} normal block at 0x00034F68, 40 bytes long.
 Data: < |L             > 14 7C 4C 10 16 00 00 00 00 00 00 00 00 00 00 00 
Object dump complete.
ｽﾚｯﾄﾞ 0x1218 終了、終了ｺｰﾄﾞ 0 (0x0)。
ﾌﾟﾛｸﾞﾗﾑ 'C:\...\T_Con2\Debug\T_Con2.exe' はｺｰﾄﾞ 0 (0x0) で終了しました。

iostream のインクルードを afx.h より後にすることで対応．

追加したツールバーでフローティング不可の時，印刷プレビューでの表示がうまくない．

CFrameWnd::OnSetPreviewMode を見ると，
　　AFX_IDW_CONTROLBAR_FIRST ～ + 31 の範囲では ShowControlBar を呼出している．

Shell Extension を利用した画像表示．ダイアログにファイルをドロップすると表示する様に．
1. CStatic を用意．ピクチャコントロールを配置して ClassWizard で変数を追加．
2. DImageS の領域を確保．通常はヘッダに．
3. OnDropFiles で
　　　　// CString dropFile = …. ;
　　　　ImageS.SetFileName(dropFile) ;
　　　　ImageS.Draw(&m_Image) ;
　　　　{
　　　　　　m_Image.ShowWindow(SW_HIDE) ;
　　　　　　m_Image.ShowWindow(SW_SHOW) ;
　　　　　　}
　　　　// …
4. OnPaint で
　　　　ImageS.Draw(&m_Image) ;

DImage では，ImageDMF が追加される．
DImage.zip

SVG をダイアログ上に表示したくなったので，CHtmlView などを利用してみた．
Spy++ で見ると，クラス名が “Internet Explorer_Server” となる．
HtmlView.zip

SDI で CHtmlView を利用
1. AppWizard のステップ 6 で，CHtmlView を選択する．

2. ビューのソースの CXxxxView::OnInitialUpdate() を，適当なアドレスに修正する．
　　Navigate2(_T(“https://mish.myds.me/wordpress/dev/“),NULL,NULL);

ダイアログで，WebBrowser Control を利用
1. プロジェクトにコンポーネントを追加する．

2. 追加したコントロールの変数を割り当てる（ここでは，m_WebBrowse とした）．
3. OnInitDialog などで
　m_WebBrowse.Navigate(_T(“https://mish.myds.me/wordpress/dev/“),NULL,NULL,NULL,NULL) ;

ダイアログで，CHtmlView を利用
1. CHtmlView* の変数を定義する（ここでは，WebView とした）．
2. OnInitDialog で
　　CRect rect ;
　　GetClientRect(&rect) ;
　　rect.top = 25 ;
　　CRuntimeClass* pClass= RUNTIME_CLASS(CHtmlView) ;
　　WebView = (CHtmlView*)(pClass->CreateObject()) ;
　　WebView->Create(NULL,NULL,WS_VISIBLE|WS_CHILD,rect,this,0,NULL) ;
　　WebView->SendMessage(WM_INITIALUPDATE) ;
　　WebView->Navigate(_T(“https://mish.myds.me/wordpress/dev/“)) ;

コンパイルで以下の様なエラーになった場合
c:\…\DocIB.cxx(77) : error C2065: ‘BDocCSV_D’ : 定義されていない識別子です。
c:\…\DocIB.cxx(77) : error C2146: 構文ｴﾗｰ : ‘;’ が、識別子 ‘bdcsv’ の前に必要です。
c:\…\DocIB.cxx(77) : error C2065: ‘bdcsv’ : 定義されていない識別子です。
c:\…\DocIB.cxx(78) : error C2228: ‘.Read’ : 左側がｸﾗｽ、構造体、共用体ではありません。
c:\…\DocIB.cxx(79) : error C2228: ‘.BDoc_Draw’ : 左側がｸﾗｽ、構造体、共用体ではありません。
c:\…\DocIB.cxx(79) : error C2653: ‘BDoc_Draw’ : 識別子がｸﾗｽ名でも名前空間名でもありません。

DocIB.cxx のインクルードする場所をもう少し前にすることによりエラーはなくなるが，…

実行時，いろいろな所でダウンする（表面化しないこともあり）．
BDoc_Draw と BDocCSV_D の定義の不整合が原因．
BDoc ファミリや，AccessItemND を見直さなければならないがちょっと時間が取れない．

ひとまず，App.h に BDoc_D.hxx をインクルードすることにより対応する．
#include “MetaFile.hxx”
#include “MemoryDC.hxx”
#include “BDoc_D_.hxx”

—————————
Microsoft Visual C++ Debug Library
—————————
Debug Assertion Failed!

Program: C:\WINDOWS\explorer.exe
File: wingdix.cpp
Line: 269

For information on how your program can cause an assertion
failure, see the Visual C++ documentation on asserts.

(Press Retry to debug the application)
—————————
中止(A) 再試行(R) 無視(I)
—————————

ここ 1 年位のコードで何個かあったので，…
呼び元で与えられた pDC が CMetaFileDC の場合，m_hAttribDC が NULL となるため．
コードを書いた段階では画面やプリンタだったが，今回 Text → EMF で表面化した．
修正は以下の様な感じ．

//	font.CreatePointFont(120,faceName,pDC) ;
if (pDC->m_hAttribDC == NULL)	{   font.CreatePointFont(120,faceName,NULL) ;  }
else				{   font.CreatePointFont(120,faceName,pDC) ;   }

ダイアログベースで，コマンドライン引数により何も表示しないで終了する exe

次の様なコードで，AfxWinMain でエラーになってしまう．
BOOL CReszPicApp::InitInstance()
{
　　…
　　CReszPicDlg dlg;
　　m_pMainWnd = &dlg;
　　if (_tcslen(m_lpCmdLine) != 0) {
　　　　dlg.EnumDIB() ;
　　　　dlg.ResizeDIB() ;
　　　　return FALSE ;
　　　　}
　　INT_PTR nResponse = dlg.DoModal();
　　…
　　}

—————————
Microsoft Visual C++
—————————
ﾊﾝﾄﾞﾙされていない例外 は ReszPic.exe (MFC42D.DLL) にあります: 0xC0000005: Access Violation。
—————————
OK
—————————

WinMain.cpp
int AFXAPI AfxWinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
LPTSTR lpCmdLine, int nCmdShow)
{
　　…
　　// Perform specific initializations
　　if (!pThread->InitInstance()) {
　　　　if (pThread->m_pMainWnd != NULL) {
　　　　　　TRACE0(“Warning: Destroying non-NULL m_pMainWnd\n”);
　　　　　　pThread->m_pMainWnd->DestroyWindow();
　　　　　　}
　　　　nReturnCode = pThread->ExitInstance();
　　　　goto InitFailure;
　　　　}
　　…
　　}

m_pMainWnd への設定より前に，サイレントモードでの動作を行えば良い．
　　CReszPicDlg dlg;
　　// m_pMainWnd = &dlg;
　　if (_tcslen(m_lpCmdLine) != 0) {
　　　　dlg.EnumDIB() ;
　　　　dlg.ResizeDIB() ;
　　　　return FALSE ;
　　　　}
　　m_pMainWnd = &dlg;
　　INT_PTR nResponse = dlg.DoModal();

Message クラスなどで，AfxGetMainWnd()->GetSafeHwnd()==NULL の時の判断が抜けていたので修正．
AfxGetMainWnd()==NULL は多くの所で対応しているが，
AfxGetMainWnd()->GetSafeHwnd()==NULL は抜けがかなりありそう．