Artifact f3baeef4f3c35434b52980951730ec179f21365a

• File kilib/kl_wcmn.cpp
  • 2017-05-30 13:07:57 - part of checkin [36ad977839] on branch trunk - 1.22: Enlarged the header search range (for SFX skip) for new UNLHA. (user: kinaba) [annotate]

//--- K.I.LIB ---
// kl_wcmn.h : windows-common-interface operatin

#include "stdafx.h"
#include "kilib.h"

static int CALLBACK __ki__ofp( HWND w, UINT m, LPARAM l, LPARAM d )
{
	if( m==BFFM_INITIALIZED && d )
		::SendMessage( w, BFFM_SETSELECTION, TRUE, d );
	return 0;
}

bool kiSUtil::getFolderDlg( char* buf, HWND par, const char* title, const char* def )
{
	// 情報セット
	BROWSEINFO bi;
	ki_memzero( &bi, sizeof(bi) );
	bi.hwndOwner      = par;
	bi.pszDisplayName = buf;
	bi.lpszTitle      = title;
	bi.ulFlags        = BIF_RETURNONLYFSDIRS | BIF_DONTGOBELOWDOMAIN;
	bi.lpfn           = __ki__ofp;
	bi.lParam         = (long)def;

	// ダイアログ表示
	ITEMIDLIST* id = SHBrowseForFolder( &bi );
	if( id==NULL )
		return false;
	SHGetPathFromIDList( id, buf );
	app()->shellFree( id );

	// 終了
	return true;
}

void kiSUtil::getFolderDlgOfEditBox( HWND wnd, HWND par, const char* title )
{
	char str[MAX_PATH];
	::SendMessage( wnd, WM_GETTEXT, MAX_PATH, (LPARAM)str );
	for( char* x=str,*l=str; *x; x=kiStr::next(x) )
		l=x;
	if( *l=='\\' || *l=='/' )
		*l='\0';
	if( getFolderDlg( str, par, title, str ) )
		::SendMessage( wnd, WM_SETTEXT, 0, (LPARAM)str );
}

int kiSUtil::getSysIcon( const char* ext )
{
	SHFILEINFO fi;
	::SHGetFileInfo(
		kiPath("test.")+=ext, 0, &fi, sizeof(fi),
		SHGFI_USEFILEATTRIBUTES | SHGFI_SYSICONINDEX | SHGFI_ICON | SHGFI_SMALLICON );
	return fi.iIcon;
}

void kiSUtil::msgLastError()
{
	char* pMsg;
	::FormatMessage( 
		FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS,
		NULL,::GetLastError(),MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),(LPTSTR)&pMsg,0,NULL );
	app()->msgBox( pMsg );
	::LocalFree( pMsg );
}

void kiSUtil::createShortCut( const kiPath& at, const char* name )
{
	::CoInitialize(NULL);

	IShellLink* psl;
	if( SUCCEEDED(::CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,IID_IShellLink,(void**)&psl)) )
	{
		psl->SetPath( kiPath(kiPath::Exe_name) );
		psl->SetWorkingDirectory( kiPath(kiPath::Exe,false) );

		IPersistFile* ppf;
		if( SUCCEEDED(psl->QueryInterface(IID_IPersistFile,(void**)&ppf)) )
		{
			WCHAR wsz[MAX_PATH]; 
			kiPath lnkfile( at );
			lnkfile += name, lnkfile += ".lnk";
			::MultiByteToWideChar(CP_ACP,0,lnkfile,-1,wsz,MAX_PATH);
			ppf->Save(wsz,TRUE);
			ppf->Release();
		}
		psl->Release();
	}
	::CoUninitialize();
}

bool kiSUtil::exist( const char* fname )
{
	return 0xffffffff != ::GetFileAttributes( fname );
}

bool kiSUtil::isdir( const char* fname )
{
	DWORD attr = ::GetFileAttributes( fname );
	return attr!=0xffffffff && (attr&FILE_ATTRIBUTE_DIRECTORY);
}

// 挿入caldixF
// ファイル参照ダイアログ手抜き版
bool kiSUtil::getOpenFileNameDlg(HWND hwnd,char *rfn)
{
	OPENFILENAME  ofn;
	
	ZeroMemory((LPVOID)&ofn, sizeof(OPENFILENAME));
	ofn.lStructSize = sizeof(OPENFILENAME);
	ofn.hwndOwner = hwnd;
	ofn.lpstrFilter = "アプリケーション(*.exe)\0*.exe\0全てのファイル(*.*)\0*.*\0\0";
	ofn.lpstrFile = rfn;
	ofn.nMaxFile = MAX_PATH;
	ofn.Flags = OFN_FILEMUSTEXIST|OFN_HIDEREADONLY|OFN_EXPLORER;
	ofn.lpfnHook = NULL;
	// なんか持ってれば
	if (GetOpenFileName(&ofn)){
		lstrcpy(rfn,ofn.lpstrFile);
		return TRUE;
	}
	
	return FALSE;
}

void kiSUtil::getOpenFileNameDlgOfEditBox(HWND wnd,HWND par)
{
	char str[MAX_PATH];
	
	str[0] = '\0';
	::SendMessage( wnd, WM_GETTEXT, MAX_PATH, (LPARAM)str );
	if( getOpenFileNameDlg(par,str) )
		::SendMessage( wnd, WM_SETTEXT, 0, (LPARAM)str );
}
// 挿入ここまでcaldixF