kb 310516 登録エントリ (.reg) ファイルを使用してレジストリ サブキーおよび値を追加、変更、または削除する方法
kb 256986 上級ユーザー向けの Windows レジストリ情報

reg export  key file
Win 7 で file が存在する時，”y/n” の確認が入る．XP ではない．
ShellExec クラス経由で呼び出していたので，file は更新されず原因がわかり難かったのでメモ．

{
　CString command = _T(“Reg.exe”) ;
　CString param ;
　{
　　CString dateTime= CTime::GetCurrentTime().Format(_T(“%y%m%d%H%M%S”)) ;
　　CString tmpFile = ::FolderAddLastSP(::GetTempPath()) + _T(“M___.tmp\\Reg\\”) + dateTime + _T(“.reg”) ;
　　::CreateEmptyFile(tmpFile) ;
　　 CFile::Remove(tmpFile) ;
　　param = _T(“export hkcu\\”) + subKey + _T(” “) + tmpFile ;
　　}
　{
　　ShellExec se ;
　　se.SetFile(command) ;
　　se.SetNon2QMark(TRUE) ;
　　se.SetParamaters(param) ;
　　se.SetShowCmd(SW_HIDE) ;
　　se.Execute() ;
　　}
　}

//*******************************************************************************
// 関数名 ：文字列に変換
// 作成日 ：’１０／０３／０５
//*******************************************************************************
CString RegAccessF::ToString (HKEY hKey,LPCTSTR subKey,LPCTSTR entry)
{
　HSecKey = GetSecKey(hKey,subKey,KEY_QUERY_VALUE) ;
　if (HSecKey == NULL) { return _T(“”) ; }
　Entry = entry ;
　Type = REG_NONE ;
　Count = 0 ;
　wchar_t wcEntry[1024] ;
　::ToStringWC(wcEntry,countof(wcEntry),Entry) ;
　LONG checkStatus = ::RegQueryValueExW(HSecKey,wcEntry,0,&Type,NULL,&Count) ;
　if (checkStatus != ERROR_SUCCESS) { return _T(“”) ; }
　CByteArray dataAry ; dataAry.SetSize(Count+10) ;
　BYTE* dataPtr = dataAry.GetData() ;
　LONG get__Status = ::RegQueryValueExW(HSecKey,wcEntry,0,&Type,dataPtr,&Count) ;
　if (checkStatus != ERROR_SUCCESS) { return _T(“”) ; }
　CString str ;
　str.Format(_T(“\”%s\”=hex(%x):”),entry,Type) ;
　for (int index=0 ; index BYTE b1 = dataAry[index] ;
　　CString bStr ; bStr.Format(_T(“%02x,”),b1) ;
　　str += bStr ;
　　}
　CloseSecKey() ;
　return str ;
　}
　

VC 10 で作成したダイアログベースのプロジェクトを VC 6 に

1. プロジェクト作成時の基本クラス CDialogEx → CDialog
2. 「構成プロパティ」－「全般」の「出力ディレクトリ」と「中間ディレクトリ」を $(Configuration).100\ に
3. RC ファイルなどが UNICODE だったため，Shift-JIS に
4. RC ファイル内でエラーになる部分をコメントに
5. ico ファイル内に2573x1293x16777216 (256x256x32 png) があり，ビルドエラーになったので削除
   C:\…\Project.rc (67): error RC2176 : old DIB in res\Project.ico; pass it through SDKPAINT
6. StdAfx.h 内の AfxControlBar.h をコメントに
7. CAboutDlg : CDialogEx となっているので，CDialog に
8. CShellManager 関係をコメントに
9. ON_COMMAND(ID_HELP, &CWinApp::OnHelp) をコメントに

ここまででビルド，実行はできたが，なんか変
VC 10 でのダイアログエディタの操作は可能だが，VC 6 では出来ない．
VC 10 で編集したものを，VC 6 でビルド，実行は可能？
ON_BN_CLICKED(IDC_XXX, &CBrwFileDlg::OnClickedXxx) の ‘&’ が邪魔．

* ここの情報は，動作などを保証するものではありません．個人的なメモです．

Common Resource Attributes
https://docs.microsoft.com/en-us/windows/win32/menurc/common-resource-attributes

http://msdn.microsoft.com/ja-jp/library/cc429335.aspx

簡略化するために HelpAPI.hxx に以下を用意．
inline CString GetLongPathName (LPCTSTR fileName)
{
　CString longPath ;
　UINT size = _MAX_PATH ;
　DWORD len  = ::GetLongPathName(fileName,longPath.GetBuffer(size),size) ;
　longPath.ReleaseBuffer() ;
　if (len == 0) { return fileName ; }
　return longPath ;
　}

ファイルが存在しないと関数が失敗する様なので，
　::CreateEmptyFile(sFile) ;
　CString  lFile = ::GetLongPathName(sFile) ;
　

以下の様な DImageS の配列で，要素の表示が 1 回目しかできなかった．
　CString selFile = DImgAry.GetAt(selIndex).GetFileName() ;
　DImgAry[selIndex].Draw(&m_Image) ;

配列を直接使用するのではなく，DImageS にファイル名を取得してからでは OK ．
　DImageS dImg ;
　dImg.SetFileName(selFile) ;
　dImg.Draw(&m_ImageMBA) ;
　

ヘッダファイルへの追加
　#include “DImgS.hxx” または “DImg.hxx”
　#include “ODrawDcM.hxx”

　ListBoxDocMF m_ListDImage;
　CArray <DImageS,DImageS> DImgAry ; または　<DImage,…>

OnInitDialog など
　m_ListDImage.SubclassDlgItem(IDC_XXXX_FILE_LIST,this) ;
　m_ListDImage.Init() ;
　m_ListDImage.ResetContent() ;

リストに表示するファイルの設定
　DImgAry.RemoveAll() ;
　for (int dIndex=0 ; dIndex<addFiles.GetSize() ; dIndex++) {
　　DImageS dImg ; または　DImage
　　dImg.SetFileName(addFiles[dIndex]) ;
　　DImgAry.Add(dImg) ;
　　}
　m_ListDImage.ResetContent() ;
　for (int rIndex=0 ; rIndex<DImgAry.GetSize() ; rIndex++) {
　　CString fileName = DImgAry.GetAt(rIndex).GetFileName() ;
　　m_ListDImage.AddString(fileName,fileName) ;
　　 // 以下は登録時に画像を付ける場合
　　CString mfName = CacheFile::GetCF_Name(fileName,1000) ;
　　if (::FileIsExist(mfName)) {
　　　m_ListDImage.SetAtDocMF(rIndex,mfName) ;
　　　}
　　else {
　　　HICON icon = DImageS_GetIcon(fileName) ;
　　　m_ListDImage.SetAtIcon(rIndex,icon) ;
　　　}
　　}

DImageS クラスでなく DImage クラスを使用した場合は，ImageDMF クラスをサポートする形になる．
DImageS クラスでは，対応付けた EMF での動作になる．
現状の ListBoxDocMF では Shell Extension を利用できないみたい．
別のクラスを用意するか変更が必要．間にListBoxDocSE などを用意するか？
　

データが増えると遅かったので改良
BOOL FaceA::Search(const long edgeS,const long edgeE,long* left_Face,long* rightFace) const
{
　　if (left_Face == NULL) { return FALSE ; }
　　if (rightFace== NULL) { return FALSE ; }
　　*left_Face = *rightFace = -1 ;
　　BOOL lfFound = FALSE ;
　　BOOL rfFound = FALSE ;
　　 static long LastFace = 0 ;
　　int index = 0 ;
　　 for (index=LastFace ; index<GetCount() ; index++) {
　　　　 Face f = Faces[index] ;
　　　　 if (!f.Search(edgeS,edgeE,&lfFound,&rfFound)) { continue ; }
　　　　 if (*left_Face<0 && lfFound) { *left_Face = index ; }
　　　　 if (*rightFace<0 && rfFound) { *rightFace = index ; }
　　　　 if (*left_Face >= 0 && *rightFace>=0) {
　　　　　　 LastFace = min(*left_Face,*rightFace) ;
　　　　　　 return TRUE ;
　　　　　　 }
　　　　 }
　　for (index=0 ; index<GetCount() ; index++) {
　　　　Face f = Faces[index] ;
　　　　if (!f.Search(edgeS,edgeE,&lfFound,&rfFound)) { continue ; }
　　　　if (*left_Face<0 && lfFound) { *left_Face = index ; }
　　　　if (*rightFace<0 && rfFound) { *rightFace = index ; }
　　　　if (*left_Face >= 0 && *rightFace>=0) {
　　　　　　LastFace = min(*left_Face,*rightFace) ;
　　　　　　return TRUE ;
　　　　　　}
　　　　}
　　return FALSE ;
　　}

前に検索して一致した所から再検索するコードを追加．

FaceA::FaceA (const FaceA& other)
{

//　ループによるコピー
　　Faces.SetSize(other.Faces.GetSize()) ;
　　for (int index=0 ; index<other.Faces.GetSize() ; index++) {
　　　　Faces[index] = other.Faces[index] ;
　　　　}

//　CArray::Copy
　　Faces.Copy(other.Faces) ;

　　}

VC 6 リリース版では体感できなかったが，少なくともデバッグ版では Copy の方がはるかに速かった．

//　　AtlImage.h より

inline BOOL CImage::Draw(
　　_In_ HDC hDestDC,
　　_In_ int xDest,
　　_In_ int yDest,
　　…
{
　　…
#if WINVER >= 0x0500
　　if( ((m_iTransparentColor != -1) || (m_clrTransparentColor != (COLORREF)-1)) && IsTransparencySupported() ) {
　　　　bResult = ::TransparentBlt( hDestDC, xDest, yDest, … , GetTransparentRGB() ) ;
　　　　}
　　else if( m_bHasAlphaChannel && IsTransparencySupported() ) {
　　　　BLENDFUNCTION bf;
　　　　bf.BlendOp = AC_SRC_OVER;
　　　　bf.BlendFlags = 0;
　　　　bf.SourceConstantAlpha = 0xff;
　　　　bf.AlphaFormat = AC_SRC_ALPHA;
　　　　bResult = ::AlphaBlend( hDestDC, xDest, yDest, … , bf) ;
　　　　}
　　else
#endif // WINVER >= 0x0500
　　{
　　　　bResult = ::StretchBlt( hDestDC, xDest, yDest, … , SRCCOPY) ;
　　　　}
　　…
　　return( bResult );
　　}

Displaying a Picture and Storing It in an Enhanced Metafile
http://msdn.microsoft.com/en-us/library/dd183568.aspx

2020/12
E_MF.hxx
EMF_fnc.hxx

サイズの大きな画像を縮小して表示すると汚くなる

SetStretchBltMode の指定が必要．
http://msdn.microsoft.com/ja-jp/library/cc428734.aspx