今度はフォルダの参照．
ダイアログを表示するだけの最低限のコード．

#include	<ShlObj.h>

bool	Test	(void)
{
	BROWSEINFO	bi	=	{	0	} ;
	LPITEMIDLIST	pidl	= ::SHBrowseForFolder(&bi) ;
	if (pidl == NULL)	{	return	false ;		}
	::CoTaskMemFree(pidl) ;
	return	true ;
	}

int	main	(void)
{
	while	(true)	{
		if (!Test()) {
			break ;
			}
		}
	return	0 ;
	}

BROWSEINFO の hwndOwner も指定していないので動作がモードレスになってしまう．

SHBrowseForFolder のドキュメントを見ると IFileDialog FOS_PICKFOLDERS とある．

選択したフォルダ名を戻すように変更．

tstring	SH_GetPathFromIDList	(LPCITEMIDLIST pidl)
{
	tstring	path ;
	path.resize(MAX_PATH+10) ;
	BOOL	result = ::SHGetPathFromIDList(pidl,&path[0]) ;
	return	path.c_str() ;
	}

tstring	Test	(void)
{
	BROWSEINFO	bi	 =	{	0	} ;
	bi.ulFlags		|=	BIF_RETURNONLYFSDIRS ;
	bi.ulFlags		|=	BIF_NEWDIALOGSTYLE ;
	bi.ulFlags		|=	BIF_NONEWFOLDERBUTTON ;
	LPITEMIDLIST	pidl	 = 	::SHBrowseForFolder(&bi) ;
	if (pidl == NULL)	{	return	tstring() ;		}
	tstring	path = ::SH_GetPathFromIDList(pidl) ;
	::CoTaskMemFree(pidl) ;
	return	path ;
	}

pszDisplayName を指定すると，選択されたフォルダ名が返る．

	tstring		disp_name ;
	disp_name.resize(MAX_PATH) ;
	bi.pszDisplayName	 =	&disp_name[0] ;
//	...	SHBrowseForFolde
	std::tout << disp_name.c_str() << std::endl ;

初期フォルダ指定の追加．

int	CALLBACK	SH_BrowseCallback	(HWND hwnd,UINT uMsg,LPARAM lParam,LPARAM lpData)
{
	switch	(uMsg) {
		case	BFFM_INITIALIZED :
			::SendMessage(hwnd,BFFM_SETSELECTION,1,(LPARAM)(LPCTSTR)lpData) ;
			return	1 ;
			break ;
		default :
			return	0 ;
			break ;
		}
	return	0 ;
	}

{
//	...
	tstring		init_fold = init_fold_ ;
//	...
	bi.lpfn			 =	SH_BrowseCallback ;
	bi.lParam		 =	(LPARAM)init_fold.c_str() ;
	LPITEMIDLIST	pidl	 = ::SHBrowseForFolder(&bi) ;
//	...
	}

S_Browse.hxx

今まで仮想マシンの WinXP で VC 6 を使用してきたが，ちょっと面倒なので Win10 環境に入れてみた．
使用したのは次の ISO ．
en_visual_studio_6.0_professional_x86_dvd_224df581.iso
2021/04 に VS のダウンロードサイトで見つけた．
その時 Win7 環境などにインストールして動作することは確認済み．

インストール時，データベース関連を入れると止まると書かれていたので，外してインストール．
VB6開発環境をWindows 10にインストールする手順

VC 6 を簡単に確認した限りは何とか使えそう．

Win11 に VS 6 のインストール
Win11 22H2（デバッグできない時の設定も書いています）

2024/04/29
Win10 ，Win11 共に一部の制限があるものの VC 6 は特に問題なく使えている．

VC 6 から VC 2005 への移行
vc 6 から VC 201x への移行
vc 6 から VC 2022 への移行

先日作成したコンソール AP に，バージョン情報などを埋め込みたいと思い調べてみた．
検索すると次の所があった．
MSDN リソースを作成する (C++)

「Win32 コンソール アプリケーション」を「空のプロジェクト」として作成．
コードは，個人的な雛型 をコピーしてプロジェクトに登録．

#include	<clocale>
#include	<iostream>
#include	"i_define.hxx"

int	_tmain(int argc, TCHAR* argv[])
{
	_tsetlocale(LC_ALL, _T(""));
	{
		std::tout << _T("hello") << std::endl;
		}
	return	0;
	}

「ソリューション エクスプローラー」の「プロジェクト」を「右クリック」－「追加」－「新しい項目」．

「リソース ファイル (.rc)」を選択，ファイル名を指定して「追加」．
「リソース ビュー」に切り替わるので，ツリーの「～.rc」の所を「右クリック」して「リソースの追加」．

必要に応じてアイコンなども追加．
ビルドすると exe に付加されている．

2022/08/01
バージョンリソースの読込み
FVersion.hxx

ライブラリとして提供されている部分を，他のコードと分離するためコンソール AP（変換 exe）として作成．
テスト用にそれを呼出す部分も別のコンソール AP（呼出 exe）として作成．
変換 exe は，aaa.dat を aaa.txt の様に異なる形式に変換する機能．
呼出 exe は，::ShellExecute(…,”変換.exe aaa.dat”,…) の様に呼出し aaa.txt を処理する．
データにより変換（*.dat から *.txt へ）時間は数秒から数時間．
変換できたかどうかをチェックしている部分は次の様なコード．

for (size_t index=0 ; index<1000 ; index++) {
	::Sleep(100) ;
	if (::File_IsExist(g3d_name))	{	break ;		}
	}

データが悪いのか，ライブラリの問題なのかは不明たが，変換 exe の中でエラーになってしまうことがある．
エラーを軽減する方法はわかっているが，それでも完全ではない．
同じデータでも通る時とそうでないことがあり不安定．
そのため，変換後データが存在しない時に，変換中でなければ「変換 exe」を再起動させなければならない．

2021/03/09
ここまでの部分を単体のコードとして作成．
t_call.cpp
t_conv.cpp
T_mtex_2021_03_09.zip

これらのコードでの問題は，
* 異常終了が判断できない．
* 変換に時間がかかる時，複数回呼んでしまう．

起動しているかどうかは Mutex を使えば良さそう．
変換 exe が起動している間，::CreateMutex (…,”入力ファイル名”) で作成したものを保持する．
呼出 exe のループでは，その Mutex が存在するかチェック．
なくなった時に，出力ファイルが存在している時はループを抜ける．
出力ファイルが存在していない時は，もう一度「変換 exe」を呼出す．

今まで作成の Mutex を使用したコード．
Prevent2.hxx Prevent2.cxx
ExclusS.hxx

t_conv.cpp

bool	test	(const tstring& name_in_)
{
	tstring	f_name = ::Path_GetName(name_in_) ; 
	HANDLE	hMutex = ::CreateMutex(NULL,FALSE,f_name.c_str()) ; 
	time_t	now = ::time(NULL) ;
	if ((now % 3) == 0) {
		::Sleep(3000) ;
		tstring	name_out = name_in_ + _T(".out") ;
		tstring	name_uni = ::Get_unique_name(name_out) ;
		::File_CreateEmpty(name_uni) ;
		}
	else {
		::Sleep(500) ;
		}
	::CloseHandle(hMutex) ; 
	return	true ;
	}

t_call.cpp

bool	t_call	(c_tstring& in_name_)
{
	tstring	name_in_ = in_name_ ;
	{
		tstring	f_name = ::Path_GetName(name_in_) ; 
		HANDLE	hMutex = ::CreateMutex(NULL,FALSE,f_name.c_str()) ; 
		DWORD	error  = ::GetLastError() ; 
		::CloseHandle(hMutex) ; 
		if (error == ERROR_ALREADY_EXISTS) { 
			return	true ; 
			} 
		}
	tstring	this_exe = ::i_GetModuleFileName() ;
	tstring	conv_exe = ::Path_AddLastSP(::Path_GetDir(this_exe)) + _T("t_conv.exe") ;
	    	name_in_ = ::QuotM_Add_Auto(name_in_) ;
	//	...
	//	変換 exe を起動
	//	...
	return	true ;
	}

2021/03/10　更にクラスに．W_mutex.hxx
次の様にできる．

bool	test	(const tstring& name_in_)
{
	W_mutex	mutex(::Path_GetName(name_in_).c_str()) ; 
	time_t	now = ::time(NULL) ;
	if ((now % 3) == 0) {
		::Sleep(3000) ;
		tstring	name_out = name_in_ + _T(".out") ;
		tstring	name_uni = ::Get_unique_name(name_out) ;
		::File_CreateEmpty(name_uni) ;
		}
	else {
		::Sleep(500) ;
		}
	return	true ;
	}

bool	t_call	(c_tstring& in_name_)
{
	tstring	name_in_ = in_name_ ;
	{
		W_mutex	mutex(::Path_GetName(name_in_).c_str()) ; 
		if (mutex.Is_exist())	{	return	true ;	} 
		}
	tstring	this_exe = ::i_GetModuleFileName() ;
	tstring	conv_exe = ::Path_AddLastSP(::Path_GetDir(this_exe)) + _T("t_conv.exe") ;
	    	name_in_ = ::QuotM_Add_Auto(name_in_) ;
	//	...
	return	true ;
	}

2021/12/01
W_mutex を利用した単体テスト用コード

コンソール AP で，キー入力による中断ができないかと…
やりたいことは，時間がかかるコンソール AP で，その途中までの計算結果を保存すること．
「コンソールアプリ 中断」で検索すると ::SetConsoleCtrlHandler を使えば良さそう．
MSDN を「PHANDLER_ROUTINE」で検索．次のサンプルが見つかった．

そのタイトル「Registering a Control Handler Function」で検索．
コントロール ハンドラー関数の登録
https://www.installsetupconfig.com/win32programming/
https://www.installsetupconfig.com/win32programming/winconsolecharapplication8index.html

ネットワークドライブ名から UNC での表現に変換するコード．

#include	<clocale>
#include	"i_trace.hxx"

//#include	<winnetwk.h>
#pragma		comment	(lib,"mpr.lib")

tstring	W_get_remote_name	(LPCTSTR path_)
{
	tstring	dpath = path_ ;
	if (dpath.size() < 2)		{	return	dpath ;		}
	tstring	drive = dpath.substr(0,2) ;
	tstring	_path = dpath.substr(2) ;
	tstring	remote_path ;
	if (drive.length() == 2) {
		if (drive[1] == _T(':')) {
			u_16	d_t  = ::GetDriveType(drive.c_str()) ;
			if (d_t == DRIVE_REMOTE) {
				DWORD	buf_size = MAX_PATH ;
				tstring	remote_name ;
				remote_name.resize(buf_size+1) ;
				::WNetGetConnection(drive.c_str(),&remote_name[0],&buf_size) ;
				if (!remote_name.empty()) {
					remote_path = remote_name.c_str() + _path ;
					}
				}
			}
		}
	if (remote_path.empty())	{	return	dpath ;		}
	return	remote_path ;
	}

bool	Test	(void)
{
	for (long index=0 ; index<26 ; index++)	{
		tstring	drv  ;
				drv += TCHAR(_T('A')+index) ;
				drv += _T(":\\") ;
	//	if (index%2 == 0)
		{
			u_16	d_t  = ::GetDriveType(drv.c_str()) ;
			if (d_t == DRIVE_REMOTE) {
				drv += _T("*.*") ;
				v_tstring	files = ::EnumFiles(drv.c_str()) ;
				if (files.size() > 0) {
					drv = files[0] ;
					}
				}
			}
		drv += _T("                                      ") ;
		tstring	info = drv.substr(0,20) + _T("\t") + W_get_remote_name(drv.c_str()) ;
		{
			std::tout << info << std::endl ;
			}
		}
	return	true ;
	}

int	_tmain	(int argc,TCHAR* argv[])
{
	_tsetlocale(LC_ALL,_T("")) ;
	{
		::Test() ;
		}
	return	0 ;
	}

「 net use 」とコマンド入力することで似た様なことを確認できる．

管理者で起動した PowerShell の Get-SmbConnection で SMB のバージョンを確認できる．
ファイル共有で使われている SMB のバージョンを見る

S_open_2024_04.zip