0000: 2f 2f 2d 2d 2d 20 4b 2e 49 2e 4c 49 42 20 2d 2d //--- K.I.LIB --
0010: 2d 0d 0a 2f 2f 20 6b 6c 5f 77 63 6d 6e 2e 68 20 -..// kl_wcmn.h
0020: 3a 20 77 69 6e 64 6f 77 73 2d 63 6f 6d 6d 6f 6e : windows-common
0030: 2d 69 6e 74 65 72 66 61 63 65 20 6f 70 65 72 61 -interface opera
0040: 74 69 6e 0d 0a 0d 0a 23 69 6e 63 6c 75 64 65 20 tin....#include
0050: 22 73 74 64 61 66 78 2e 68 22 0d 0a 23 69 6e 63 "stdafx.h"..#inc
0060: 6c 75 64 65 20 22 6b 69 6c 69 62 2e 68 22 0d 0a lude "kilib.h"..
0070: 0d 0a 76 6f 69 64 20 6b 69 53 55 74 69 6c 3a 3a ..void kiSUtil::
0080: 73 77 69 74 63 68 43 75 72 44 69 72 54 6f 45 78 switchCurDirToEx
0090: 65 44 69 72 28 29 0d 0a 7b 0d 0a 09 63 68 61 72 eDir()..{...char
00a0: 20 65 78 65 70 61 74 68 5b 4d 41 58 5f 50 41 54 exepath[MAX_PAT
00b0: 48 2b 35 30 5d 3b 0d 0a 09 47 65 74 4d 6f 64 75 H+50];...GetModu
00c0: 6c 65 46 69 6c 65 4e 61 6d 65 28 20 4e 55 4c 4c leFileName( NULL
00d0: 2c 20 65 78 65 70 61 74 68 2c 20 4d 41 58 5f 50 , exepath, MAX_P
00e0: 41 54 48 20 29 3b 0d 0a 09 63 68 61 72 2a 20 6c ATH );...char* l
00f0: 61 73 74 73 6c 61 73 68 20 3d 20 30 3b 0d 0a 09 astslash = 0;...
0100: 66 6f 72 28 20 63 68 61 72 2a 20 70 3d 65 78 65 for( char* p=exe
0110: 70 61 74 68 3b 20 2a 70 3b 20 70 3d 43 68 61 72 path; *p; p=Char
0120: 4e 65 78 74 28 70 29 20 29 0d 0a 09 09 69 66 28 Next(p) )....if(
0130: 20 2a 70 3d 3d 27 5c 5c 27 20 7c 7c 20 2a 70 3d *p=='\\' || *p=
0140: 3d 27 2f 27 20 29 0d 0a 09 09 09 6c 61 73 74 73 ='/' ).....lasts
0150: 6c 61 73 68 20 3d 20 70 3b 0d 0a 09 69 66 28 6c lash = p;...if(l
0160: 61 73 74 73 6c 61 73 68 29 0d 0a 09 09 2a 6c 61 astslash)....*la
0170: 73 74 73 6c 61 73 68 20 3d 20 27 5c 30 27 3b 0d stslash = '\0';.
0180: 0a 09 53 65 74 43 75 72 72 65 6e 74 44 69 72 65 ..SetCurrentDire
0190: 63 74 6f 72 79 28 65 78 65 70 61 74 68 29 3b 0d ctory(exepath);.
01a0: 0a 7d 0d 0a 0d 0a 73 74 61 74 69 63 20 69 6e 74 .}....static int
01b0: 20 43 41 4c 4c 42 41 43 4b 20 5f 5f 6b 69 5f 5f CALLBACK __ki__
01c0: 6f 66 70 28 20 48 57 4e 44 20 77 2c 20 55 49 4e ofp( HWND w, UIN
01d0: 54 20 6d 2c 20 4c 50 41 52 41 4d 20 6c 2c 20 4c T m, LPARAM l, L
01e0: 50 41 52 41 4d 20 64 20 29 0d 0a 7b 0d 0a 09 69 PARAM d )..{...i
01f0: 66 28 20 6d 3d 3d 42 46 46 4d 5f 49 4e 49 54 49 f( m==BFFM_INITI
0200: 41 4c 49 5a 45 44 20 26 26 20 64 20 29 0d 0a 09 ALIZED && d )...
0210: 09 3a 3a 53 65 6e 64 4d 65 73 73 61 67 65 28 20 .::SendMessage(
0220: 77 2c 20 42 46 46 4d 5f 53 45 54 53 45 4c 45 43 w, BFFM_SETSELEC
0230: 54 49 4f 4e 2c 20 54 52 55 45 2c 20 64 20 29 3b TION, TRUE, d );
0240: 0d 0a 09 72 65 74 75 72 6e 20 30 3b 0d 0a 7d 0d ...return 0;..}.
0250: 0a 0d 0a 62 6f 6f 6c 20 6b 69 53 55 74 69 6c 3a ...bool kiSUtil:
0260: 3a 67 65 74 46 6f 6c 64 65 72 44 6c 67 28 20 63 :getFolderDlg( c
0270: 68 61 72 2a 20 62 75 66 2c 20 48 57 4e 44 20 70 har* buf, HWND p
0280: 61 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 ar, const char*
0290: 74 69 74 6c 65 2c 20 63 6f 6e 73 74 20 63 68 61 title, const cha
02a0: 72 2a 20 64 65 66 20 29 0d 0a 7b 0d 0a 09 2f 2f r* def )..{...//
02b0: 20 8f ee 95 f1 83 5a 83 62 83 67 0d 0a 09 42 52 .....Z.b.g...BR
02c0: 4f 57 53 45 49 4e 46 4f 20 62 69 3b 0d 0a 09 6b OWSEINFO bi;...k
02d0: 69 5f 6d 65 6d 7a 65 72 6f 28 20 26 62 69 2c 20 i_memzero( &bi,
02e0: 73 69 7a 65 6f 66 28 62 69 29 20 29 3b 0d 0a 09 sizeof(bi) );...
02f0: 62 69 2e 68 77 6e 64 4f 77 6e 65 72 20 20 20 20 bi.hwndOwner
0300: 20 20 3d 20 70 61 72 3b 0d 0a 09 62 69 2e 70 73 = par;...bi.ps
0310: 7a 44 69 73 70 6c 61 79 4e 61 6d 65 20 3d 20 62 zDisplayName = b
0320: 75 66 3b 0d 0a 09 62 69 2e 6c 70 73 7a 54 69 74 uf;...bi.lpszTit
0330: 6c 65 20 20 20 20 20 20 3d 20 74 69 74 6c 65 3b le = title;
0340: 0d 0a 09 62 69 2e 75 6c 46 6c 61 67 73 20 20 20 ...bi.ulFlags
0350: 20 20 20 20 20 3d 20 42 49 46 5f 52 45 54 55 52 = BIF_RETUR
0360: 4e 4f 4e 4c 59 46 53 44 49 52 53 20 7c 20 42 49 NONLYFSDIRS | BI
0370: 46 5f 44 4f 4e 54 47 4f 42 45 4c 4f 57 44 4f 4d F_DONTGOBELOWDOM
0380: 41 49 4e 3b 0d 0a 09 62 69 2e 6c 70 66 6e 20 20 AIN;...bi.lpfn
0390: 20 20 20 20 20 20 20 20 20 3d 20 5f 5f 6b 69 5f = __ki_
03a0: 5f 6f 66 70 3b 0d 0a 09 62 69 2e 6c 50 61 72 61 _ofp;...bi.lPara
03b0: 6d 20 20 20 20 20 20 20 20 20 3d 20 28 6c 6f 6e m = (lon
03c0: 67 29 64 65 66 3b 0d 0a 0d 0a 09 2f 2f 20 83 5f g)def;.....// ._
03d0: 83 43 83 41 83 8d 83 4f 95 5c 8e a6 0d 0a 09 49 .C.A...O.\.....I
03e0: 54 45 4d 49 44 4c 49 53 54 2a 20 69 64 20 3d 20 TEMIDLIST* id =
03f0: 3a 3a 53 48 42 72 6f 77 73 65 46 6f 72 46 6f 6c ::SHBrowseForFol
0400: 64 65 72 28 20 26 62 69 20 29 3b 0d 0a 09 69 66 der( &bi );...if
0410: 28 20 69 64 3d 3d 4e 55 4c 4c 20 29 0d 0a 09 09 ( id==NULL )....
0420: 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 09 return false;...
0430: 3a 3a 53 48 47 65 74 50 61 74 68 46 72 6f 6d 49 ::SHGetPathFromI
0440: 44 4c 69 73 74 28 20 69 64 2c 20 62 75 66 20 29 DList( id, buf )
0450: 3b 0d 0a 09 61 70 70 28 29 2d 3e 73 68 65 6c 6c ;...app()->shell
0460: 46 72 65 65 28 20 69 64 20 29 3b 0d 0a 0d 0a 09 Free( id );.....
0470: 2f 2f 20 8f 49 97 b9 0d 0a 09 72 65 74 75 72 6e // .I.....return
0480: 20 74 72 75 65 3b 0d 0a 7d 0d 0a 0d 0a 76 6f 69 true;..}....voi
0490: 64 20 6b 69 53 55 74 69 6c 3a 3a 67 65 74 46 6f d kiSUtil::getFo
04a0: 6c 64 65 72 44 6c 67 4f 66 45 64 69 74 42 6f 78 lderDlgOfEditBox
04b0: 28 20 48 57 4e 44 20 77 6e 64 2c 20 48 57 4e 44 ( HWND wnd, HWND
04c0: 20 70 61 72 2c 20 63 6f 6e 73 74 20 63 68 61 72 par, const char
04d0: 2a 20 74 69 74 6c 65 20 29 0d 0a 7b 0d 0a 09 63 * title )..{...c
04e0: 68 61 72 20 73 74 72 5b 4d 41 58 5f 50 41 54 48 har str[MAX_PATH
04f0: 5d 3b 0d 0a 09 3a 3a 53 65 6e 64 4d 65 73 73 61 ];...::SendMessa
0500: 67 65 28 20 77 6e 64 2c 20 57 4d 5f 47 45 54 54 ge( wnd, WM_GETT
0510: 45 58 54 2c 20 4d 41 58 5f 50 41 54 48 2c 20 28 EXT, MAX_PATH, (
0520: 4c 50 41 52 41 4d 29 73 74 72 20 29 3b 0d 0a 09 LPARAM)str );...
0530: 66 6f 72 28 20 63 68 61 72 2a 20 78 3d 73 74 72 for( char* x=str
0540: 2c 2a 6c 3d 73 74 72 3b 20 2a 78 3b 20 78 3d 6b ,*l=str; *x; x=k
0550: 69 53 74 72 3a 3a 6e 65 78 74 28 78 29 20 29 0d iStr::next(x) ).
0560: 0a 09 09 6c 3d 78 3b 0d 0a 09 69 66 28 20 2a 6c ...l=x;...if( *l
0570: 3d 3d 27 5c 5c 27 20 7c 7c 20 2a 6c 3d 3d 27 2f =='\\' || *l=='/
0580: 27 20 29 0d 0a 09 09 2a 6c 3d 27 5c 30 27 3b 0d ' )....*l='\0';.
0590: 0a 09 69 66 28 20 67 65 74 46 6f 6c 64 65 72 44 ..if( getFolderD
05a0: 6c 67 28 20 73 74 72 2c 20 70 61 72 2c 20 74 69 lg( str, par, ti
05b0: 74 6c 65 2c 20 73 74 72 20 29 20 29 0d 0a 09 09 tle, str ) )....
05c0: 3a 3a 53 65 6e 64 4d 65 73 73 61 67 65 28 20 77 ::SendMessage( w
05d0: 6e 64 2c 20 57 4d 5f 53 45 54 54 45 58 54 2c 20 nd, WM_SETTEXT,
05e0: 30 2c 20 28 4c 50 41 52 41 4d 29 73 74 72 20 29 0, (LPARAM)str )
05f0: 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 6b 69 53 55 ;..}....int kiSU
0600: 74 69 6c 3a 3a 67 65 74 53 79 73 49 63 6f 6e 28 til::getSysIcon(
0610: 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 65 78 74 const char* ext
0620: 20 29 0d 0a 7b 0d 0a 09 6b 69 50 61 74 68 20 74 )..{...kiPath t
0630: 6d 70 28 20 6b 69 50 61 74 68 3a 3a 54 6d 70 20 mp( kiPath::Tmp
0640: 29 3b 0d 0a 09 74 6d 70 20 2b 3d 20 22 6e 6f 61 );...tmp += "noa
0650: 68 69 63 6f 6e 74 65 73 74 2e 22 3b 0d 0a 09 74 hicontest.";...t
0660: 6d 70 20 2b 3d 20 65 78 74 3b 0d 0a 0d 0a 09 53 mp += ext;.....S
0670: 48 46 49 4c 45 49 4e 46 4f 20 66 69 3b 0d 0a 09 HFILEINFO fi;...
0680: 3a 3a 53 48 47 65 74 46 69 6c 65 49 6e 66 6f 28 ::SHGetFileInfo(
0690: 20 74 6d 70 2c 20 30 2c 20 26 66 69 2c 20 73 69 tmp, 0, &fi, si
06a0: 7a 65 6f 66 28 66 69 29 2c 20 0d 0a 09 09 53 48 zeof(fi), ....SH
06b0: 47 46 49 5f 55 53 45 46 49 4c 45 41 54 54 52 49 GFI_USEFILEATTRI
06c0: 42 55 54 45 53 20 7c 20 53 48 47 46 49 5f 53 59 BUTES | SHGFI_SY
06d0: 53 49 43 4f 4e 49 4e 44 45 58 20 29 3b 0d 0a 09 SICONINDEX );...
06e0: 72 65 74 75 72 6e 20 66 69 2e 69 49 63 6f 6e 3b return fi.iIcon;
06f0: 0d 0a 7d 0d 0a 0d 0a 76 6f 69 64 20 6b 69 53 55 ..}....void kiSU
0700: 74 69 6c 3a 3a 6d 73 67 4c 61 73 74 45 72 72 6f til::msgLastErro
0710: 72 28 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 6d r( const char* m
0720: 73 67 20 29 0d 0a 7b 0d 0a 09 63 68 61 72 2a 20 sg )..{...char*
0730: 70 4d 73 67 3b 0d 0a 09 3a 3a 46 6f 72 6d 61 74 pMsg;...::Format
0740: 4d 65 73 73 61 67 65 28 20 0d 0a 09 09 46 4f 52 Message( ....FOR
0750: 4d 41 54 5f 4d 45 53 53 41 47 45 5f 41 4c 4c 4f MAT_MESSAGE_ALLO
0760: 43 41 54 45 5f 42 55 46 46 45 52 7c 46 4f 52 4d CATE_BUFFER|FORM
0770: 41 54 5f 4d 45 53 53 41 47 45 5f 46 52 4f 4d 5f AT_MESSAGE_FROM_
0780: 53 59 53 54 45 4d 7c 46 4f 52 4d 41 54 5f 4d 45 SYSTEM|FORMAT_ME
0790: 53 53 41 47 45 5f 49 47 4e 4f 52 45 5f 49 4e 53 SSAGE_IGNORE_INS
07a0: 45 52 54 53 2c 0d 0a 09 09 4e 55 4c 4c 2c 3a 3a ERTS,....NULL,::
07b0: 47 65 74 4c 61 73 74 45 72 72 6f 72 28 29 2c 4d GetLastError(),M
07c0: 41 4b 45 4c 41 4e 47 49 44 28 4c 41 4e 47 5f 4e AKELANGID(LANG_N
07d0: 45 55 54 52 41 4c 2c 53 55 42 4c 41 4e 47 5f 44 EUTRAL,SUBLANG_D
07e0: 45 46 41 55 4c 54 29 2c 28 4c 50 54 53 54 52 29 EFAULT),(LPTSTR)
07f0: 26 70 4d 73 67 2c 30 2c 4e 55 4c 4c 20 29 3b 0d &pMsg,0,NULL );.
0800: 0a 09 69 66 28 20 6d 73 67 20 29 0d 0a 09 09 61 ..if( msg )....a
0810: 70 70 28 29 2d 3e 6d 73 67 42 6f 78 28 20 6b 69 pp()->msgBox( ki
0820: 53 74 72 28 6d 73 67 29 20 2b 20 22 5c 72 5c 6e Str(msg) + "\r\n
0830: 5c 72 5c 6e 22 20 2b 20 70 4d 73 67 20 29 3b 0d \r\n" + pMsg );.
0840: 0a 09 65 6c 73 65 0d 0a 09 09 61 70 70 28 29 2d ..else....app()-
0850: 3e 6d 73 67 42 6f 78 28 20 70 4d 73 67 20 29 3b >msgBox( pMsg );
0860: 0d 0a 09 3a 3a 4c 6f 63 61 6c 46 72 65 65 28 20 ...::LocalFree(
0870: 70 4d 73 67 20 29 3b 0d 0a 7d 0d 0a 0d 0a 76 6f pMsg );..}....vo
0880: 69 64 20 6b 69 53 55 74 69 6c 3a 3a 63 72 65 61 id kiSUtil::crea
0890: 74 65 53 68 6f 72 74 43 75 74 28 20 63 6f 6e 73 teShortCut( cons
08a0: 74 20 6b 69 50 61 74 68 26 20 61 74 2c 20 63 6f t kiPath& at, co
08b0: 6e 73 74 20 63 68 61 72 2a 20 6e 61 6d 65 20 29 nst char* name )
08c0: 0d 0a 7b 0d 0a 09 3a 3a 43 6f 49 6e 69 74 69 61 ..{...::CoInitia
08d0: 6c 69 7a 65 28 4e 55 4c 4c 29 3b 0d 0a 0d 0a 09 lize(NULL);.....
08e0: 49 53 68 65 6c 6c 4c 69 6e 6b 2a 20 70 73 6c 3b IShellLink* psl;
08f0: 0d 0a 09 69 66 28 20 53 55 43 43 45 45 44 45 44 ...if( SUCCEEDED
0900: 28 3a 3a 43 6f 43 72 65 61 74 65 49 6e 73 74 61 (::CoCreateInsta
0910: 6e 63 65 28 43 4c 53 49 44 5f 53 68 65 6c 6c 4c nce(CLSID_ShellL
0920: 69 6e 6b 2c 20 4e 55 4c 4c 2c 20 43 4c 53 43 54 ink, NULL, CLSCT
0930: 58 5f 49 4e 50 52 4f 43 5f 53 45 52 56 45 52 2c X_INPROC_SERVER,
0940: 49 49 44 5f 49 53 68 65 6c 6c 4c 69 6e 6b 2c 28 IID_IShellLink,(
0950: 76 6f 69 64 2a 2a 29 26 70 73 6c 29 29 20 29 0d void**)&psl)) ).
0960: 0a 09 7b 0d 0a 09 09 70 73 6c 2d 3e 53 65 74 50 ..{....psl->SetP
0970: 61 74 68 28 20 6b 69 50 61 74 68 28 6b 69 50 61 ath( kiPath(kiPa
0980: 74 68 3a 3a 45 78 65 5f 6e 61 6d 65 29 20 29 3b th::Exe_name) );
0990: 0d 0a 09 09 70 73 6c 2d 3e 53 65 74 57 6f 72 6b ....psl->SetWork
09a0: 69 6e 67 44 69 72 65 63 74 6f 72 79 28 20 6b 69 ingDirectory( ki
09b0: 50 61 74 68 28 6b 69 50 61 74 68 3a 3a 45 78 65 Path(kiPath::Exe
09c0: 2c 66 61 6c 73 65 29 20 29 3b 0d 0a 0d 0a 09 09 ,false) );......
09d0: 49 50 65 72 73 69 73 74 46 69 6c 65 2a 20 70 70 IPersistFile* pp
09e0: 66 3b 0d 0a 09 09 69 66 28 20 53 55 43 43 45 45 f;....if( SUCCEE
09f0: 44 45 44 28 70 73 6c 2d 3e 51 75 65 72 79 49 6e DED(psl->QueryIn
0a00: 74 65 72 66 61 63 65 28 49 49 44 5f 49 50 65 72 terface(IID_IPer
0a10: 73 69 73 74 46 69 6c 65 2c 28 76 6f 69 64 2a 2a sistFile,(void**
0a20: 29 26 70 70 66 29 29 20 29 0d 0a 09 09 7b 0d 0a )&ppf)) )....{..
0a30: 09 09 09 77 63 68 61 72 5f 74 20 77 73 7a 5b 4d ...wchar_t wsz[M
0a40: 41 58 5f 50 41 54 48 5d 3b 20 0d 0a 09 09 09 6b AX_PATH]; .....k
0a50: 69 50 61 74 68 20 6c 6e 6b 66 69 6c 65 28 20 61 iPath lnkfile( a
0a60: 74 20 29 3b 0d 0a 09 09 09 6c 6e 6b 66 69 6c 65 t );.....lnkfile
0a70: 20 2b 3d 20 6e 61 6d 65 2c 20 6c 6e 6b 66 69 6c += name, lnkfil
0a80: 65 20 2b 3d 20 22 2e 6c 6e 6b 22 3b 0d 0a 09 09 e += ".lnk";....
0a90: 09 3a 3a 4d 75 6c 74 69 42 79 74 65 54 6f 57 69 .::MultiByteToWi
0aa0: 64 65 43 68 61 72 28 43 50 5f 41 43 50 2c 30 2c deChar(CP_ACP,0,
0ab0: 6c 6e 6b 66 69 6c 65 2c 2d 31 2c 77 73 7a 2c 4d lnkfile,-1,wsz,M
0ac0: 41 58 5f 50 41 54 48 29 3b 0d 0a 09 09 09 70 70 AX_PATH);.....pp
0ad0: 66 2d 3e 53 61 76 65 28 77 73 7a 2c 54 52 55 45 f->Save(wsz,TRUE
0ae0: 29 3b 0d 0a 09 09 09 70 70 66 2d 3e 52 65 6c 65 );.....ppf->Rele
0af0: 61 73 65 28 29 3b 0d 0a 09 09 7d 0d 0a 09 09 70 ase();....}....p
0b00: 73 6c 2d 3e 52 65 6c 65 61 73 65 28 29 3b 0d 0a sl->Release();..
0b10: 09 7d 0d 0a 09 3a 3a 43 6f 55 6e 69 6e 69 74 69 .}...::CoUniniti
0b20: 61 6c 69 7a 65 28 29 3b 0d 0a 7d 0d 0a 0d 0a 62 alize();..}....b
0b30: 6f 6f 6c 20 6b 69 53 55 74 69 6c 3a 3a 65 78 69 ool kiSUtil::exi
0b40: 73 74 28 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 st( const char*
0b50: 66 6e 61 6d 65 20 29 0d 0a 7b 0d 0a 09 72 65 74 fname )..{...ret
0b60: 75 72 6e 20 30 78 66 66 66 66 66 66 66 66 20 21 urn 0xffffffff !
0b70: 3d 20 3a 3a 47 65 74 46 69 6c 65 41 74 74 72 69 = ::GetFileAttri
0b80: 62 75 74 65 73 28 20 66 6e 61 6d 65 20 29 3b 0d butes( fname );.
0b90: 0a 7d 0d 0a 0d 0a 62 6f 6f 6c 20 6b 69 53 55 74 .}....bool kiSUt
0ba0: 69 6c 3a 3a 69 73 64 69 72 28 20 63 6f 6e 73 74 il::isdir( const
0bb0: 20 63 68 61 72 2a 20 66 6e 61 6d 65 20 29 0d 0a char* fname )..
0bc0: 7b 0d 0a 09 44 57 4f 52 44 20 61 74 74 72 20 3d {...DWORD attr =
0bd0: 20 3a 3a 47 65 74 46 69 6c 65 41 74 74 72 69 62 ::GetFileAttrib
0be0: 75 74 65 73 28 20 66 6e 61 6d 65 20 29 3b 0d 0a utes( fname );..
0bf0: 09 72 65 74 75 72 6e 20 61 74 74 72 21 3d 30 78 .return attr!=0x
0c00: 66 66 66 66 66 66 66 66 20 26 26 20 28 61 74 74 ffffffff && (att
0c10: 72 26 46 49 4c 45 5f 41 54 54 52 49 42 55 54 45 r&FILE_ATTRIBUTE
0c20: 5f 44 49 52 45 43 54 4f 52 59 29 3b 0d 0a 7d 0d _DIRECTORY);..}.
0c30: 0a .