0000: 0d 0a 23 69 6e 63 6c 75 64 65 20 22 73 74 64 61 ..#include "stda
0010: 66 78 2e 68 22 0d 0a 23 69 6e 63 6c 75 64 65 20 fx.h"..#include
0020: 22 2e 2e 2f 6b 69 6c 69 62 2f 6b 69 6c 69 62 2e "../kilib/kilib.
0030: 68 22 0d 0a 23 69 6e 63 6c 75 64 65 20 22 72 65 h"..#include "re
0040: 73 6f 75 72 63 65 2e 68 22 0d 0a 0d 0a 0d 0a 2f source.h"....../
0050: 2f 2d 2d 20 8e 47 97 70 46 75 6e 63 74 69 6f 6e /-- .G.pFunction
0060: 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d s --------------
0070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a ------------....
00a0: 76 6f 69 64 20 67 65 74 50 72 6f 67 72 61 6d 46 void getProgramF
00b0: 69 6c 65 73 28 20 6b 69 50 61 74 68 2a 20 70 61 iles( kiPath* pa
00c0: 74 68 20 29 0d 0a 7b 0d 0a 09 2f 2f 20 82 50 81 th )..{...// .P.
00d0: 44 83 8c 83 57 83 58 83 67 83 8a 82 a9 82 e7 0d D...W.X.g.......
00e0: 0a 09 6b 69 52 65 67 4b 65 79 20 6b 65 79 3b 0d ..kiRegKey key;.
00f0: 0a 09 69 66 28 20 6b 65 79 2e 6f 70 65 6e 28 20 ..if( key.open(
0100: 48 4b 45 59 5f 43 4c 41 53 53 45 53 5f 52 4f 4f HKEY_CLASSES_ROO
0110: 54 2c 20 22 53 6f 66 74 77 61 72 65 5c 5c 4d 69 T, "Software\\Mi
0120: 63 72 6f 73 6f 66 74 5c 5c 57 69 6e 64 6f 77 73 crosoft\\Windows
0130: 5c 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f 6e \\CurrentVersion
0140: 22 2c 20 4b 45 59 5f 51 55 45 52 59 5f 56 41 4c ", KEY_QUERY_VAL
0150: 55 45 20 29 20 29 0d 0a 09 09 69 66 28 20 6b 65 UE ) )....if( ke
0160: 79 2e 67 65 74 28 20 22 50 72 6f 67 72 61 6d 46 y.get( "ProgramF
0170: 69 6c 65 73 44 69 72 22 2c 20 20 70 61 74 68 20 ilesDir", path
0180: 29 0d 0a 09 09 20 7c 7c 20 6b 65 79 2e 67 65 74 ).... || key.get
0190: 28 20 22 50 72 6f 67 72 61 6d 46 69 6c 65 73 50 ( "ProgramFilesP
01a0: 61 74 68 22 2c 20 70 61 74 68 20 29 20 29 0d 0a ath", path ) )..
01b0: 09 09 09 72 65 74 75 72 6e 3b 0d 0a 0d 0a 09 2f ...return;...../
01c0: 2f 20 82 51 81 44 57 69 6e 64 6f 77 73 83 66 83 / .Q.DWindows.f.
01d0: 42 83 8c 83 4e 83 67 83 8a 82 a9 82 e7 82 cc 97 B...N.g.........
01e0: de 90 84 0d 0a 09 63 68 61 72 20 62 75 66 5b 4d ......char buf[M
01f0: 41 58 5f 50 41 54 48 5d 3b 0d 0a 09 69 66 28 20 AX_PATH];...if(
0200: 3a 3a 47 65 74 57 69 6e 64 6f 77 73 44 69 72 65 ::GetWindowsDire
0210: 63 74 6f 72 79 28 20 62 75 66 2c 20 4d 41 58 5f ctory( buf, MAX_
0220: 50 41 54 48 20 29 20 29 0d 0a 09 7b 0d 0a 09 09 PATH ) )...{....
0230: 66 6f 72 28 20 63 68 61 72 2a 20 70 3d 62 75 66 for( char* p=buf
0240: 3b 20 2a 70 21 3d 27 5c 5c 27 20 26 26 20 2a 70 ; *p!='\\' && *p
0250: 3b 20 70 2b 2b 20 29 3b 0d 0a 09 09 2a 70 3d 27 ; p++ );....*p='
0260: 5c 30 27 3b 0d 0a 0d 0a 09 09 2a 70 61 74 68 3d \0';......*path=
0270: 20 62 75 66 2c 20 2a 70 61 74 68 20 2b 3d 20 27 buf, *path += '
0280: 5c 5c 27 2c 20 2a 70 61 74 68 20 2b 3d 20 22 50 \\', *path += "P
0290: 72 6f 67 72 61 6d 20 46 69 6c 65 73 22 3b 0d 0a rogram Files";..
02a0: 09 09 69 66 28 20 3a 3a 47 65 74 46 69 6c 65 41 ..if( ::GetFileA
02b0: 74 74 72 69 62 75 74 65 73 28 20 2a 70 61 74 68 ttributes( *path
02c0: 20 29 20 21 3d 20 30 78 66 66 66 66 66 66 66 66 ) != 0xffffffff
02d0: 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 3b 0d 0a ).....return;..
02e0: 09 7d 0d 0a 0d 0a 09 2f 2f 20 82 52 81 44 82 b5 .}.....// .R.D..
02f0: 82 e1 81 5b 82 c8 82 a2 82 cc 82 c5 8b 4e 93 ae ...[.........N..
0300: 83 66 83 42 83 8c 83 4e 83 67 83 8a 0d 0a 09 70 .f.B...N.g.....p
0310: 61 74 68 2d 3e 62 65 53 70 65 63 69 61 6c 50 61 ath->beSpecialPa
0320: 74 68 28 20 6b 69 50 61 74 68 3a 3a 45 78 65 20 th( kiPath::Exe
0330: 29 3b 0d 0a 7d 0d 0a 0d 0a 76 6f 69 64 20 63 72 );..}....void cr
0340: 65 61 74 65 53 68 6f 72 74 43 75 74 28 20 63 6f eateShortCut( co
0350: 6e 73 74 20 6b 69 50 61 74 68 26 20 6f 72 69 67 nst kiPath& orig
0360: 69 6e 61 6c 2c 20 63 6f 6e 73 74 20 6b 69 50 61 inal, const kiPa
0370: 74 68 26 20 61 74 2c 20 63 6f 6e 73 74 20 63 68 th& at, const ch
0380: 61 72 2a 20 6e 61 6d 65 20 29 0d 0a 7b 0d 0a 09 ar* name )..{...
0390: 49 53 68 65 6c 6c 4c 69 6e 6b 2a 20 70 73 6c 3b IShellLink* psl;
03a0: 0d 0a 09 69 66 28 20 53 55 43 43 45 45 44 45 44 ...if( SUCCEEDED
03b0: 28 3a 3a 43 6f 43 72 65 61 74 65 49 6e 73 74 61 (::CoCreateInsta
03c0: 6e 63 65 28 43 4c 53 49 44 5f 53 68 65 6c 6c 4c nce(CLSID_ShellL
03d0: 69 6e 6b 2c 20 4e 55 4c 4c 2c 20 43 4c 53 43 54 ink, NULL, CLSCT
03e0: 58 5f 49 4e 50 52 4f 43 5f 53 45 52 56 45 52 2c X_INPROC_SERVER,
03f0: 49 49 44 5f 49 53 68 65 6c 6c 4c 69 6e 6b 2c 28 IID_IShellLink,(
0400: 76 6f 69 64 2a 2a 29 26 70 73 6c 29 29 20 29 0d void**)&psl)) ).
0410: 0a 09 7b 0d 0a 09 09 70 73 6c 2d 3e 53 65 74 50 ..{....psl->SetP
0420: 61 74 68 28 20 6f 72 69 67 69 6e 61 6c 20 29 3b ath( original );
0430: 0d 0a 0d 0a 09 09 49 50 65 72 73 69 73 74 46 69 ......IPersistFi
0440: 6c 65 2a 20 70 70 66 3b 0d 0a 09 09 69 66 28 20 le* ppf;....if(
0450: 53 55 43 43 45 45 44 45 44 28 70 73 6c 2d 3e 51 SUCCEEDED(psl->Q
0460: 75 65 72 79 49 6e 74 65 72 66 61 63 65 28 49 49 ueryInterface(II
0470: 44 5f 49 50 65 72 73 69 73 74 46 69 6c 65 2c 28 D_IPersistFile,(
0480: 76 6f 69 64 2a 2a 29 26 70 70 66 29 29 20 29 0d void**)&ppf)) ).
0490: 0a 09 09 7b 0d 0a 09 09 09 57 4f 52 44 20 77 73 ...{.....WORD ws
04a0: 7a 5b 4d 41 58 5f 50 41 54 48 5d 3b 20 0d 0a 09 z[MAX_PATH]; ...
04b0: 09 09 6b 69 50 61 74 68 20 6c 6e 6b 66 69 6c 65 ..kiPath lnkfile
04c0: 28 20 61 74 20 29 3b 0d 0a 09 09 09 6c 6e 6b 66 ( at );.....lnkf
04d0: 69 6c 65 20 2b 3d 20 6e 61 6d 65 2c 20 6c 6e 6b ile += name, lnk
04e0: 66 69 6c 65 20 2b 3d 20 22 2e 6c 6e 6b 22 3b 0d file += ".lnk";.
04f0: 0a 09 09 09 3a 3a 4d 75 6c 74 69 42 79 74 65 54 ....::MultiByteT
0500: 6f 57 69 64 65 43 68 61 72 28 43 50 5f 41 43 50 oWideChar(CP_ACP
0510: 2c 30 2c 6c 6e 6b 66 69 6c 65 2c 2d 31 2c 77 73 ,0,lnkfile,-1,ws
0520: 7a 2c 4d 41 58 5f 50 41 54 48 29 3b 0d 0a 09 09 z,MAX_PATH);....
0530: 09 70 70 66 2d 3e 53 61 76 65 28 77 73 7a 2c 54 .ppf->Save(wsz,T
0540: 52 55 45 29 3b 0d 0a 09 09 09 70 70 66 2d 3e 52 RUE);.....ppf->R
0550: 65 6c 65 61 73 65 28 29 3b 0d 0a 09 09 7d 0d 0a elease();....}..
0560: 09 09 70 73 6c 2d 3e 52 65 6c 65 61 73 65 28 29 ..psl->Release()
0570: 3b 0d 0a 09 7d 0d 0a 7d 0d 0a 0d 0a 0d 0a 2f 2f ;...}..}......//
0580: 2d 2d 20 83 81 83 43 83 93 20 2d 2d 2d 2d 2d 2d -- ...C.. ------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d -------------...
05d0: 0a 63 6c 61 73 73 20 43 4b 49 6e 73 74 41 70 70 .class CKInstApp
05e0: 20 3a 20 70 75 62 6c 69 63 20 6b 69 41 70 70 2c : public kiApp,
05f0: 20 6b 69 44 69 61 6c 6f 67 20 2f 2f 20 6b 69 41 kiDialog // kiA
0600: 70 70 82 cc 83 52 83 93 83 58 83 67 83 89 83 4e pp...R...X.g...N
0610: 83 5e 82 aa 90 e6 82 c9 8c c4 82 ce 82 ea 82 c8 .^..............
0620: 82 a2 82 c6 8e 80 82 ca 81 42 82 e6 82 eb 82 b5 .........B......
0630: 82 ad 82 c8 82 a2 81 42 0d 0a 7b 0d 0a 09 43 4b .......B..{...CK
0640: 49 6e 73 74 41 70 70 28 29 20 3a 20 6b 69 44 69 InstApp() : kiDi
0650: 61 6c 6f 67 28 20 49 44 44 5f 4d 41 49 4e 20 29 alog( IDD_MAIN )
0660: 20 7b 7d 0d 0a 09 66 72 69 65 6e 64 20 76 6f 69 {}...friend voi
0670: 64 20 6b 69 6c 69 62 5f 63 72 65 61 74 65 5f 6e d kilib_create_n
0680: 65 77 5f 61 70 70 28 29 3b 0d 0a 0d 0a 2f 2f 2d ew_app();....//-
0690: 2d 20 83 81 83 43 83 93 83 8b 81 5b 83 60 83 93 - ...C.....[.`..
06a0: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a 0d 0a 09 76 ---------.....v
06b0: 6f 69 64 20 72 75 6e 28 20 6b 69 43 6d 64 50 61 oid run( kiCmdPa
06c0: 72 73 65 72 26 20 63 6d 64 20 29 0d 0a 09 7b 0d rser& cmd )...{.
06d0: 0a 09 09 69 66 28 20 63 6d 64 2e 6f 70 74 69 6f ...if( cmd.optio
06e0: 6e 28 29 2e 6c 65 6e 28 29 20 29 0d 0a 09 09 09 n().len() ).....
06f0: 69 66 28 20 63 6d 64 2e 6f 70 74 69 6f 6e 28 29 if( cmd.option()
0700: 5b 30 5d 5b 31 5d 20 3d 3d 20 27 69 27 20 29 0d [0][1] == 'i' ).
0710: 0a 09 09 09 7b 0d 0a 09 09 09 09 69 6e 73 74 61 ....{......insta
0720: 6c 6c 28 29 3b 0d 0a 09 09 09 09 72 65 74 75 72 ll();......retur
0730: 6e 3b 0d 0a 09 09 09 7d 0d 0a 09 09 09 65 6c 73 n;.....}.....els
0740: 65 20 69 66 28 20 63 6d 64 2e 6f 70 74 69 6f 6e e if( cmd.option
0750: 28 29 5b 30 5d 5b 31 5d 20 3d 3d 20 27 75 27 20 ()[0][1] == 'u'
0760: 26 26 20 63 6d 64 2e 70 61 72 61 6d 28 29 2e 6c && cmd.param().l
0770: 65 6e 28 29 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 en() ).....{....
0780: 09 09 75 6e 69 6e 73 74 61 6c 6c 28 20 63 6d 64 ..uninstall( cmd
0790: 2e 70 61 72 61 6d 28 29 5b 30 5d 20 29 3b 0d 0a .param()[0] );..
07a0: 09 09 09 09 72 65 74 75 72 6e 3b 0d 0a 09 09 09 ....return;.....
07b0: 7d 0d 0a 09 09 62 6f 6f 74 5f 75 6e 69 6e 73 74 }....boot_uninst
07c0: 61 6c 6c 65 72 28 29 3b 0d 0a 09 7d 0d 0a 0d 0a aller();...}....
07d0: 09 76 6f 69 64 20 69 6e 73 74 61 6c 6c 28 29 0d .void install().
07e0: 0a 09 7b 0d 0a 09 09 64 6f 4d 6f 64 61 6c 28 29 ..{....doModal()
07f0: 3b 0d 0a 09 09 69 66 28 20 49 44 43 41 4e 43 45 ;....if( IDCANCE
0800: 4c 20 3d 3d 20 67 65 74 45 6e 64 43 6f 64 65 28 L == getEndCode(
0810: 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 3b 0d ) ).....return;.
0820: 0a 0d 0a 09 09 69 66 28 20 21 63 6f 70 79 28 29 .....if( !copy()
0830: 20 29 0d 0a 09 09 7b 0d 0a 09 09 09 6d 73 67 42 )....{.....msgB
0840: 6f 78 28 20 6b 69 53 74 72 28 29 2e 6c 6f 61 64 ox( kiStr().load
0850: 52 73 72 63 28 49 44 53 5f 43 4f 50 59 46 41 49 Rsrc(IDS_COPYFAI
0860: 4c 29 20 29 3b 0d 0a 09 09 09 72 65 74 75 72 6e L) );.....return
0870: 3b 0d 0a 09 09 7d 0d 0a 0d 0a 09 09 69 66 28 20 ;....}......if(
0880: 21 72 65 67 69 73 74 28 29 20 29 0d 0a 09 09 09 !regist() ).....
0890: 6d 73 67 42 6f 78 28 20 6b 69 53 74 72 28 29 2e msgBox( kiStr().
08a0: 6c 6f 61 64 52 73 72 63 28 49 44 53 5f 52 45 47 loadRsrc(IDS_REG
08b0: 49 53 54 46 41 49 4c 29 20 29 3b 0d 0a 0d 0a 09 ISTFAIL) );.....
08c0: 09 64 6f 5f 63 61 6c 64 69 78 28 29 3b 0d 0a 0d .do_caldix();...
08d0: 0a 09 09 6d 73 67 42 6f 78 28 20 6b 69 53 74 72 ...msgBox( kiStr
08e0: 28 29 2e 6c 6f 61 64 52 73 72 63 28 49 44 53 5f ().loadRsrc(IDS_
08f0: 49 4e 53 54 41 4c 4c 46 49 4e 49 53 48 29 2c 22 INSTALLFINISH),"
0900: 4e 6f 61 68 22 2c 4d 42 5f 4f 4b 7c 4d 42 5f 49 Noah",MB_OK|MB_I
0910: 43 4f 4e 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 29 CONINFORMATION )
0920: 3b 0d 0a 09 7d 0d 0a 0d 0a 09 76 6f 69 64 20 75 ;...}.....void u
0930: 6e 69 6e 73 74 61 6c 6c 28 20 63 6f 6e 73 74 20 ninstall( const
0940: 63 68 61 72 2a 20 64 69 72 20 29 0d 0a 09 7b 0d char* dir )...{.
0950: 0a 09 09 6d 5f 64 65 73 74 64 69 72 20 3d 20 64 ...m_destdir = d
0960: 69 72 3b 0d 0a 09 09 66 6f 72 28 20 69 6e 74 20 ir;....for( int
0970: 69 3d 30 3b 20 69 21 3d 73 69 7a 65 6f 66 28 6d i=0; i!=sizeof(m
0980: 5f 61 73 73 6f 63 29 2f 73 69 7a 65 6f 66 28 62 _assoc)/sizeof(b
0990: 6f 6f 6c 29 3b 20 69 2b 2b 20 29 0d 0a 09 09 09 ool); i++ ).....
09a0: 6d 5f 61 73 73 6f 63 5b 69 5d 3d 66 61 6c 73 65 m_assoc[i]=false
09b0: 3b 0d 0a 09 09 53 6c 65 65 70 28 32 30 30 29 3b ;....Sleep(200);
09c0: 0d 0a 09 09 75 6e 72 65 67 69 73 74 28 29 3b 0d ....unregist();.
09d0: 0a 09 09 72 65 6d 6f 76 65 28 29 3b 0d 0a 09 09 ...remove();....
09e0: 6b 69 6c 6c 5f 6c 61 74 65 72 28 20 6b 69 50 61 kill_later( kiPa
09f0: 74 68 28 6b 69 50 61 74 68 3a 3a 45 78 65 5f 6e th(kiPath::Exe_n
0a00: 61 6d 65 29 20 29 3b 0d 0a 09 09 6d 73 67 42 6f ame) );....msgBo
0a10: 78 28 20 6b 69 53 74 72 28 29 2e 6c 6f 61 64 52 x( kiStr().loadR
0a20: 73 72 63 28 49 44 53 5f 55 4e 49 4e 53 54 41 4c src(IDS_UNINSTAL
0a30: 4c 46 49 4e 49 53 48 29 2c 22 4e 6f 61 68 22 2c LFINISH),"Noah",
0a40: 4d 42 5f 4f 4b 7c 4d 42 5f 49 43 4f 4e 49 4e 46 MB_OK|MB_ICONINF
0a50: 4f 52 4d 41 54 49 4f 4e 20 29 3b 0d 0a 09 7d 0d ORMATION );...}.
0a60: 0a 0d 0a 09 76 6f 69 64 20 62 6f 6f 74 5f 75 6e ....void boot_un
0a70: 69 6e 73 74 61 6c 6c 65 72 28 29 0d 0a 09 7b 0d installer()...{.
0a80: 0a 09 09 69 66 28 20 49 44 4e 4f 3d 3d 6d 73 67 ...if( IDNO==msg
0a90: 42 6f 78 28 20 6b 69 53 74 72 28 35 30 30 29 2e Box( kiStr(500).
0aa0: 6c 6f 61 64 52 73 72 63 28 49 44 53 5f 55 4e 49 loadRsrc(IDS_UNI
0ab0: 4e 53 54 4f 4b 29 2c 20 22 4e 6f 61 68 22 2c 20 NSTOK), "Noah",
0ac0: 4d 42 5f 59 45 53 4e 4f 7c 4d 42 5f 49 43 4f 4e MB_YESNO|MB_ICON
0ad0: 51 55 45 53 54 49 4f 4e 20 29 20 29 0d 0a 09 09 QUESTION ) )....
0ae0: 09 72 65 74 75 72 6e 3b 0d 0a 0d 0a 09 09 6b 69 .return;......ki
0af0: 50 61 74 68 20 73 65 6c 66 28 6b 69 50 61 74 68 Path self(kiPath
0b00: 3a 3a 45 78 65 5f 6e 61 6d 65 29 2c 20 74 6f 28 ::Exe_name), to(
0b10: 6b 69 50 61 74 68 3a 3a 54 6d 70 29 2c 20 70 6f kiPath::Tmp), po
0b20: 73 28 6b 69 50 61 74 68 3a 3a 45 78 65 29 3b 0d s(kiPath::Exe);.
0b30: 0a 09 09 74 6f 20 2b 3d 20 22 6e 6f 61 75 6e 69 ...to += "noauni
0b40: 6e 73 2e 65 78 65 22 3b 0d 0a 09 09 3a 3a 43 6f ns.exe";....::Co
0b50: 70 79 46 69 6c 65 28 20 73 65 6c 66 2c 20 74 6f pyFile( self, to
0b60: 2c 20 46 41 4c 53 45 20 29 3b 0d 0a 09 09 74 6f , FALSE );....to
0b70: 20 2b 3d 20 22 20 2d 75 20 5c 22 22 2c 20 74 6f += " -u \"", to
0b80: 20 2b 3d 20 70 6f 73 2c 20 74 6f 2b 3d 27 22 27 += pos, to+='"'
0b90: 3b 0d 0a 0d 0a 09 09 50 52 4f 43 45 53 53 5f 49 ;......PROCESS_I
0ba0: 4e 46 4f 52 4d 41 54 49 4f 4e 20 70 69 3b 0d 0a NFORMATION pi;..
0bb0: 09 09 53 54 41 52 54 55 50 49 4e 46 4f 20 73 69 ..STARTUPINFO si
0bc0: 3b 09 6b 69 5f 6d 65 6d 7a 65 72 6f 28 20 26 73 ;.ki_memzero( &s
0bd0: 69 2c 73 69 7a 65 6f 66 28 73 69 29 20 29 3b 20 i,sizeof(si) );
0be0: 73 69 2e 63 62 3d 73 69 7a 65 6f 66 28 73 69 29 si.cb=sizeof(si)
0bf0: 3b 0d 0a 09 09 69 66 28 20 21 3a 3a 43 72 65 61 ;....if( !::Crea
0c00: 74 65 50 72 6f 63 65 73 73 28 20 4e 55 4c 4c 2c teProcess( NULL,
0c10: 63 6f 6e 73 74 5f 63 61 73 74 3c 63 68 61 72 2a const_cast<char*
0c20: 3e 28 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 74 >((const char*)t
0c30: 6f 29 2c 0d 0a 09 09 09 4e 55 4c 4c 2c 4e 55 4c o),.....NULL,NUL
0c40: 4c 2c 46 41 4c 53 45 2c 43 52 45 41 54 45 5f 4e L,FALSE,CREATE_N
0c50: 45 57 5f 50 52 4f 43 45 53 53 5f 47 52 4f 55 50 EW_PROCESS_GROUP
0c60: 7c 4e 4f 52 4d 41 4c 5f 50 52 49 4f 52 49 54 59 |NORMAL_PRIORITY
0c70: 5f 43 4c 41 53 53 2c 4e 55 4c 4c 2c 4e 55 4c 4c _CLASS,NULL,NULL
0c80: 2c 26 73 69 2c 26 70 69 20 29 20 29 0d 0a 09 09 ,&si,&pi ) )....
0c90: 09 72 65 74 75 72 6e 3b 20 2f 2f 20 8b 4e 93 ae .return; // .N..
0ca0: 82 c5 82 ab 82 c8 82 a9 82 c1 82 bd 81 63 81 42 .............c.B
0cb0: 0d 0a 0d 0a 09 09 3a 3a 43 6c 6f 73 65 48 61 6e ......::CloseHan
0cc0: 64 6c 65 28 20 70 69 2e 68 54 68 72 65 61 64 20 dle( pi.hThread
0cd0: 29 3b 0d 0a 09 09 3a 3a 43 6c 6f 73 65 48 61 6e );....::CloseHan
0ce0: 64 6c 65 28 20 70 69 2e 68 50 72 6f 63 65 73 73 dle( pi.hProcess
0cf0: 20 29 3b 0d 0a 0d 0a 09 09 2f 2f 20 83 8c 83 57 );......// ...W
0d00: 83 58 83 67 83 8a 82 cc 83 41 83 93 83 43 83 93 .X.g.....A...C..
0d10: 83 58 83 67 81 5b 83 8b 8f ee 95 f1 8d ed 8f 9c .X.g.[..........
0d20: 0d 0a 09 09 6b 69 52 65 67 4b 65 79 20 6b 65 79 ....kiRegKey key
0d30: 3b 0d 0a 09 09 69 66 28 20 6b 65 79 2e 6f 70 65 ;....if( key.ope
0d40: 6e 28 20 48 4b 45 59 5f 4c 4f 43 41 4c 5f 4d 41 n( HKEY_LOCAL_MA
0d50: 43 48 49 4e 45 2c 20 22 53 6f 66 74 77 61 72 65 CHINE, "Software
0d60: 5c 5c 4d 69 63 72 6f 73 6f 66 74 5c 5c 57 69 6e \\Microsoft\\Win
0d70: 64 6f 77 73 5c 5c 43 75 72 72 65 6e 74 56 65 72 dows\\CurrentVer
0d80: 73 69 6f 6e 5c 5c 55 6e 69 6e 73 74 61 6c 6c 22 sion\\Uninstall"
0d90: 20 29 20 29 0d 0a 09 09 09 6b 65 79 2e 64 65 6c ) ).....key.del
0da0: 53 75 62 4b 65 79 28 20 22 4e 6f 61 68 22 20 29 SubKey( "Noah" )
0db0: 3b 0d 0a 09 7d 0d 0a 0d 0a 2f 2f 2d 2d 20 83 81 ;...}....//-- ..
0dc0: 83 43 83 93 83 5f 83 43 83 41 83 8d 83 4f 82 cc .C..._.C.A...O..
0dd0: 8f 88 97 9d 20 2d 2d 0d 0a 0d 0a 09 62 6f 6f 6c .... --.....bool
0de0: 20 6f 6e 4f 4b 28 29 0d 0a 09 7b 0d 0a 09 09 63 onOK()...{....c
0df0: 68 61 72 20 73 74 72 5b 4d 41 58 5f 50 41 54 48 har str[MAX_PATH
0e00: 5d 3b 0d 0a 09 09 73 65 6e 64 4d 73 67 54 6f 49 ];....sendMsgToI
0e10: 74 65 6d 28 20 49 44 43 5f 49 4e 53 54 41 4c 4c tem( IDC_INSTALL
0e20: 54 4f 2c 20 57 4d 5f 47 45 54 54 45 58 54 2c 20 TO, WM_GETTEXT,
0e30: 4d 41 58 5f 50 41 54 48 2c 20 28 4c 50 41 52 41 MAX_PATH, (LPARA
0e40: 4d 29 73 74 72 20 29 3b 0d 0a 09 09 69 66 28 20 M)str );....if(
0e50: 73 74 72 5b 31 5d 21 3d 27 3a 27 20 7c 7c 20 73 str[1]!=':' || s
0e60: 74 72 5b 32 5d 21 3d 27 5c 5c 27 20 29 0d 0a 09 tr[2]!='\\' )...
0e70: 09 7b 0d 0a 09 09 09 6d 73 67 42 6f 78 28 20 6b .{.....msgBox( k
0e80: 69 53 74 72 28 29 2e 6c 6f 61 64 52 73 72 63 28 iStr().loadRsrc(
0e90: 49 44 53 5f 42 41 44 50 41 54 48 29 20 29 3b 0d IDS_BADPATH) );.
0ea0: 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 ....return false
0eb0: 3b 0d 0a 09 09 7d 0d 0a 0d 0a 09 09 6d 5f 64 65 ;....}......m_de
0ec0: 73 74 64 69 72 20 3d 20 73 74 72 3b 0d 0a 09 09 stdir = str;....
0ed0: 6d 5f 64 65 73 74 64 69 72 2e 62 65 42 61 63 6b m_destdir.beBack
0ee0: 53 6c 61 73 68 28 74 72 75 65 29 3b 0d 0a 09 09 Slash(true);....
0ef0: 66 6f 72 28 20 55 49 4e 54 20 69 3d 49 44 43 5f for( UINT i=IDC_
0f00: 4c 5a 48 3b 20 69 3c 3d 49 44 43 5f 44 53 4b 3b LZH; i<=IDC_DSK;
0f10: 20 69 2b 2b 20 29 0d 0a 09 09 09 6d 5f 61 73 73 i++ ).....m_ass
0f20: 6f 63 5b 69 2d 49 44 43 5f 4c 5a 48 5d 20 3d 20 oc[i-IDC_LZH] =
0f30: 28 42 53 54 5f 43 48 45 43 4b 45 44 3d 3d 73 65 (BST_CHECKED==se
0f40: 6e 64 4d 73 67 54 6f 49 74 65 6d 28 20 69 2c 20 ndMsgToItem( i,
0f50: 42 4d 5f 47 45 54 43 48 45 43 4b 20 29 29 3b 0d BM_GETCHECK ));.
0f60: 0a 09 09 6d 5f 61 73 73 6f 63 5b 49 44 43 5f 53 ...m_assoc[IDC_S
0f70: 54 54 2d 49 44 43 5f 4c 5a 48 5d 20 3d 20 74 72 TT-IDC_LZH] = tr
0f80: 75 65 3b 0d 0a 0d 0a 09 09 72 65 74 75 72 6e 20 ue;......return
0f90: 74 72 75 65 3b 0d 0a 09 7d 0d 0a 09 42 4f 4f 4c true;...}...BOOL
0fa0: 20 6f 6e 49 6e 69 74 28 29 0d 0a 09 7b 0d 0a 09 onInit()...{...
0fb0: 09 66 6f 72 28 20 69 6e 74 20 6a 3d 30 3b 20 6a .for( int j=0; j
0fc0: 3c 31 38 3b 20 6a 2b 2b 20 29 0d 0a 09 09 09 6d <18; j++ ).....m
0fd0: 5f 61 73 73 6f 63 5b 6a 5d 20 3d 20 74 72 75 65 _assoc[j] = true
0fe0: 3b 0d 0a 0d 0a 09 09 6b 69 50 61 74 68 20 70 72 ;......kiPath pr
0ff0: 67 3b 0d 0a 09 09 67 65 74 50 72 65 76 50 6f 73 g;....getPrevPos
1000: 28 20 26 70 72 67 20 29 3b 0d 0a 09 09 69 66 28 ( &prg );....if(
1010: 20 70 72 67 2e 6c 65 6e 28 29 3d 3d 30 20 29 20 prg.len()==0 )
1020: 2f 2f 20 90 56 8b 4b 83 43 83 93 83 58 83 67 81 // .V.K.C...X.g.
1030: 5b 83 8b 0d 0a 09 09 09 67 65 74 50 72 6f 67 72 [.......getProgr
1040: 61 6d 46 69 6c 65 73 28 20 26 70 72 67 20 29 2c amFiles( &prg ),
1050: 20 70 72 67 2e 62 65 42 61 63 6b 53 6c 61 73 68 prg.beBackSlash
1060: 28 74 72 75 65 29 2c 20 70 72 67 20 2b 3d 20 22 (true), prg += "
1070: 4e 6f 61 68 5c 5c 22 3b 0d 0a 09 09 65 6c 73 65 Noah\\";....else
1080: 20 2f 2f 20 8a f9 82 c9 91 b6 8d dd 82 b5 82 c4 // ............
1090: 82 e9 8f ea 8d 87 0d 0a 09 09 7b 0d 0a 09 09 09 ..........{.....
10a0: 48 49 4e 53 54 41 4e 43 45 20 68 44 4c 4c 20 3d HINSTANCE hDLL =
10b0: 20 6b 69 53 55 74 69 6c 3a 3a 6c 6f 61 64 4c 69 kiSUtil::loadLi
10c0: 62 72 61 72 79 28 20 22 4e 6f 61 68 58 74 2e 64 brary( "NoahXt.d
10d0: 6c 6c 22 20 29 3b 0d 0a 09 09 09 69 66 28 20 68 ll" );.....if( h
10e0: 44 4c 4c 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 DLL ).....{.....
10f0: 09 74 79 70 65 64 65 66 20 62 6f 6f 6c 20 28 57 .typedef bool (W
1100: 49 4e 41 50 49 20 2a 20 58 54 5f 49 41 29 28 29 INAPI * XT_IA)()
1110: 3b 0d 0a 09 09 09 09 58 54 5f 49 41 20 49 6e 69 ;......XT_IA Ini
1120: 74 20 3d 20 28 58 54 5f 49 41 29 3a 3a 47 65 74 t = (XT_IA)::Get
1130: 50 72 6f 63 41 64 64 72 65 73 73 28 20 68 44 4c ProcAddress( hDL
1140: 4c 2c 20 22 49 6e 69 74 22 20 29 3b 0d 0a 09 09 L, "Init" );....
1150: 09 09 69 66 28 20 49 6e 69 74 28 29 20 29 0d 0a ..if( Init() )..
1160: 09 09 09 09 7b 0d 0a 09 09 09 09 09 74 79 70 65 ....{.......type
1170: 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 def void (WINAPI
1180: 20 2a 20 58 54 5f 4c 53 29 28 62 6f 6f 6c 2a 2c * XT_LS)(bool*,
1190: 62 6f 6f 6c 2a 29 3b 0d 0a 09 09 09 09 09 74 79 bool*);.......ty
11a0: 70 65 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 pedef void (WINA
11b0: 50 49 20 2a 20 58 54 5f 41 53 29 28 62 6f 6f 6c PI * XT_AS)(bool
11c0: 2a 29 3b 0d 0a 09 09 09 09 09 74 79 70 65 64 65 *);.......typede
11d0: 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 20 2a f void (WINAPI *
11e0: 20 58 54 5f 4c 53 45 58 29 28 63 6f 6e 73 74 20 XT_LSEX)(const
11f0: 63 68 61 72 2a 2c 62 6f 6f 6c 2a 29 3b 0d 0a 09 char*,bool*);...
1200: 09 09 09 09 58 54 5f 4c 53 20 4c 6f 61 64 53 45 ....XT_LS LoadSE
1210: 20 20 20 20 3d 20 28 58 54 5f 4c 53 29 3a 3a 47 = (XT_LS)::G
1220: 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 20 68 etProcAddress( h
1230: 44 4c 4c 2c 20 22 4c 6f 61 64 53 45 22 20 29 3b DLL, "LoadSE" );
1240: 0d 0a 09 09 09 09 09 58 54 5f 41 53 20 4c 6f 61 .......XT_AS Loa
1250: 64 41 73 73 6f 63 20 3d 20 28 58 54 5f 41 53 29 dAssoc = (XT_AS)
1260: 3a 3a 47 65 74 50 72 6f 63 41 64 64 72 65 73 73 ::GetProcAddress
1270: 28 20 68 44 4c 4c 2c 20 22 4c 6f 61 64 41 53 22 ( hDLL, "LoadAS"
1280: 20 29 3b 0d 0a 09 09 09 09 09 58 54 5f 4c 53 45 );.......XT_LSE
1290: 58 20 4c 6f 61 64 41 53 45 78 20 3d 20 28 58 54 X LoadASEx = (XT
12a0: 5f 4c 53 45 58 29 3a 3a 47 65 74 50 72 6f 63 41 _LSEX)::GetProcA
12b0: 64 64 72 65 73 73 28 20 68 44 4c 4c 2c 20 22 4c ddress( hDLL, "L
12c0: 6f 61 64 41 53 45 78 22 20 29 3b 0d 0a 09 09 09 oadASEx" );.....
12d0: 09 09 4c 6f 61 64 53 45 28 20 26 6d 5f 61 73 73 ..LoadSE( &m_ass
12e0: 6f 63 5b 31 33 5d 2c 20 26 6d 5f 61 73 73 6f 63 oc[13], &m_assoc
12f0: 5b 31 34 5d 20 29 3b 0d 0a 09 09 09 09 09 4c 6f [14] );.......Lo
1300: 61 64 41 53 45 78 28 20 22 37 7a 5c 30 22 2c 20 adASEx( "7z\0",
1310: 26 6d 5f 61 73 73 6f 63 5b 31 32 5d 20 29 3b 0d &m_assoc[12] );.
1320: 0a 09 09 09 09 09 4c 6f 61 64 41 73 73 6f 63 28 ......LoadAssoc(
1330: 20 6d 5f 61 73 73 6f 63 20 29 3b 0d 0a 09 09 09 m_assoc );.....
1340: 09 7d 0d 0a 09 09 09 09 3a 3a 46 72 65 65 4c 69 .}......::FreeLi
1350: 62 72 61 72 79 28 20 68 44 4c 4c 20 29 3b 0d 0a brary( hDLL );..
1360: 09 09 09 7d 0d 0a 09 09 09 6d 5f 61 73 73 6f 63 ...}.....m_assoc
1370: 5b 31 35 5d 20 3d 20 6b 69 53 55 74 69 6c 3a 3a [15] = kiSUtil::
1380: 65 78 69 73 74 28 20 6b 69 50 61 74 68 28 6b 69 exist( kiPath(ki
1390: 50 61 74 68 3a 3a 53 6e 64 29 2b 3d 22 4e 6f 61 Path::Snd)+="Noa
13a0: 68 2e 6c 6e 6b 22 20 29 3b 0d 0a 09 09 09 6d 5f h.lnk" );.....m_
13b0: 61 73 73 6f 63 5b 31 36 5d 20 3d 20 6b 69 53 55 assoc[16] = kiSU
13c0: 74 69 6c 3a 3a 65 78 69 73 74 28 20 6b 69 50 61 til::exist( kiPa
13d0: 74 68 28 6b 69 50 61 74 68 3a 3a 44 73 6b 29 2b th(kiPath::Dsk)+
13e0: 3d 22 4e 6f 61 68 2e 6c 6e 6b 22 20 29 3b 0d 0a ="Noah.lnk" );..
13f0: 09 09 7d 0d 0a 0d 0a 09 09 73 65 6e 64 4d 73 67 ..}......sendMsg
1400: 54 6f 49 74 65 6d 28 20 49 44 43 5f 49 4e 53 54 ToItem( IDC_INST
1410: 41 4c 4c 54 4f 2c 20 57 4d 5f 53 45 54 54 45 58 ALLTO, WM_SETTEX
1420: 54 2c 20 30 2c 20 28 4c 50 41 52 41 4d 29 28 63 T, 0, (LPARAM)(c
1430: 6f 6e 73 74 20 63 68 61 72 2a 29 70 72 67 20 29 onst char*)prg )
1440: 3b 0d 0a 09 09 66 6f 72 28 20 55 49 4e 54 20 69 ;....for( UINT i
1450: 3d 49 44 43 5f 4c 5a 48 3b 20 69 3c 3d 49 44 43 =IDC_LZH; i<=IDC
1460: 5f 44 53 4b 3b 20 69 2b 2b 20 29 0d 0a 09 09 09 _DSK; i++ ).....
1470: 69 66 28 20 6d 5f 61 73 73 6f 63 5b 69 2d 49 44 if( m_assoc[i-ID
1480: 43 5f 4c 5a 48 5d 20 29 0d 0a 09 09 09 09 73 65 C_LZH] )......se
1490: 6e 64 4d 73 67 54 6f 49 74 65 6d 28 20 69 2c 20 ndMsgToItem( i,
14a0: 42 4d 5f 53 45 54 43 48 45 43 4b 2c 20 42 53 54 BM_SETCHECK, BST
14b0: 5f 43 48 45 43 4b 45 44 20 29 3b 0d 0a 09 09 72 _CHECKED );....r
14c0: 65 74 75 72 6e 20 46 41 4c 53 45 3b 0d 0a 09 7d eturn FALSE;...}
14d0: 0d 0a 09 42 4f 4f 4c 20 43 41 4c 4c 42 41 43 4b ...BOOL CALLBACK
14e0: 20 70 72 6f 63 28 20 55 49 4e 54 20 6d 73 67 2c proc( UINT msg,
14f0: 20 57 50 41 52 41 4d 20 77 70 2c 20 4c 50 41 52 WPARAM wp, LPAR
1500: 41 4d 20 6c 70 20 29 0d 0a 09 7b 0d 0a 09 09 69 AM lp )...{....i
1510: 66 28 20 6d 73 67 20 21 3d 20 57 4d 5f 43 4f 4d f( msg != WM_COM
1520: 4d 41 4e 44 20 29 0d 0a 09 09 09 72 65 74 75 72 MAND ).....retur
1530: 6e 20 46 41 4c 53 45 3b 0d 0a 09 09 73 77 69 74 n FALSE;....swit
1540: 63 68 28 20 4c 4f 57 4f 52 44 28 77 70 29 20 29 ch( LOWORD(wp) )
1550: 0d 0a 09 09 7b 0d 0a 09 09 63 61 73 65 20 49 44 ....{....case ID
1560: 43 5f 52 45 46 3a 7b 0d 0a 09 09 09 63 68 61 72 C_REF:{.....char
1570: 20 73 74 72 5b 4d 41 58 5f 50 41 54 48 5d 3b 0d str[MAX_PATH];.
1580: 0a 09 09 09 73 65 6e 64 4d 73 67 54 6f 49 74 65 ....sendMsgToIte
1590: 6d 28 20 49 44 43 5f 49 4e 53 54 41 4c 4c 54 4f m( IDC_INSTALLTO
15a0: 2c 20 57 4d 5f 47 45 54 54 45 58 54 2c 20 4d 41 , WM_GETTEXT, MA
15b0: 58 5f 50 41 54 48 2c 20 28 4c 50 41 52 41 4d 29 X_PATH, (LPARAM)
15c0: 73 74 72 20 29 3b 0d 0a 09 09 09 69 66 28 20 6b str );.....if( k
15d0: 69 53 55 74 69 6c 3a 3a 67 65 74 46 6f 6c 64 65 iSUtil::getFolde
15e0: 72 44 6c 67 28 20 73 74 72 2c 20 68 77 6e 64 28 rDlg( str, hwnd(
15f0: 29 2c 20 6b 69 53 74 72 28 29 2e 6c 6f 61 64 52 ), kiStr().loadR
1600: 73 72 63 28 49 44 53 5f 44 49 52 29 2c 20 73 74 src(IDS_DIR), st
1610: 72 20 29 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 r ) ).....{.....
1620: 09 6b 69 50 61 74 68 20 78 28 73 74 72 29 3b 20 .kiPath x(str);
1630: 78 2e 62 65 42 61 63 6b 53 6c 61 73 68 28 74 72 x.beBackSlash(tr
1640: 75 65 29 3b 20 78 2b 3d 22 4e 6f 61 68 5c 5c 22 ue); x+="Noah\\"
1650: 3b 0d 0a 09 09 09 09 73 65 6e 64 4d 73 67 54 6f ;......sendMsgTo
1660: 49 74 65 6d 28 20 49 44 43 5f 49 4e 53 54 41 4c Item( IDC_INSTAL
1670: 4c 54 4f 2c 20 57 4d 5f 53 45 54 54 45 58 54 2c LTO, WM_SETTEXT,
1680: 20 30 2c 20 28 4c 50 41 52 41 4d 29 28 63 6f 6e 0, (LPARAM)(con
1690: 73 74 20 63 68 61 72 2a 29 78 20 29 3b 0d 0a 09 st char*)x );...
16a0: 09 09 7d 0d 0a 09 09 09 7d 62 72 65 61 6b 3b 0d ..}.....}break;.
16b0: 0a 09 09 63 61 73 65 20 49 44 43 5f 41 4c 4c 3a ...case IDC_ALL:
16c0: 7b 0d 0a 09 09 09 66 6f 72 28 20 55 49 4e 54 20 {.....for( UINT
16d0: 69 3d 49 44 43 5f 4c 5a 48 3b 20 69 3c 3d 49 44 i=IDC_LZH; i<=ID
16e0: 43 5f 44 53 4b 3b 20 69 2b 2b 20 29 0d 0a 09 09 C_DSK; i++ )....
16f0: 09 09 73 65 6e 64 4d 73 67 54 6f 49 74 65 6d 28 ..sendMsgToItem(
1700: 20 69 2c 20 42 4d 5f 53 45 54 43 48 45 43 4b 2c i, BM_SETCHECK,
1710: 20 42 53 54 5f 55 4e 43 48 45 43 4b 45 44 20 29 BST_UNCHECKED )
1720: 3b 0d 0a 09 09 09 7d 62 72 65 61 6b 3b 0d 0a 09 ;.....}break;...
1730: 09 64 65 66 61 75 6c 74 3a 0d 0a 09 09 09 72 65 .default:.....re
1740: 74 75 72 6e 20 46 41 4c 53 45 3b 0d 0a 09 09 7d turn FALSE;....}
1750: 0d 0a 09 09 72 65 74 75 72 6e 20 54 52 55 45 3b ....return TRUE;
1760: 0d 0a 09 7d 0d 0a 0d 0a 2f 2f 2d 2d 20 83 43 83 ...}....//-- .C.
1770: 93 83 58 83 67 81 5b 83 8b 20 2d 2d 2d 2d 2d 2d ..X.g.[.. ------
1780: 2d 2d 2d 0d 0a 0d 0a 09 62 6f 6f 6c 20 6d 5f 61 ---.....bool m_a
1790: 73 73 6f 63 5b 31 38 5d 3b 20 2f 2f 20 4c 5a 48 ssoc[18]; // LZH
17a0: 2d 4a 41 4b 2c 20 37 5a 2c 20 43 4d 50 20 4d 4c -JAK, 7Z, CMP ML
17b0: 54 2c 20 53 4e 44 20 44 53 4b 20 53 54 54 0d 0a T, SND DSK STT..
17c0: 09 6b 69 50 61 74 68 20 6d 5f 64 65 73 74 64 69 .kiPath m_destdi
17d0: 72 3b 0d 0a 0d 0a 09 62 6f 6f 6c 20 63 6f 70 79 r;.....bool copy
17e0: 28 29 0d 0a 09 7b 0d 0a 09 09 6b 69 50 61 74 68 ()...{....kiPath
17f0: 20 65 78 65 28 6b 69 50 61 74 68 3a 3a 45 78 65 exe(kiPath::Exe
1800: 2c 66 61 6c 73 65 29 2c 20 69 6e 73 74 28 6d 5f ,false), inst(m_
1810: 64 65 73 74 64 69 72 29 3b 0d 0a 09 09 69 6e 73 destdir);....ins
1820: 74 2e 62 65 42 61 63 6b 53 6c 61 73 68 28 66 61 t.beBackSlash(fa
1830: 6c 73 65 29 3b 0d 0a 0d 0a 09 09 2f 2f 20 82 c6 lse);......// ..
1840: 82 e8 82 a0 82 a6 82 b8 91 53 83 52 83 73 0d 0a .........S.R.s..
1850: 09 09 62 6f 6f 6c 20 72 20 3d 20 63 6f 70 79 5f ..bool r = copy_
1860: 64 69 72 32 64 69 72 28 65 78 65 2c 69 6e 73 74 dir2dir(exe,inst
1870: 29 3b 0d 0a 0d 0a 09 09 2f 2f 20 6d 61 6e 75 61 );......// manua
1880: 6c 82 cc 8c be 8c ea 82 f0 82 c4 82 af 82 c6 81 l...............
1890: 5b 82 c9 92 b2 90 ae 0d 0a 09 09 6b 69 50 61 74 [..........kiPat
18a0: 68 20 6d 61 6e 45 28 6d 5f 64 65 73 74 64 69 72 h manE(m_destdir
18b0: 29 2c 20 6d 61 6e 4a 28 6d 5f 64 65 73 74 64 69 ), manJ(m_destdi
18c0: 72 29 3b 0d 0a 09 09 6d 61 6e 45 2e 62 65 42 61 r);....manE.beBa
18d0: 63 6b 53 6c 61 73 68 28 74 72 75 65 29 2c 20 6d ckSlash(true), m
18e0: 61 6e 4a 2e 62 65 42 61 63 6b 53 6c 61 73 68 28 anJ.beBackSlash(
18f0: 74 72 75 65 29 3b 0d 0a 09 09 6d 61 6e 45 20 2b true);....manE +
1900: 3d 20 22 6d 61 6e 75 61 6c 2d 65 2e 68 74 6d 22 = "manual-e.htm"
1910: 2c 20 6d 61 6e 4a 20 2b 3d 20 22 6d 61 6e 75 61 , manJ += "manua
1920: 6c 2e 68 74 6d 22 3b 0d 0a 09 09 69 66 28 20 3a l.htm";....if( :
1930: 3a 47 65 74 41 43 50 28 29 20 21 3d 20 39 33 32 :GetACP() != 932
1940: 20 29 0d 0a 09 09 09 3a 3a 43 6f 70 79 46 69 6c ).....::CopyFil
1950: 65 28 20 6d 61 6e 45 2c 20 6d 61 6e 4a 2c 20 46 e( manE, manJ, F
1960: 41 4c 53 45 20 29 3b 0d 0a 09 09 3a 3a 44 65 6c ALSE );....::Del
1970: 65 74 65 46 69 6c 65 28 20 6d 61 6e 45 20 29 3b eteFile( manE );
1980: 0d 0a 0d 0a 09 09 72 65 74 75 72 6e 20 72 3b 0d ......return r;.
1990: 0a 09 7d 0d 0a 0d 0a 09 62 6f 6f 6c 20 72 65 67 ..}.....bool reg
19a0: 69 73 74 28 29 0d 0a 09 7b 0d 0a 09 09 2f 2f 20 ist()...{....//
19b0: 4e 6f 61 68 58 74 2e 64 6c 6c 82 c9 82 e6 82 e9 NoahXt.dll......
19c0: 8f 88 97 9d 0d 0a 09 09 6b 69 50 61 74 68 20 78 ........kiPath x
19d0: 74 64 6c 6c 28 20 6d 5f 64 65 73 74 64 69 72 20 tdll( m_destdir
19e0: 29 3b 0d 0a 09 09 78 74 64 6c 6c 20 2b 3d 20 22 );....xtdll += "
19f0: 4e 6f 61 68 58 74 2e 64 6c 6c 22 3b 0d 0a 09 09 NoahXt.dll";....
1a00: 48 49 4e 53 54 41 4e 43 45 20 68 44 4c 4c 20 3d HINSTANCE hDLL =
1a10: 20 6b 69 53 55 74 69 6c 3a 3a 6c 6f 61 64 4c 69 kiSUtil::loadLi
1a20: 62 72 61 72 79 28 20 78 74 64 6c 6c 20 29 3b 0d brary( xtdll );.
1a30: 0a 09 09 69 66 28 20 68 44 4c 4c 20 29 0d 0a 09 ...if( hDLL )...
1a40: 09 7b 0d 0a 09 09 09 74 79 70 65 64 65 66 20 62 .{.....typedef b
1a50: 6f 6f 6c 20 28 57 49 4e 41 50 49 20 2a 20 58 54 ool (WINAPI * XT
1a60: 5f 49 41 29 28 29 3b 0d 0a 09 09 09 74 79 70 65 _IA)();.....type
1a70: 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 def void (WINAPI
1a80: 20 2a 20 58 54 5f 4c 53 29 28 62 6f 6f 6c 2a 2c * XT_LS)(bool*,
1a90: 62 6f 6f 6c 2a 29 3b 0d 0a 09 09 09 74 79 70 65 bool*);.....type
1aa0: 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 def void (WINAPI
1ab0: 20 2a 20 58 54 5f 53 53 29 28 62 6f 6f 6c 2c 62 * XT_SS)(bool,b
1ac0: 6f 6f 6c 29 3b 0d 0a 09 09 09 74 79 70 65 64 65 ool);.....typede
1ad0: 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 20 2a f void (WINAPI *
1ae0: 20 58 54 5f 41 53 29 28 62 6f 6f 6c 2a 29 3b 0d XT_AS)(bool*);.
1af0: 0a 09 09 09 74 79 70 65 64 65 66 20 76 6f 69 64 ....typedef void
1b00: 20 28 57 49 4e 41 50 49 20 2a 20 58 54 5f 53 53 (WINAPI * XT_SS
1b10: 45 58 29 28 63 6f 6e 73 74 20 63 68 61 72 2a 2c EX)(const char*,
1b20: 62 6f 6f 6c 29 3b 0d 0a 09 09 09 58 54 5f 49 41 bool);.....XT_IA
1b30: 20 49 6e 69 74 20 3d 20 28 58 54 5f 49 41 29 3a Init = (XT_IA):
1b40: 3a 47 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 :GetProcAddress(
1b50: 20 68 44 4c 4c 2c 20 22 49 6e 69 74 22 20 29 3b hDLL, "Init" );
1b60: 0d 0a 09 09 09 69 66 28 20 49 6e 69 74 28 29 20 .....if( Init()
1b70: 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 58 54 5f ).....{......XT_
1b80: 53 53 20 53 61 76 65 53 45 20 3d 20 28 58 54 5f SS SaveSE = (XT_
1b90: 53 53 29 3a 3a 47 65 74 50 72 6f 63 41 64 64 72 SS)::GetProcAddr
1ba0: 65 73 73 28 20 68 44 4c 4c 2c 20 22 53 61 76 65 ess( hDLL, "Save
1bb0: 53 45 22 20 29 3b 0d 0a 09 09 09 09 58 54 5f 41 SE" );......XT_A
1bc0: 53 20 53 61 76 65 41 73 73 6f 63 20 3d 20 28 58 S SaveAssoc = (X
1bd0: 54 5f 41 53 29 3a 3a 47 65 74 50 72 6f 63 41 64 T_AS)::GetProcAd
1be0: 64 72 65 73 73 28 20 68 44 4c 4c 2c 20 22 53 61 dress( hDLL, "Sa
1bf0: 76 65 41 53 22 20 29 3b 0d 0a 09 09 09 09 58 54 veAS" );......XT
1c00: 5f 53 53 45 58 20 53 61 76 65 41 53 45 78 20 3d _SSEX SaveASEx =
1c10: 20 28 58 54 5f 53 53 45 58 29 3a 3a 47 65 74 50 (XT_SSEX)::GetP
1c20: 72 6f 63 41 64 64 72 65 73 73 28 20 68 44 4c 4c rocAddress( hDLL
1c30: 2c 20 22 53 61 76 65 41 53 45 78 22 20 29 3b 0d , "SaveASEx" );.
1c40: 0a 09 09 09 09 53 61 76 65 53 45 28 20 6d 5f 61 .....SaveSE( m_a
1c50: 73 73 6f 63 5b 31 33 5d 2c 20 6d 5f 61 73 73 6f ssoc[13], m_asso
1c60: 63 5b 31 34 5d 20 29 3b 0d 0a 09 09 09 09 53 61 c[14] );......Sa
1c70: 76 65 41 53 45 78 28 20 22 37 7a 5c 30 22 2c 20 veASEx( "7z\0",
1c80: 6d 5f 61 73 73 6f 63 5b 31 32 5d 20 29 3b 0d 0a m_assoc[12] );..
1c90: 09 09 09 09 53 61 76 65 41 73 73 6f 63 28 20 6d ....SaveAssoc( m
1ca0: 5f 61 73 73 6f 63 20 29 3b 0d 0a 09 09 09 7d 0d _assoc );.....}.
1cb0: 0a 09 09 09 3a 3a 46 72 65 65 4c 69 62 72 61 72 ....::FreeLibrar
1cc0: 79 28 20 68 44 4c 4c 20 29 3b 0d 0a 09 09 7d 0d y( hDLL );....}.
1cd0: 0a 0d 0a 09 09 2f 2f 20 83 56 83 87 81 5b 83 67 .....// .V...[.g
1ce0: 83 4a 83 62 83 67 0d 0a 09 09 3a 3a 43 6f 49 6e .J.b.g....::CoIn
1cf0: 69 74 69 61 6c 69 7a 65 28 20 4e 55 4c 4c 20 29 itialize( NULL )
1d00: 3b 0d 0a 09 09 09 6b 69 50 61 74 68 20 74 6d 70 ;.....kiPath tmp
1d10: 28 6d 5f 64 65 73 74 64 69 72 29 3b 20 74 6d 70 (m_destdir); tmp
1d20: 20 2b 3d 20 22 4e 6f 61 68 2e 65 78 65 22 3b 0d += "Noah.exe";.
1d30: 0a 09 09 09 69 66 28 20 6d 5f 61 73 73 6f 63 5b ....if( m_assoc[
1d40: 31 35 5d 20 29 0d 0a 09 09 09 09 63 72 65 61 74 15] )......creat
1d50: 65 53 68 6f 72 74 43 75 74 28 20 74 6d 70 2c 20 eShortCut( tmp,
1d60: 6b 69 50 61 74 68 28 6b 69 50 61 74 68 3a 3a 53 kiPath(kiPath::S
1d70: 6e 64 29 2c 20 22 4e 6f 61 68 22 20 29 3b 0d 0a nd), "Noah" );..
1d80: 09 09 09 69 66 28 20 6d 5f 61 73 73 6f 63 5b 31 ...if( m_assoc[1
1d90: 36 5d 20 29 0d 0a 09 09 09 09 63 72 65 61 74 65 6] )......create
1da0: 53 68 6f 72 74 43 75 74 28 20 74 6d 70 2c 20 6b ShortCut( tmp, k
1db0: 69 50 61 74 68 28 6b 69 50 61 74 68 3a 3a 44 73 iPath(kiPath::Ds
1dc0: 6b 29 2c 20 22 4e 6f 61 68 22 20 29 3b 0d 0a 09 k), "Noah" );...
1dd0: 09 09 69 66 28 20 6d 5f 61 73 73 6f 63 5b 31 37 ..if( m_assoc[17
1de0: 5d 20 29 0d 0a 09 09 09 7b 0d 0a 09 09 09 09 6b ] ).....{......k
1df0: 69 50 61 74 68 20 53 74 61 72 74 4d 65 6e 75 28 iPath StartMenu(
1e00: 20 43 53 49 44 4c 5f 50 52 4f 47 52 41 4d 53 20 CSIDL_PROGRAMS
1e10: 29 2c 72 73 72 63 3b 0d 0a 09 09 09 09 53 74 61 ),rsrc;......Sta
1e20: 72 74 4d 65 6e 75 20 2b 3d 20 22 4e 6f 61 68 5c rtMenu += "Noah\
1e30: 5c 22 3b 0d 0a 09 09 09 09 53 74 61 72 74 4d 65 \";......StartMe
1e40: 6e 75 2e 6d 6b 64 69 72 28 29 3b 0d 0a 0d 0a 09 nu.mkdir();.....
1e50: 09 09 09 63 72 65 61 74 65 53 68 6f 72 74 43 75 ...createShortCu
1e60: 74 28 20 74 6d 70 2c 20 53 74 61 72 74 4d 65 6e t( tmp, StartMen
1e70: 75 2c 20 22 4e 6f 61 68 22 20 29 3b 0d 0a 09 09 u, "Noah" );....
1e80: 09 09 74 6d 70 20 3d 20 6d 5f 64 65 73 74 64 69 ..tmp = m_destdi
1e90: 72 2c 20 74 6d 70 20 2b 3d 20 22 63 61 6c 64 69 r, tmp += "caldi
1ea0: 78 2e 65 78 65 22 3b 0d 0a 09 09 09 09 63 72 65 x.exe";......cre
1eb0: 61 74 65 53 68 6f 72 74 43 75 74 28 20 74 6d 70 ateShortCut( tmp
1ec0: 2c 20 53 74 61 72 74 4d 65 6e 75 2c 20 72 73 72 , StartMenu, rsr
1ed0: 63 2e 6c 6f 61 64 52 73 72 63 28 49 44 53 5f 43 c.loadRsrc(IDS_C
1ee0: 41 4c 44 49 58 29 20 29 3b 0d 0a 09 09 09 09 74 ALDIX) );......t
1ef0: 6d 70 20 3d 20 6d 5f 64 65 73 74 64 69 72 2c 20 mp = m_destdir,
1f00: 74 6d 70 20 2b 3d 20 22 6d 61 6e 75 61 6c 2e 68 tmp += "manual.h
1f10: 74 6d 22 3b 0d 0a 09 09 09 09 63 72 65 61 74 65 tm";......create
1f20: 53 68 6f 72 74 43 75 74 28 20 74 6d 70 2c 20 53 ShortCut( tmp, S
1f30: 74 61 72 74 4d 65 6e 75 2c 20 72 73 72 63 2e 6c tartMenu, rsrc.l
1f40: 6f 61 64 52 73 72 63 28 49 44 53 5f 48 45 4c 50 oadRsrc(IDS_HELP
1f50: 29 20 29 3b 0d 0a 09 09 09 09 74 6d 70 20 3d 20 ) );......tmp =
1f60: 6d 5f 64 65 73 74 64 69 72 2c 20 74 6d 70 20 2b m_destdir, tmp +
1f70: 3d 20 22 75 6e 69 6e 73 74 2e 65 78 65 22 3b 0d = "uninst.exe";.
1f80: 0a 09 09 09 09 63 72 65 61 74 65 53 68 6f 72 74 .....createShort
1f90: 43 75 74 28 20 74 6d 70 2c 20 53 74 61 72 74 4d Cut( tmp, StartM
1fa0: 65 6e 75 2c 20 72 73 72 63 2e 6c 6f 61 64 52 73 enu, rsrc.loadRs
1fb0: 72 63 28 49 44 53 5f 55 4e 49 4e 53 54 41 4c 4c rc(IDS_UNINSTALL
1fc0: 45 52 29 20 29 3b 0d 0a 09 09 09 7d 0d 0a 09 09 ER) );.....}....
1fd0: 3a 3a 43 6f 55 6e 69 6e 69 74 69 61 6c 69 7a 65 ::CoUninitialize
1fe0: 28 29 3b 0d 0a 0d 0a 09 09 2f 2f 20 83 41 83 93 ();......// .A..
1ff0: 83 43 83 93 83 58 83 67 81 5b 83 8b 8f ee 95 f1 .C...X.g.[......
2000: 82 f0 83 8c 83 57 83 58 83 67 83 8a 82 d6 0d 0a .....W.X.g......
2010: 09 09 6b 69 50 61 74 68 20 75 6e 69 6e 73 74 28 ..kiPath uninst(
2020: 20 6d 5f 64 65 73 74 64 69 72 20 29 3b 0d 0a 09 m_destdir );...
2030: 09 75 6e 69 6e 73 74 20 2b 3d 20 22 75 6e 69 6e .uninst += "unin
2040: 73 74 2e 65 78 65 22 3b 0d 0a 0d 0a 09 09 6b 69 st.exe";......ki
2050: 52 65 67 4b 65 79 20 6b 65 79 3b 0d 0a 09 09 69 RegKey key;....i
2060: 66 28 20 21 6b 65 79 2e 63 72 65 61 74 65 28 20 f( !key.create(
2070: 48 4b 45 59 5f 4c 4f 43 41 4c 5f 4d 41 43 48 49 HKEY_LOCAL_MACHI
2080: 4e 45 2c 20 22 53 6f 66 74 77 61 72 65 5c 5c 4d NE, "Software\\M
2090: 69 63 72 6f 73 6f 66 74 5c 5c 57 69 6e 64 6f 77 icrosoft\\Window
20a0: 73 5c 5c 43 75 72 72 65 6e 74 56 65 72 73 69 6f s\\CurrentVersio
20b0: 6e 5c 5c 55 6e 69 6e 73 74 61 6c 6c 5c 5c 4e 6f n\\Uninstall\\No
20c0: 61 68 22 2c 20 4b 45 59 5f 57 52 49 54 45 20 29 ah", KEY_WRITE )
20d0: 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 66 61 ).....return fa
20e0: 6c 73 65 3b 0d 0a 09 09 6b 65 79 2e 73 65 74 28 lse;....key.set(
20f0: 20 22 44 69 73 70 6c 61 79 4e 61 6d 65 22 2c 20 "DisplayName",
2100: 6b 69 53 74 72 28 29 2e 6c 6f 61 64 52 73 72 63 kiStr().loadRsrc
2110: 28 49 44 53 5f 4e 4f 41 48 29 20 29 3b 0d 0a 09 (IDS_NOAH) );...
2120: 09 6b 65 79 2e 73 65 74 28 20 22 55 6e 69 6e 73 .key.set( "Unins
2130: 74 61 6c 6c 53 74 72 69 6e 67 22 2c 20 75 6e 69 tallString", uni
2140: 6e 73 74 20 29 3b 0d 0a 09 09 72 65 74 75 72 6e nst );....return
2150: 20 74 72 75 65 3b 0d 0a 09 7d 0d 0a 0d 0a 09 76 true;...}.....v
2160: 6f 69 64 20 64 6f 5f 63 61 6c 64 69 78 28 29 0d oid do_caldix().
2170: 0a 09 7b 0d 0a 09 09 69 66 28 20 49 44 59 45 53 ..{....if( IDYES
2180: 3d 3d 6d 73 67 42 6f 78 28 20 6b 69 53 74 72 28 ==msgBox( kiStr(
2190: 31 30 30 30 29 2e 6c 6f 61 64 52 73 72 63 28 49 1000).loadRsrc(I
21a0: 44 53 5f 44 4c 4c 49 4e 53 54 29 2c 22 4e 6f 61 DS_DLLINST),"Noa
21b0: 68 22 2c 4d 42 5f 59 45 53 4e 4f 7c 4d 42 5f 49 h",MB_YESNO|MB_I
21c0: 43 4f 4e 51 55 45 53 54 49 4f 4e 20 29 20 29 0d CONQUESTION ) ).
21d0: 0a 09 09 7b 0d 0a 09 09 09 6b 69 53 74 72 20 63 ...{.....kiStr c
21e0: 6c 64 3b 0d 0a 09 09 09 63 6c 64 20 2b 3d 20 27 ld;.....cld += '
21f0: 22 27 3b 0d 0a 09 09 09 63 6c 64 20 2b 3d 20 6d "';.....cld += m
2200: 5f 64 65 73 74 64 69 72 3b 0d 0a 09 09 09 63 6c _destdir;.....cl
2210: 64 20 2b 3d 20 22 63 61 6c 64 69 78 2e 65 78 65 d += "caldix.exe
2220: 22 3b 0d 0a 09 09 09 63 6c 64 20 2b 3d 20 27 22 ";.....cld += '"
2230: 27 3b 0d 0a 0d 0a 09 09 09 2f 2f 20 83 76 83 8d ';.......// .v..
2240: 83 5a 83 58 8a 4a 8e 6e 0d 0a 09 09 09 50 52 4f .Z.X.J.n.....PRO
2250: 43 45 53 53 5f 49 4e 46 4f 52 4d 41 54 49 4f 4e CESS_INFORMATION
2260: 20 70 69 3b 0d 0a 09 09 09 53 54 41 52 54 55 50 pi;.....STARTUP
2270: 49 4e 46 4f 20 73 69 3b 09 6b 69 5f 6d 65 6d 7a INFO si;.ki_memz
2280: 65 72 6f 28 20 26 73 69 2c 73 69 7a 65 6f 66 28 ero( &si,sizeof(
2290: 73 69 29 20 29 3b 20 73 69 2e 63 62 3d 73 69 7a si) ); si.cb=siz
22a0: 65 6f 66 28 73 69 29 3b 0d 0a 09 09 09 69 66 28 eof(si);.....if(
22b0: 20 21 3a 3a 43 72 65 61 74 65 50 72 6f 63 65 73 !::CreateProces
22c0: 73 28 20 4e 55 4c 4c 2c 63 6f 6e 73 74 5f 63 61 s( NULL,const_ca
22d0: 73 74 3c 63 68 61 72 2a 3e 28 28 63 6f 6e 73 74 st<char*>((const
22e0: 20 63 68 61 72 2a 29 63 6c 64 29 2c 0d 0a 09 09 char*)cld),....
22f0: 09 09 4e 55 4c 4c 2c 4e 55 4c 4c 2c 46 41 4c 53 ..NULL,NULL,FALS
2300: 45 2c 43 52 45 41 54 45 5f 4e 45 57 5f 50 52 4f E,CREATE_NEW_PRO
2310: 43 45 53 53 5f 47 52 4f 55 50 7c 4e 4f 52 4d 41 CESS_GROUP|NORMA
2320: 4c 5f 50 52 49 4f 52 49 54 59 5f 43 4c 41 53 53 L_PRIORITY_CLASS
2330: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 26 73 69 2c 26 ,NULL,NULL,&si,&
2340: 70 69 20 29 20 29 0d 0a 09 09 09 09 72 65 74 75 pi ) )......retu
2350: 72 6e 3b 0d 0a 0d 0a 09 09 09 2f 2f 20 8f 49 97 rn;.......// .I.
2360: b9 91 d2 8b 40 0d 0a 09 09 09 3a 3a 43 6c 6f 73 ....@.....::Clos
2370: 65 48 61 6e 64 6c 65 28 20 70 69 2e 68 54 68 72 eHandle( pi.hThr
2380: 65 61 64 20 29 3b 0d 0a 09 09 09 3a 3a 57 61 69 ead );.....::Wai
2390: 74 46 6f 72 53 69 6e 67 6c 65 4f 62 6a 65 63 74 tForSingleObject
23a0: 28 20 70 69 2e 68 50 72 6f 63 65 73 73 2c 20 49 ( pi.hProcess, I
23b0: 4e 46 49 4e 49 54 45 20 29 3b 0d 0a 09 09 09 3a NFINITE );.....:
23c0: 3a 43 6c 6f 73 65 48 61 6e 64 6c 65 28 20 70 69 :CloseHandle( pi
23d0: 2e 68 50 72 6f 63 65 73 73 20 29 3b 0d 0a 09 09 .hProcess );....
23e0: 7d 0d 0a 09 7d 0d 0a 0d 0a 09 62 6f 6f 6c 20 63 }...}.....bool c
23f0: 6f 70 79 5f 64 69 72 32 64 69 72 28 20 6b 69 50 opy_dir2dir( kiP
2400: 61 74 68 26 20 66 72 6f 6d 2c 20 6b 69 50 61 74 ath& from, kiPat
2410: 68 26 20 74 6f 20 29 0d 0a 09 7b 0d 0a 09 09 69 h& to )...{....i
2420: 66 28 20 21 6b 69 53 55 74 69 6c 3a 3a 69 73 64 f( !kiSUtil::isd
2430: 69 72 28 66 72 6f 6d 29 20 29 0d 0a 09 09 7b 0d ir(from) )....{.
2440: 0a 09 09 09 69 66 28 20 3a 3a 43 6f 70 79 46 69 ....if( ::CopyFi
2450: 6c 65 28 20 66 72 6f 6d 2c 20 74 6f 2c 20 46 41 le( from, to, FA
2460: 4c 53 45 20 29 20 29 0d 0a 09 09 09 09 72 65 74 LSE ) )......ret
2470: 75 72 6e 20 74 72 75 65 3b 0d 0a 09 09 09 69 66 urn true;.....if
2480: 28 20 30 3d 3d 6b 69 5f 73 74 72 63 6d 70 69 28 ( 0==ki_strcmpi(
2490: 20 66 72 6f 6d 2e 65 78 74 28 29 2c 20 22 64 6c from.ext(), "dl
24a0: 6c 22 20 29 20 29 0d 0a 09 09 09 09 72 65 74 75 l" ) )......retu
24b0: 72 6e 20 63 6f 70 79 5f 6c 61 74 65 72 28 66 72 rn copy_later(fr
24c0: 6f 6d 2c 20 74 6f 29 3b 0d 0a 09 09 09 72 65 74 om, to);.....ret
24d0: 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 09 09 7d 0d urn false;....}.
24e0: 0a 0d 0a 09 09 66 72 6f 6d 20 2b 3d 20 27 5c 5c .....from += '\\
24f0: 27 2c 20 74 6f 20 2b 3d 20 27 5c 5c 27 2c 20 74 ', to += '\\', t
2500: 6f 2e 6d 6b 64 69 72 28 29 3b 0d 0a 09 09 69 66 o.mkdir();....if
2510: 28 20 21 6b 69 53 55 74 69 6c 3a 3a 69 73 64 69 ( !kiSUtil::isdi
2520: 72 28 74 6f 29 20 29 0d 0a 09 09 09 72 65 74 75 r(to) ).....retu
2530: 72 6e 20 66 61 6c 73 65 3b 0d 0a 0d 0a 09 09 6b rn false;......k
2540: 69 46 69 6e 64 46 69 6c 65 20 66 69 6e 64 3b 0d iFindFile find;.
2550: 0a 09 09 57 49 4e 33 32 5f 46 49 4e 44 5f 44 41 ...WIN32_FIND_DA
2560: 54 41 20 66 64 3b 0d 0a 09 09 6b 69 50 61 74 68 TA fd;....kiPath
2570: 20 73 72 63 2c 20 64 73 74 2c 20 77 69 6c 64 28 src, dst, wild(
2580: 66 72 6f 6d 29 3b 20 77 69 6c 64 2b 3d 22 5c 5c from); wild+="\\
2590: 2a 22 3b 0d 0a 09 09 66 6f 72 28 20 66 69 6e 64 *";....for( find
25a0: 2e 62 65 67 69 6e 28 20 77 69 6c 64 20 29 3b 20 .begin( wild );
25b0: 66 69 6e 64 2e 6e 65 78 74 28 26 66 64 29 3b 20 find.next(&fd);
25c0: 29 0d 0a 09 09 7b 0d 0a 09 09 09 73 72 63 20 3d )....{.....src =
25d0: 20 66 72 6f 6d 2c 20 73 72 63 2b 3d 27 5c 5c 27 from, src+='\\'
25e0: 2c 20 73 72 63 20 2b 3d 20 66 64 2e 63 46 69 6c , src += fd.cFil
25f0: 65 4e 61 6d 65 3b 0d 0a 09 09 09 64 73 74 20 3d eName;.....dst =
2600: 20 74 6f 20 20 2c 20 64 73 74 2b 3d 27 5c 5c 27 to , dst+='\\'
2610: 2c 20 64 73 74 20 2b 3d 20 66 64 2e 63 46 69 6c , dst += fd.cFil
2620: 65 4e 61 6d 65 3b 0d 0a 09 09 09 69 66 28 20 21 eName;.....if( !
2630: 63 6f 70 79 5f 64 69 72 32 64 69 72 28 20 73 72 copy_dir2dir( sr
2640: 63 2c 20 64 73 74 20 29 20 29 0d 0a 09 09 09 09 c, dst ) )......
2650: 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 09 return false;...
2660: 09 7d 0d 0a 09 09 72 65 74 75 72 6e 20 74 72 75 .}....return tru
2670: 65 3b 0d 0a 09 7d 0d 0a 0d 0a 09 76 6f 69 64 20 e;...}.....void
2680: 67 65 74 50 72 65 76 50 6f 73 28 20 6b 69 50 61 getPrevPos( kiPa
2690: 74 68 2a 20 70 61 74 68 20 29 0d 0a 09 7b 0d 0a th* path )...{..
26a0: 09 09 2a 70 61 74 68 20 3d 20 22 22 3b 0d 0a 0d ..*path = "";...
26b0: 0a 09 09 6b 69 52 65 67 4b 65 79 20 6b 65 79 3b ...kiRegKey key;
26c0: 0d 0a 09 09 69 66 28 20 21 6b 65 79 2e 6f 70 65 ....if( !key.ope
26d0: 6e 28 20 48 4b 45 59 5f 4c 4f 43 41 4c 5f 4d 41 n( HKEY_LOCAL_MA
26e0: 43 48 49 4e 45 2c 20 22 53 6f 66 74 77 61 72 65 CHINE, "Software
26f0: 5c 5c 4d 69 63 72 6f 73 6f 66 74 5c 5c 57 69 6e \\Microsoft\\Win
2700: 64 6f 77 73 5c 5c 43 75 72 72 65 6e 74 56 65 72 dows\\CurrentVer
2710: 73 69 6f 6e 5c 5c 55 6e 69 6e 73 74 61 6c 6c 5c sion\\Uninstall\
2720: 5c 4e 6f 61 68 22 2c 20 4b 45 59 5f 52 45 41 44 \Noah", KEY_READ
2730: 20 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 3b ) ).....return;
2740: 0d 0a 09 09 6b 65 79 2e 67 65 74 28 20 22 55 6e ....key.get( "Un
2750: 69 6e 73 74 61 6c 6c 53 74 72 69 6e 67 22 2c 20 installString",
2760: 70 61 74 68 20 29 3b 0d 0a 09 09 70 61 74 68 2d path );....path-
2770: 3e 62 65 44 69 72 4f 6e 6c 79 28 29 3b 0d 0a 09 >beDirOnly();...
2780: 7d 0d 0a 0d 0a 2f 2f 2d 2d 20 83 41 83 93 83 43 }....//-- .A...C
2790: 83 93 83 58 83 67 81 5b 83 8b 20 2d 2d 2d 2d 2d ...X.g.[.. -----
27a0: 2d 2d 2d 2d 0d 0a 0d 0a 09 74 79 70 65 64 65 66 ----.....typedef
27b0: 20 62 6f 6f 6c 20 28 57 49 4e 41 50 49 20 2a 20 bool (WINAPI *
27c0: 58 54 5f 49 41 29 28 29 3b 0d 0a 09 74 79 70 65 XT_IA)();...type
27d0: 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 def void (WINAPI
27e0: 20 2a 20 58 54 5f 4c 53 29 28 62 6f 6f 6c 2a 2c * XT_LS)(bool*,
27f0: 62 6f 6f 6c 2a 29 3b 0d 0a 09 74 79 70 65 64 65 bool*);...typede
2800: 66 20 76 6f 69 64 20 28 57 49 4e 41 50 49 20 2a f void (WINAPI *
2810: 20 58 54 5f 53 53 29 28 62 6f 6f 6c 2c 62 6f 6f XT_SS)(bool,boo
2820: 6c 29 3b 0d 0a 09 74 79 70 65 64 65 66 20 76 6f l);...typedef vo
2830: 69 64 20 28 57 49 4e 41 50 49 20 2a 20 58 54 5f id (WINAPI * XT_
2840: 41 53 29 28 62 6f 6f 6c 2a 29 3b 0d 0a 09 74 79 AS)(bool*);...ty
2850: 70 65 64 65 66 20 76 6f 69 64 20 28 57 49 4e 41 pedef void (WINA
2860: 50 49 20 2a 20 58 54 5f 53 41 58 29 28 63 6f 6e PI * XT_SAX)(con
2870: 73 74 20 63 68 61 72 2a 2c 62 6f 6f 6c 29 3b 0d st char*,bool);.
2880: 0a 09 74 79 70 65 64 65 66 20 76 6f 69 64 20 28 ..typedef void (
2890: 57 49 4e 41 50 49 20 2a 20 58 54 5f 4c 41 58 29 WINAPI * XT_LAX)
28a0: 28 63 6f 6e 73 74 20 63 68 61 72 2a 2c 62 6f 6f (const char*,boo
28b0: 6c 2a 29 3b 0d 0a 09 62 6f 6f 6c 20 75 6e 72 65 l*);...bool unre
28c0: 67 69 73 74 28 29 0d 0a 09 7b 0d 0a 09 09 2f 2f gist()...{....//
28d0: 20 4e 6f 61 68 58 74 2e 64 6c 6c 82 c9 82 e6 82 NoahXt.dll.....
28e0: e9 8f 88 97 9d 0d 0a 09 09 6b 69 50 61 74 68 20 .........kiPath
28f0: 78 74 64 6c 6c 28 20 6d 5f 64 65 73 74 64 69 72 xtdll( m_destdir
2900: 20 29 3b 0d 0a 09 09 78 74 64 6c 6c 20 2b 3d 20 );....xtdll +=
2910: 22 4e 6f 61 68 58 74 2e 64 6c 6c 22 3b 0d 0a 09 "NoahXt.dll";...
2920: 09 48 49 4e 53 54 41 4e 43 45 20 68 44 4c 4c 20 .HINSTANCE hDLL
2930: 3d 20 6b 69 53 55 74 69 6c 3a 3a 6c 6f 61 64 4c = kiSUtil::loadL
2940: 69 62 72 61 72 79 28 20 78 74 64 6c 6c 20 29 3b ibrary( xtdll );
2950: 0d 0a 09 09 69 66 28 20 68 44 4c 4c 20 29 0d 0a ....if( hDLL )..
2960: 09 09 7b 0d 0a 09 09 09 58 54 5f 49 41 20 49 6e ..{.....XT_IA In
2970: 69 74 20 3d 20 28 58 54 5f 49 41 29 3a 3a 47 65 it = (XT_IA)::Ge
2980: 74 50 72 6f 63 41 64 64 72 65 73 73 28 20 68 44 tProcAddress( hD
2990: 4c 4c 2c 20 22 49 6e 69 74 22 20 29 3b 0d 0a 09 LL, "Init" );...
29a0: 09 09 69 66 28 20 49 6e 69 74 28 29 20 29 0d 0a ..if( Init() )..
29b0: 09 09 09 7b 0d 0a 09 09 09 09 58 54 5f 53 41 58 ...{......XT_SAX
29c0: 20 53 61 76 65 41 53 45 78 20 3d 20 28 58 54 5f SaveASEx = (XT_
29d0: 53 41 58 29 3a 3a 47 65 74 50 72 6f 63 41 64 64 SAX)::GetProcAdd
29e0: 72 65 73 73 28 20 68 44 4c 4c 2c 20 22 53 61 76 ress( hDLL, "Sav
29f0: 65 41 53 45 78 22 20 29 3b 0d 0a 09 09 09 09 58 eASEx" );......X
2a00: 54 5f 4c 41 58 20 4c 6f 61 64 41 53 45 78 20 3d T_LAX LoadASEx =
2a10: 20 28 58 54 5f 4c 41 58 29 3a 3a 47 65 74 50 72 (XT_LAX)::GetPr
2a20: 6f 63 41 64 64 72 65 73 73 28 20 68 44 4c 4c 2c ocAddress( hDLL,
2a30: 20 22 4c 6f 61 64 41 53 45 78 22 20 29 3b 0d 0a "LoadASEx" );..
2a40: 09 09 09 09 75 6e 72 65 67 69 73 74 5f 62 32 65 ....unregist_b2e
2a50: 28 20 53 61 76 65 41 53 45 78 2c 20 4c 6f 61 64 ( SaveASEx, Load
2a60: 41 53 45 78 20 29 3b 0d 0a 0d 0a 09 09 09 09 58 ASEx );........X
2a70: 54 5f 53 53 20 53 61 76 65 53 45 20 3d 20 28 58 T_SS SaveSE = (X
2a80: 54 5f 53 53 29 3a 3a 47 65 74 50 72 6f 63 41 64 T_SS)::GetProcAd
2a90: 64 72 65 73 73 28 20 68 44 4c 4c 2c 20 22 53 61 dress( hDLL, "Sa
2aa0: 76 65 53 45 22 20 29 3b 0d 0a 09 09 09 09 58 54 veSE" );......XT
2ab0: 5f 41 53 20 53 61 76 65 41 73 73 6f 63 20 3d 20 _AS SaveAssoc =
2ac0: 28 58 54 5f 41 53 29 3a 3a 47 65 74 50 72 6f 63 (XT_AS)::GetProc
2ad0: 41 64 64 72 65 73 73 28 20 68 44 4c 4c 2c 20 22 Address( hDLL, "
2ae0: 53 61 76 65 41 53 22 20 29 3b 0d 0a 09 09 09 09 SaveAS" );......
2af0: 53 61 76 65 53 45 28 20 6d 5f 61 73 73 6f 63 5b SaveSE( m_assoc[
2b00: 31 33 5d 2c 20 6d 5f 61 73 73 6f 63 5b 31 34 5d 13], m_assoc[14]
2b10: 20 29 3b 0d 0a 09 09 09 09 53 61 76 65 41 73 73 );......SaveAss
2b20: 6f 63 28 20 6d 5f 61 73 73 6f 63 20 29 3b 0d 0a oc( m_assoc );..
2b30: 09 09 09 7d 0d 0a 09 09 09 3a 3a 46 72 65 65 4c ...}.....::FreeL
2b40: 69 62 72 61 72 79 28 20 68 44 4c 4c 20 29 3b 0d ibrary( hDLL );.
2b50: 0a 09 09 7d 0d 0a 0d 0a 09 09 2f 2f 20 83 56 83 ...}......// .V.
2b60: 87 81 5b 83 67 83 4a 83 62 83 67 0d 0a 09 09 3a ..[.g.J.b.g....:
2b70: 3a 43 6f 49 6e 69 74 69 61 6c 69 7a 65 28 20 4e :CoInitialize( N
2b80: 55 4c 4c 20 29 3b 0d 0a 09 09 6b 69 50 61 74 68 ULL );....kiPath
2b90: 20 73 6e 64 28 6b 69 50 61 74 68 3a 3a 53 6e 64 snd(kiPath::Snd
2ba0: 29 3b 20 73 6e 64 20 2b 3d 20 22 4e 6f 61 68 2e ); snd += "Noah.
2bb0: 6c 6e 6b 22 3b 0d 0a 09 09 6b 69 50 61 74 68 20 lnk";....kiPath
2bc0: 64 73 6b 28 6b 69 50 61 74 68 3a 3a 44 73 6b 29 dsk(kiPath::Dsk)
2bd0: 3b 20 64 73 6b 20 2b 3d 20 22 4e 6f 61 68 2e 6c ; dsk += "Noah.l
2be0: 6e 6b 22 3b 0d 0a 09 09 6b 69 50 61 74 68 20 73 nk";....kiPath s
2bf0: 74 74 28 43 53 49 44 4c 5f 50 52 4f 47 52 41 4d tt(CSIDL_PROGRAM
2c00: 53 29 3b 20 73 74 74 20 2b 3d 20 22 4e 6f 61 68 S); stt += "Noah
2c10: 22 3b 0d 0a 09 09 3a 3a 44 65 6c 65 74 65 46 69 ";....::DeleteFi
2c20: 6c 65 28 73 6e 64 29 2c 20 3a 3a 44 65 6c 65 74 le(snd), ::Delet
2c30: 65 46 69 6c 65 28 64 73 6b 29 2c 20 73 74 74 2e eFile(dsk), stt.
2c40: 72 65 6d 6f 76 65 28 29 3b 0d 0a 0d 0a 09 09 72 remove();......r
2c50: 65 74 75 72 6e 20 74 72 75 65 3b 0d 0a 09 7d 0d eturn true;...}.
2c60: 0a 0d 0a 09 73 74 61 74 69 63 20 76 6f 69 64 20 ....static void
2c70: 63 72 61 63 6b 5f 73 74 72 28 20 63 68 61 72 2a crack_str( char*
2c80: 20 70 20 29 0d 0a 09 7b 0d 0a 09 09 66 6f 72 28 p )...{....for(
2c90: 20 3b 20 2a 70 3b 20 70 3d 6b 69 53 74 72 3a 3a ; *p; p=kiStr::
2ca0: 6e 65 78 74 28 70 29 20 29 0d 0a 09 09 09 69 66 next(p) ).....if
2cb0: 28 20 2a 70 3d 3d 27 2e 27 20 29 0d 0a 09 09 09 ( *p=='.' ).....
2cc0: 09 2a 70 2b 2b 20 3d 20 27 5c 30 27 3b 0d 0a 09 .*p++ = '\0';...
2cd0: 09 2a 2b 2b 70 20 3d 20 27 5c 30 27 3b 0d 0a 09 .*++p = '\0';...
2ce0: 7d 0d 0a 0d 0a 09 76 6f 69 64 20 75 6e 72 65 67 }.....void unreg
2cf0: 69 73 74 5f 62 32 65 28 20 58 54 5f 53 41 58 20 ist_b2e( XT_SAX
2d00: 53 61 76 65 41 53 45 78 2c 20 58 54 5f 4c 41 58 SaveASEx, XT_LAX
2d10: 20 4c 6f 61 64 41 53 45 78 20 29 0d 0a 09 7b 0d LoadASEx )...{.
2d20: 0a 09 09 63 68 61 72 2a 20 66 69 72 73 74 5f 64 ...char* first_d
2d30: 6f 74 3b 0d 0a 09 09 6b 69 46 69 6e 64 46 69 6c ot;....kiFindFil
2d40: 65 20 66 3b 0d 0a 09 09 57 49 4e 33 32 5f 46 49 e f;....WIN32_FI
2d50: 4e 44 5f 44 41 54 41 20 66 64 3b 0d 0a 09 09 6b ND_DATA fd;....k
2d60: 69 50 61 74 68 20 62 32 65 77 69 6c 64 28 6d 5f iPath b2ewild(m_
2d70: 64 65 73 74 64 69 72 29 3b 0d 0a 09 09 62 32 65 destdir);....b2e
2d80: 77 69 6c 64 2e 62 65 42 61 63 6b 53 6c 61 73 68 wild.beBackSlash
2d90: 28 74 72 75 65 29 3b 0d 0a 0d 0a 09 09 66 2e 62 (true);......f.b
2da0: 65 67 69 6e 28 20 62 32 65 77 69 6c 64 2b 3d 22 egin( b2ewild+="
2db0: 62 32 65 5c 5c 2a 2e 62 32 65 22 20 29 3b 0d 0a b2e\\*.b2e" );..
2dc0: 09 09 77 68 69 6c 65 28 20 66 2e 6e 65 78 74 28 ..while( f.next(
2dd0: 26 66 64 29 20 29 0d 0a 09 09 09 69 66 28 20 66 &fd) ).....if( f
2de0: 64 2e 63 46 69 6c 65 4e 61 6d 65 5b 30 5d 20 21 d.cFileName[0] !
2df0: 3d 20 27 23 27 20 29 20 2f 2f 20 23 20 95 74 82 = '#' ) // # .t.
2e00: ab 82 cd 88 b3 8f 6b 90 ea 97 70 0d 0a 09 09 09 ......k...p.....
2e10: 7b 0d 0a 09 09 09 09 2f 2f 20 8a 67 92 a3 8e 71 {......// .g...q
2e20: 82 f0 90 d8 82 e8 8f 6f 82 b5 0d 0a 09 09 09 09 .......o........
2e30: 3a 3a 43 68 61 72 4c 6f 77 65 72 28 20 66 64 2e ::CharLower( fd.
2e40: 63 46 69 6c 65 4e 61 6d 65 20 29 3b 0d 0a 09 09 cFileName );....
2e50: 09 09 66 69 72 73 74 5f 64 6f 74 20 3d 20 63 6f ..first_dot = co
2e60: 6e 73 74 5f 63 61 73 74 3c 63 68 61 72 2a 3e 28 nst_cast<char*>(
2e70: 6b 69 50 61 74 68 3a 3a 65 78 74 5f 61 6c 6c 28 kiPath::ext_all(
2e80: 66 64 2e 63 46 69 6c 65 4e 61 6d 65 29 2d 31 29 fd.cFileName)-1)
2e90: 3b 0d 0a 09 09 09 09 2a 66 69 72 73 74 5f 64 6f ;......*first_do
2ea0: 74 20 3d 20 27 5c 30 27 3b 0d 0a 09 09 09 09 63 t = '\0';......c
2eb0: 72 61 63 6b 5f 73 74 72 28 20 66 64 2e 63 46 69 rack_str( fd.cFi
2ec0: 6c 65 4e 61 6d 65 20 29 3b 0d 0a 09 09 09 09 2f leName );....../
2ed0: 2f 20 8a d6 98 41 82 c3 82 af 8d ed 8f 9c 0d 0a / ...A..........
2ee0: 09 09 09 09 53 61 76 65 41 53 45 78 28 20 66 64 ....SaveASEx( fd
2ef0: 2e 63 46 69 6c 65 4e 61 6d 65 2c 20 66 61 6c 73 .cFileName, fals
2f00: 65 20 29 3b 0d 0a 09 09 09 7d 0d 0a 09 09 53 61 e );.....}....Sa
2f10: 76 65 41 53 45 78 28 20 22 37 7a 5c 30 22 2c 20 veASEx( "7z\0",
2f20: 66 61 6c 73 65 20 29 3b 0d 0a 09 7d 0d 0a 0d 0a false );...}....
2f30: 09 62 6f 6f 6c 20 72 65 6d 6f 76 65 28 29 0d 0a .bool remove()..
2f40: 09 7b 0d 0a 09 09 3a 3a 53 65 74 43 75 72 72 65 .{....::SetCurre
2f50: 6e 74 44 69 72 65 63 74 6f 72 79 28 20 6b 69 50 ntDirectory( kiP
2f60: 61 74 68 28 6b 69 50 61 74 68 3a 3a 45 78 65 29 ath(kiPath::Exe)
2f70: 20 29 3b 0d 0a 0d 0a 09 09 6b 69 50 61 74 68 20 );......kiPath
2f80: 74 6d 70 3b 0d 0a 09 09 6d 5f 64 65 73 74 64 69 tmp;....m_destdi
2f90: 72 2e 62 65 42 61 63 6b 53 6c 61 73 68 28 74 72 r.beBackSlash(tr
2fa0: 75 65 29 3b 0d 0a 09 09 2f 2f 20 83 43 83 93 83 ue);....// .C...
2fb0: 58 83 67 81 5b 83 8b 82 b5 82 bd 83 82 83 6d 82 X.g.[.........m.
2fc0: be 82 af 91 53 8d ed 8f 9c 0d 0a 09 09 74 6d 70 ....S........tmp
2fd0: 3d 6d 5f 64 65 73 74 64 69 72 2c 20 74 6d 70 2b =m_destdir, tmp+
2fe0: 3d 22 4e 6f 61 68 2e 65 78 65 22 2c 20 20 20 3a ="Noah.exe", :
2ff0: 3a 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 29 :DeleteFile(tmp)
3000: 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 64 ;....tmp=m_destd
3010: 69 72 2c 20 74 6d 70 2b 3d 22 4e 6f 61 68 2e 69 ir, tmp+="Noah.i
3020: 6e 69 22 2c 20 20 20 3a 3a 44 65 6c 65 74 65 46 ni", ::DeleteF
3030: 69 6c 65 28 74 6d 70 29 3b 0d 0a 09 09 74 6d 70 ile(tmp);....tmp
3040: 3d 6d 5f 64 65 73 74 64 69 72 2c 20 74 6d 70 2b =m_destdir, tmp+
3050: 3d 22 75 6e 69 6e 73 74 2e 65 78 65 22 2c 20 3a ="uninst.exe", :
3060: 3a 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 29 :DeleteFile(tmp)
3070: 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 64 ;....tmp=m_destd
3080: 69 72 2c 20 74 6d 70 2b 3d 22 63 61 6c 64 69 78 ir, tmp+="caldix
3090: 2e 65 78 65 22 2c 20 3a 3a 44 65 6c 65 74 65 46 .exe", ::DeleteF
30a0: 69 6c 65 28 74 6d 70 29 3b 0d 0a 09 09 74 6d 70 ile(tmp);....tmp
30b0: 3d 6d 5f 64 65 73 74 64 69 72 2c 20 74 6d 70 2b =m_destdir, tmp+
30c0: 3d 22 63 61 6c 64 69 78 2e 69 6e 69 22 2c 20 3a ="caldix.ini", :
30d0: 3a 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 29 :DeleteFile(tmp)
30e0: 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 64 ;....tmp=m_destd
30f0: 69 72 2c 20 74 6d 70 2b 3d 22 52 65 61 64 4d 65 ir, tmp+="ReadMe
3100: 2e 74 78 74 22 2c 20 3a 3a 44 65 6c 65 74 65 46 .txt", ::DeleteF
3110: 69 6c 65 28 74 6d 70 29 3b 0d 0a 09 09 74 6d 70 ile(tmp);....tmp
3120: 3d 6d 5f 64 65 73 74 64 69 72 2c 20 74 6d 70 2b =m_destdir, tmp+
3130: 3d 22 6d 61 6e 75 61 6c 2e 68 74 6d 22 2c 20 3a ="manual.htm", :
3140: 3a 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 29 :DeleteFile(tmp)
3150: 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 64 ;....tmp=m_destd
3160: 69 72 2c 20 74 6d 70 2b 3d 22 68 74 6d 6c 22 2c ir, tmp+="html",
3170: 20 20 20 20 20 20 20 74 6d 70 2e 72 65 6d 6f 76 tmp.remov
3180: 65 28 29 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 e();....tmp=m_de
3190: 73 74 64 69 72 2c 20 74 6d 70 2b 3d 22 62 32 65 stdir, tmp+="b2e
31a0: 5c 5c 6a 61 6b 2e 62 32 65 22 2c 20 20 20 20 20 \\jak.b2e",
31b0: 3a 3a 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 ::DeleteFile(tmp
31c0: 29 3b 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 );....tmp=m_dest
31d0: 64 69 72 2c 20 74 6d 70 2b 3d 22 62 32 65 5c 5c dir, tmp+="b2e\\
31e0: 61 62 6f 75 74 62 32 65 2e 74 78 74 22 2c 3a 3a aboutb2e.txt",::
31f0: 44 65 6c 65 74 65 46 69 6c 65 28 74 6d 70 29 3b DeleteFile(tmp);
3200: 0d 0a 09 09 74 6d 70 3d 6d 5f 64 65 73 74 64 69 ....tmp=m_destdi
3210: 72 2c 20 74 6d 70 2b 3d 22 62 32 65 22 2c 20 20 r, tmp+="b2e",
3220: 20 20 20 20 20 20 3a 3a 52 65 6d 6f 76 65 44 69 ::RemoveDi
3230: 72 65 63 74 6f 72 79 28 74 6d 70 29 3b 0d 0a 09 rectory(tmp);...
3240: 09 74 6d 70 3d 6d 5f 64 65 73 74 64 69 72 2c 20 .tmp=m_destdir,
3250: 74 6d 70 2b 3d 22 4e 6f 61 68 58 74 2e 64 6c 6c tmp+="NoahXt.dll
3260: 22 2c 20 3a 3a 44 65 6c 65 74 65 46 69 6c 65 28 ", ::DeleteFile(
3270: 74 6d 70 29 3b 0d 0a 09 09 3a 3a 52 65 6d 6f 76 tmp);....::Remov
3280: 65 44 69 72 65 63 74 6f 72 79 28 6d 5f 64 65 73 eDirectory(m_des
3290: 74 64 69 72 29 3b 0d 0a 09 09 2f 2f 20 4e 6f 61 tdir);....// Noa
32a0: 68 58 74 2e 64 6c 6c 82 cd 8d c4 8b 4e 93 ae 8c hXt.dll.....N...
32b0: e3 82 c9 89 f1 82 b7 82 a9 82 e0 92 6d 82 ea 82 ............m...
32c0: c8 82 a2 0d 0a 09 09 69 66 28 20 6b 69 53 55 74 .......if( kiSUt
32d0: 69 6c 3a 3a 65 78 69 73 74 28 74 6d 70 29 20 29 il::exist(tmp) )
32e0: 0d 0a 09 09 7b 0d 0a 09 09 09 6b 69 6c 6c 5f 6c ....{.....kill_l
32f0: 61 74 65 72 28 74 6d 70 29 3b 0d 0a 09 09 09 74 ater(tmp);.....t
3300: 6d 70 2e 62 65 44 69 72 4f 6e 6c 79 28 29 3b 0d mp.beDirOnly();.
3310: 0a 09 09 09 74 6d 70 2e 62 65 42 61 63 6b 53 6c ....tmp.beBackSl
3320: 61 73 68 28 66 61 6c 73 65 29 3b 0d 0a 09 09 09 ash(false);.....
3330: 6b 69 6c 6c 5f 6c 61 74 65 72 28 74 6d 70 29 3b kill_later(tmp);
3340: 0d 0a 09 09 7d 0d 0a 0d 0a 09 09 72 65 74 75 72 ....}......retur
3350: 6e 20 74 72 75 65 3b 0d 0a 09 7d 0d 0a 0d 0a 09 n true;...}.....
3360: 76 6f 69 64 20 6b 69 6c 6c 5f 6c 61 74 65 72 28 void kill_later(
3370: 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 70 73 7a const char* psz
3380: 46 69 6c 65 20 29 0d 0a 09 7b 0d 0a 09 09 2f 2f File )...{....//
3390: 20 22 4d 6f 76 65 46 69 6c 65 45 78 20 4e 6f 74 "MoveFileEx Not
33a0: 20 53 75 70 70 6f 72 74 65 64 20 69 6e 20 57 69 Supported in Wi
33b0: 6e 64 6f 77 73 20 39 35 20 42 75 74 20 46 75 6e ndows 95 But Fun
33c0: 63 74 69 6f 6e 61 6c 69 74 79 20 49 73 22 0d 0a ctionality Is"..
33d0: 09 09 69 66 28 20 3a 3a 4d 6f 76 65 46 69 6c 65 ..if( ::MoveFile
33e0: 45 78 28 20 70 73 7a 46 69 6c 65 2c 20 4e 55 4c Ex( pszFile, NUL
33f0: 4c 2c 20 4d 4f 56 45 46 49 4c 45 5f 44 45 4c 41 L, MOVEFILE_DELA
3400: 59 5f 55 4e 54 49 4c 5f 52 45 42 4f 4f 54 20 29 Y_UNTIL_REBOOT )
3410: 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 3b 0d 0a ).....return;..
3420: 09 09 63 68 61 72 20 73 68 6f 72 74 50 61 74 68 ..char shortPath
3430: 5b 4d 41 58 5f 50 41 54 48 5d 3b 0d 0a 09 09 3a [MAX_PATH];....:
3440: 3a 47 65 74 53 68 6f 72 74 50 61 74 68 4e 61 6d :GetShortPathNam
3450: 65 28 20 70 73 7a 46 69 6c 65 2c 20 73 68 6f 72 e( pszFile, shor
3460: 74 50 61 74 68 2c 20 73 69 7a 65 6f 66 28 73 68 tPath, sizeof(sh
3470: 6f 72 74 50 61 74 68 29 20 29 3b 0d 0a 0d 0a 09 ortPath) );.....
3480: 09 6b 69 50 61 74 68 20 69 6e 69 66 69 6c 65 28 .kiPath inifile(
3490: 20 6b 69 50 61 74 68 3a 3a 57 69 6e 20 29 3b 20 kiPath::Win );
34a0: 69 6e 69 66 69 6c 65 2b 3d 22 77 69 6e 69 6e 69 inifile+="winini
34b0: 74 2e 69 6e 69 22 3b 0d 0a 0d 0a 09 09 63 68 61 t.ini";......cha
34c0: 72 20 62 75 66 5b 33 30 30 30 30 5d 3b 0d 0a 09 r buf[30000];...
34d0: 09 3a 3a 47 65 74 50 72 69 76 61 74 65 50 72 6f .::GetPrivatePro
34e0: 66 69 6c 65 53 65 63 74 69 6f 6e 28 20 22 52 65 fileSection( "Re
34f0: 6e 61 6d 65 22 2c 20 62 75 66 2c 20 33 30 30 30 name", buf, 3000
3500: 30 2c 20 69 6e 69 66 69 6c 65 20 29 3b 20 0d 0a 0, inifile ); ..
3510: 09 09 63 68 61 72 2a 20 70 20 3d 20 62 75 66 3b ..char* p = buf;
3520: 20 0d 0a 09 09 77 68 69 6c 65 28 2a 70 29 77 68 ....while(*p)wh
3530: 69 6c 65 28 2a 70 2b 2b 29 3b 0d 0a 0d 0a 09 09 ile(*p++);......
3540: 3a 3a 6c 73 74 72 63 70 79 28 20 70 2c 20 22 4e ::lstrcpy( p, "N
3550: 55 4c 3d 22 20 29 3b 0d 0a 09 09 3a 3a 6c 73 74 UL=" );....::lst
3560: 72 63 61 74 28 20 70 2c 20 73 68 6f 72 74 50 61 rcat( p, shortPa
3570: 74 68 20 29 3b 0d 0a 09 09 77 68 69 6c 65 28 2a th );....while(*
3580: 70 2b 2b 29 3b 0d 0a 09 09 2a 70 3d 27 5c 30 27 p++);....*p='\0'
3590: 3b 20 0d 0a 0d 0a 09 09 3a 3a 57 72 69 74 65 50 ; ......::WriteP
35a0: 72 69 76 61 74 65 50 72 6f 66 69 6c 65 53 65 63 rivateProfileSec
35b0: 74 69 6f 6e 28 20 22 52 65 6e 61 6d 65 22 2c 20 tion( "Rename",
35c0: 62 75 66 2c 20 69 6e 69 66 69 6c 65 20 29 3b 0d buf, inifile );.
35d0: 0a 0d 0a 09 09 2f 2f 20 8a 6d 8e c0 82 c9 8f 91 .....// .m......
35e0: 82 ab 8d 9e 82 de 0d 0a 09 09 3a 3a 57 72 69 74 ..........::Writ
35f0: 65 50 72 69 76 61 74 65 50 72 6f 66 69 6c 65 53 ePrivateProfileS
3600: 74 72 69 6e 67 28 20 4e 55 4c 4c 2c 20 4e 55 4c tring( NULL, NUL
3610: 4c 2c 20 4e 55 4c 4c 2c 20 69 6e 69 66 69 6c 65 L, NULL, inifile
3620: 20 29 3b 0d 0a 09 7d 0d 0a 0d 0a 09 62 6f 6f 6c );...}.....bool
3630: 20 63 6f 70 79 5f 6c 61 74 65 72 28 20 63 6f 6e copy_later( con
3640: 73 74 20 63 68 61 72 2a 20 66 72 6f 6d 2c 20 63 st char* from, c
3650: 6f 6e 73 74 20 63 68 61 72 2a 20 74 6f 20 29 0d onst char* to ).
3660: 0a 09 7b 0d 0a 09 09 63 68 61 72 20 66 72 6f 6d ..{....char from
3670: 5f 74 65 6d 70 5b 4d 41 58 5f 50 41 54 48 5d 3b _temp[MAX_PATH];
3680: 0d 0a 09 09 3a 3a 6c 73 74 72 63 70 79 28 20 66 ....::lstrcpy( f
3690: 72 6f 6d 5f 74 65 6d 70 2c 20 74 6f 20 29 3b 0d rom_temp, to );.
36a0: 0a 09 09 3a 3a 6c 73 74 72 63 61 74 28 20 66 72 ...::lstrcat( fr
36b0: 6f 6d 5f 74 65 6d 70 2c 20 22 2e 6e 65 77 22 20 om_temp, ".new"
36c0: 29 3b 0d 0a 09 09 69 66 28 20 21 3a 3a 43 6f 70 );....if( !::Cop
36d0: 79 46 69 6c 65 28 20 66 72 6f 6d 2c 20 66 72 6f yFile( from, fro
36e0: 6d 5f 74 65 6d 70 2c 20 46 41 4c 53 45 20 29 20 m_temp, FALSE )
36f0: 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 66 61 6c ).....return fal
3700: 73 65 3b 0d 0a 0d 0a 09 09 63 68 61 72 20 73 68 se;......char sh
3710: 6f 72 74 46 72 6f 6d 5b 4d 41 58 5f 50 41 54 48 ortFrom[MAX_PATH
3720: 5d 3b 0d 0a 09 09 3a 3a 47 65 74 53 68 6f 72 74 ];....::GetShort
3730: 50 61 74 68 4e 61 6d 65 28 20 66 72 6f 6d 5f 74 PathName( from_t
3740: 65 6d 70 2c 20 73 68 6f 72 74 46 72 6f 6d 2c 20 emp, shortFrom,
3750: 73 69 7a 65 6f 66 28 73 68 6f 72 74 46 72 6f 6d sizeof(shortFrom
3760: 29 20 29 3b 0d 0a 09 09 63 68 61 72 20 73 68 6f ) );....char sho
3770: 72 74 54 6f 5b 4d 41 58 5f 50 41 54 48 5d 3b 0d rtTo[MAX_PATH];.
3780: 0a 09 09 3a 3a 47 65 74 53 68 6f 72 74 50 61 74 ...::GetShortPat
3790: 68 4e 61 6d 65 28 20 74 6f 2c 20 73 68 6f 72 74 hName( to, short
37a0: 54 6f 2c 20 73 69 7a 65 6f 66 28 73 68 6f 72 74 To, sizeof(short
37b0: 54 6f 29 20 29 3b 0d 0a 09 09 6b 69 50 61 74 68 To) );....kiPath
37c0: 20 69 6e 69 66 69 6c 65 28 20 6b 69 50 61 74 68 inifile( kiPath
37d0: 3a 3a 57 69 6e 20 29 3b 20 69 6e 69 66 69 6c 65 ::Win ); inifile
37e0: 2b 3d 22 77 69 6e 69 6e 69 74 2e 69 6e 69 22 3b +="wininit.ini";
37f0: 0d 0a 0d 0a 09 09 63 68 61 72 20 62 75 66 5b 33 ......char buf[3
3800: 30 30 30 30 5d 3b 0d 0a 09 09 3a 3a 47 65 74 50 0000];....::GetP
3810: 72 69 76 61 74 65 50 72 6f 66 69 6c 65 53 65 63 rivateProfileSec
3820: 74 69 6f 6e 28 20 22 52 65 6e 61 6d 65 22 2c 20 tion( "Rename",
3830: 62 75 66 2c 20 33 30 30 30 30 2c 20 69 6e 69 66 buf, 30000, inif
3840: 69 6c 65 20 29 3b 20 0d 0a 09 09 63 68 61 72 2a ile ); ....char*
3850: 20 70 20 3d 20 62 75 66 3b 20 0d 0a 09 09 77 68 p = buf; ....wh
3860: 69 6c 65 28 2a 70 29 77 68 69 6c 65 28 2a 70 2b ile(*p)while(*p+
3870: 2b 29 3b 0d 0a 0d 0a 09 09 3a 3a 6c 73 74 72 63 +);......::lstrc
3880: 70 79 28 20 70 2c 20 22 4e 55 4c 3d 22 20 29 3b py( p, "NUL=" );
3890: 0d 0a 09 09 3a 3a 6c 73 74 72 63 61 74 28 20 70 ....::lstrcat( p
38a0: 2c 20 73 68 6f 72 74 54 6f 20 29 3b 0d 0a 09 09 , shortTo );....
38b0: 77 68 69 6c 65 28 2a 70 2b 2b 29 3b 0d 0a 09 09 while(*p++);....
38c0: 2a 70 2b 2b 3d 27 5c 72 27 2c 2a 70 2b 2b 3d 27 *p++='\r',*p++='
38d0: 5c 6e 27 3b 20 0d 0a 09 09 3a 3a 6c 73 74 72 63 \n'; ....::lstrc
38e0: 70 79 28 20 70 2c 20 73 68 6f 72 74 54 6f 20 29 py( p, shortTo )
38f0: 3b 0d 0a 09 09 3a 3a 6c 73 74 72 63 61 74 28 20 ;....::lstrcat(
3900: 70 2c 20 22 3d 22 20 29 3b 0d 0a 09 09 3a 3a 6c p, "=" );....::l
3910: 73 74 72 63 61 74 28 20 70 2c 20 73 68 6f 72 74 strcat( p, short
3920: 46 72 6f 6d 20 29 3b 0d 0a 09 09 77 68 69 6c 65 From );....while
3930: 28 2a 70 2b 2b 29 3b 0d 0a 09 09 2a 70 3d 27 5c (*p++);....*p='\
3940: 30 27 3b 20 0d 0a 0d 0a 09 09 3a 3a 57 72 69 74 0'; ......::Writ
3950: 65 50 72 69 76 61 74 65 50 72 6f 66 69 6c 65 53 ePrivateProfileS
3960: 65 63 74 69 6f 6e 28 20 22 52 65 6e 61 6d 65 22 ection( "Rename"
3970: 2c 20 62 75 66 2c 20 69 6e 69 66 69 6c 65 20 29 , buf, inifile )
3980: 3b 0d 0a 0d 0a 09 09 2f 2f 20 8a 6d 8e c0 82 c9 ;......// .m....
3990: 8f 91 82 ab 8d 9e 82 de 0d 0a 09 09 3a 3a 57 72 ............::Wr
39a0: 69 74 65 50 72 69 76 61 74 65 50 72 6f 66 69 6c itePrivateProfil
39b0: 65 53 74 72 69 6e 67 28 20 4e 55 4c 4c 2c 20 4e eString( NULL, N
39c0: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 69 6e 69 66 69 ULL, NULL, inifi
39d0: 6c 65 20 29 3b 0d 0a 09 09 72 65 74 75 72 6e 20 le );....return
39e0: 74 72 75 65 3b 0d 0a 09 7d 0d 0a 7d 3b 0d 0a 0d true;...}..};...
39f0: 0a 76 6f 69 64 20 6b 69 6c 69 62 5f 63 72 65 61 .void kilib_crea
3a00: 74 65 5f 6e 65 77 5f 61 70 70 28 29 0d 0a 7b 0d te_new_app()..{.
3a10: 0a 09 6e 65 77 20 43 4b 49 6e 73 74 41 70 70 3b ..new CKInstApp;
3a20: 0d 0a 7d 0d 0a ..}..