Artifact 2cd48208f91bb9692f85711d45fb4c0d0306bf43:
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 63 61 72 63 2e 63 70 -..// kl_carc.cp
0020: 70 20 3a 20 68 61 6e 64 6c 69 6e 67 20 22 63 6f p : handling "co
0030: 6d 6d 6f 6e 20 61 72 63 68 69 76 65 72 73 27 20 mmon archivers'
0040: 64 6c 6c 22 0d 0a 0d 0a 23 69 6e 63 6c 75 64 65 dll"....#include
0050: 20 22 73 74 64 61 66 78 2e 68 22 0d 0a 23 69 6e "stdafx.h"..#in
0060: 63 6c 75 64 65 20 22 6b 69 6c 69 62 65 78 74 2e clude "kilibext.
0070: 68 22 0d 0a 0d 0a 0d 0a 2f 2f 2d 2d 2d 2d 2d 2d h"......//------
0080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0090: 2d 2d 20 6c 6f 61 64 2f 75 6e 6c 6f 61 64 20 90 -- load/unload .
00a0: a7 8c e4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ... ------------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 0d 0a ----------//....
00c0: 0d 0a 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 6b ..kiArcDLLRaw::k
00d0: 69 41 72 63 44 4c 4c 52 61 77 28 20 63 6f 6e 73 iArcDLLRaw( cons
00e0: 74 20 63 68 61 72 2a 20 64 6c 6c 6e 61 6d 65 20 t char* dllname
00f0: 29 0d 0a 09 3a 20 6d 5f 44 6c 6c 50 61 74 68 28 )...: m_DllPath(
0100: 20 64 6c 6c 6e 61 6d 65 20 29 2c 20 6e 6f 74 5f dllname ), not_
0110: 6c 6f 61 64 65 64 5f 79 65 74 28 20 74 72 75 65 loaded_yet( true
0120: 20 29 0d 0a 7b 0d 0a 09 6b 69 5f 6d 65 6d 7a 65 )..{...ki_memze
0130: 72 6f 28 20 6d 5f 50 72 6f 63 2c 20 49 53 41 52 ro( m_Proc, ISAR
0140: 43 5f 46 55 4e 43 54 49 4f 4e 5f 45 4e 44 2a 73 C_FUNCTION_END*s
0150: 69 7a 65 6f 66 28 46 41 52 50 52 4f 43 29 20 29 izeof(FARPROC) )
0160: 3b 0d 0a 09 66 5f 56 53 62 20 3d 20 4e 55 4c 4c ;...f_VSb = NULL
0170: 3b 0d 0a 7d 0d 0a 0d 0a 6b 69 41 72 63 44 4c 4c ;..}....kiArcDLL
0180: 52 61 77 3a 3a 7e 6b 69 41 72 63 44 4c 4c 52 61 Raw::~kiArcDLLRa
0190: 77 28 29 0d 0a 7b 0d 0a 09 75 6e 6c 6f 61 64 28 w()..{...unload(
01a0: 29 3b 0d 0a 7d 0d 0a 0d 0a 62 6f 6f 6c 20 6b 69 );..}....bool ki
01b0: 41 72 63 44 4c 4c 52 61 77 3a 3a 6c 6f 61 64 28 ArcDLLRaw::load(
01c0: 29 0d 0a 7b 0d 0a 09 6e 6f 74 5f 6c 6f 61 64 65 )..{...not_loade
01d0: 64 5f 79 65 74 20 3d 20 66 61 6c 73 65 3b 0d 0a d_yet = false;..
01e0: 0d 0a 09 6d 5f 68 44 4c 4c 20 3d 20 6b 69 53 55 ...m_hDLL = kiSU
01f0: 74 69 6c 3a 3a 6c 6f 61 64 4c 69 62 72 61 72 79 til::loadLibrary
0200: 28 20 6d 5f 44 6c 6c 50 61 74 68 20 29 3b 0d 0a ( m_DllPath );..
0210: 09 69 66 28 20 21 6d 5f 68 44 4c 4c 20 29 0d 0a .if( !m_hDLL )..
0220: 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d ..return false;.
0230: 0a 0d 0a 09 2f 2f 20 44 4c 4c 82 cc 96 bc 91 4f ....// DLL.....O
0240: 95 94 95 aa 82 f0 90 d8 82 e8 8f 6f 82 b5 0d 0a ...........o....
0250: 09 63 68 61 72 20 73 74 72 5b 4d 41 58 5f 50 41 .char str[MAX_PA
0260: 54 48 5d 2c 20 2a 70 3b 0d 0a 09 63 6f 6e 73 74 TH], *p;...const
0270: 20 63 68 61 72 20 2a 78 2c 20 2a 79 2c 20 2a 7a char *x, *y, *z
0280: 3b 0d 0a 09 66 6f 72 28 20 78 3d 79 3d 6d 5f 44 ;...for( x=y=m_D
0290: 6c 6c 50 61 74 68 3b 20 2a 78 21 3d 27 5c 30 27 llPath; *x!='\0'
02a0: 3b 20 78 3d 6b 69 53 74 72 3a 3a 6e 65 78 74 28 ; x=kiStr::next(
02b0: 78 29 20 29 0d 0a 09 09 69 66 28 20 2a 78 3d 3d x) )....if( *x==
02c0: 27 5c 5c 27 20 7c 7c 20 2a 78 3d 3d 27 2f 27 20 '\\' || *x=='/'
02d0: 29 0d 0a 09 09 09 79 20 3d 20 78 20 2b 20 31 3b ).....y = x + 1;
02e0: 0d 0a 09 66 6f 72 28 20 70 3d 73 74 72 2c 20 7a ...for( p=str, z
02f0: 3d 79 3b 20 28 2a 7a 21 3d 27 2e 27 20 26 26 20 =y; (*z!='.' &&
0300: 2a 7a 21 3d 27 33 27 20 26 26 20 2a 7a 21 3d 27 *z!='3' && *z!='
0310: 5c 30 27 29 3b 20 70 2b 2b 2c 20 7a 2b 2b 20 29 \0'); p++, z++ )
0320: 0d 0a 09 09 2a 70 20 3d 20 2a 7a 3b 0d 0a 09 2a ....*p = *z;...*
0330: 70 20 3d 20 27 5c 30 27 3b 0d 0a 0d 0a 09 2f 2f p = '\0';.....//
0340: 20 83 52 83 7d 83 93 83 68 91 97 82 e8 41 50 49 .R.}...h....API
0350: 82 f0 8e e6 93 be 81 42 63 63 82 c5 8e 6e 82 dc .......Bcc...n..
0360: 82 e9 41 50 49 96 bc 82 a9 82 e0 3f 0d 0a 09 66 ..API......?...f
0370: 5f 43 6d 64 20 3d 20 3a 3a 47 65 74 50 72 6f 63 _Cmd = ::GetProc
0380: 41 64 64 72 65 73 73 28 20 6d 5f 68 44 4c 4c 2c Address( m_hDLL,
0390: 20 73 74 72 20 29 3b 0d 0a 09 69 66 28 20 66 5f str );...if( f_
03a0: 43 6d 64 20 29 0d 0a 09 09 6d 5f 44 6c 6c 4e 61 Cmd )....m_DllNa
03b0: 6d 65 42 6f 64 79 20 3d 20 73 74 72 3b 0d 0a 09 meBody = str;...
03c0: 65 6c 73 65 0d 0a 09 7b 0d 0a 09 09 66 5f 43 6d else...{....f_Cm
03d0: 64 20 3d 20 3a 3a 47 65 74 50 72 6f 63 41 64 64 d = ::GetProcAdd
03e0: 72 65 73 73 28 20 6d 5f 68 44 4c 4c 2c 20 22 63 ress( m_hDLL, "c
03f0: 63 43 6f 6d 6d 61 6e 64 22 20 29 3b 0d 0a 09 09 cCommand" );....
0400: 69 66 28 20 66 5f 43 6d 64 20 29 0d 0a 09 09 09 if( f_Cmd ).....
0410: 6d 5f 44 6c 6c 4e 61 6d 65 42 6f 64 79 20 3d 20 m_DllNameBody =
0420: 22 63 63 22 3b 0d 0a 09 09 65 6c 73 65 0d 0a 09 "cc";....else...
0430: 09 7b 0d 0a 09 09 09 69 66 28 20 73 74 72 5b 30 .{.....if( str[0
0440: 5d 3d 3d 27 37 27 20 26 26 20 28 66 5f 43 6d 64 ]=='7' && (f_Cmd
0450: 3d 3a 3a 47 65 74 50 72 6f 63 41 64 64 72 65 73 =::GetProcAddres
0460: 73 28 6d 5f 68 44 4c 4c 2c 22 53 65 76 65 6e 5a s(m_hDLL,"SevenZ
0470: 69 70 22 29 29 20 29 0d 0a 09 09 09 09 6d 5f 44 ip")) )......m_D
0480: 6c 6c 4e 61 6d 65 42 6f 64 79 20 3d 20 22 53 65 llNameBody = "Se
0490: 76 65 6e 5a 69 70 22 3b 0d 0a 09 09 09 65 6c 73 venZip";.....els
04a0: 65 0d 0a 09 09 09 09 72 65 74 75 72 6e 20 66 61 e......return fa
04b0: 6c 73 65 3b 0d 0a 09 09 7d 0d 0a 09 7d 0d 0a 0d lse;....}...}...
04c0: 0a 09 72 65 74 75 72 6e 20 74 72 75 65 3b 0d 0a ..return true;..
04d0: 7d 0d 0a 0d 0a 76 6f 69 64 20 6b 69 41 72 63 44 }....void kiArcD
04e0: 4c 4c 52 61 77 3a 3a 75 6e 6c 6f 61 64 28 29 0d LLRaw::unload().
04f0: 0a 7b 0d 0a 09 69 66 28 20 21 6e 6f 74 5f 6c 6f .{...if( !not_lo
0500: 61 64 65 64 5f 79 65 74 20 26 26 20 6d 5f 68 44 aded_yet && m_hD
0510: 4c 4c 20 29 0d 0a 09 7b 0d 0a 09 09 6b 69 5f 6d LL )...{....ki_m
0520: 65 6d 7a 65 72 6f 28 20 6d 5f 50 72 6f 63 2c 20 emzero( m_Proc,
0530: 49 53 41 52 43 5f 46 55 4e 43 54 49 4f 4e 5f 45 ISARC_FUNCTION_E
0540: 4e 44 2a 73 69 7a 65 6f 66 28 46 41 52 50 52 4f ND*sizeof(FARPRO
0550: 43 29 20 29 3b 0d 0a 09 09 3a 3a 46 72 65 65 4c C) );....::FreeL
0560: 69 62 72 61 72 79 28 20 6d 5f 68 44 4c 4c 20 29 ibrary( m_hDLL )
0570: 3b 0d 0a 09 09 6e 6f 74 5f 6c 6f 61 64 65 64 5f ;....not_loaded_
0580: 79 65 74 20 3d 20 74 72 75 65 3b 0d 0a 09 7d 0d yet = true;...}.
0590: 0a 7d 0d 0a 0d 0a 62 6f 6f 6c 20 6b 69 41 72 63 .}....bool kiArc
05a0: 44 4c 4c 52 61 77 3a 3a 69 73 41 6c 69 76 65 28 DLLRaw::isAlive(
05b0: 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c )..{...if( not_l
05c0: 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 6c oaded_yet )....l
05d0: 6f 61 64 28 29 3b 0d 0a 0d 0a 09 72 65 74 75 72 oad();.....retur
05e0: 6e 20 28 6d 5f 68 44 4c 4c 20 21 3d 20 4e 55 4c n (m_hDLL != NUL
05f0: 4c 29 3b 0d 0a 7d 0d 0a 0d 0a 46 41 52 50 52 4f L);..}....FARPRO
0600: 43 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 67 C kiArcDLLRaw::g
0610: 65 74 50 72 6f 63 28 20 63 6f 6e 73 74 20 63 68 etProc( const ch
0620: 61 72 2a 20 70 72 6f 63 6e 61 6d 65 20 29 0d 0a ar* procname )..
0630: 7b 0d 0a 09 6b 69 53 74 72 20 66 75 6e 63 4e 61 {...kiStr funcNa
0640: 6d 65 20 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 me = (const char
0650: 2a 29 6d 5f 44 6c 6c 4e 61 6d 65 42 6f 64 79 3b *)m_DllNameBody;
0660: 0d 0a 09 66 75 6e 63 4e 61 6d 65 20 2b 3d 20 70 ...funcName += p
0670: 72 6f 63 6e 61 6d 65 3b 0d 0a 09 72 65 74 75 72 rocname;...retur
0680: 6e 20 3a 3a 47 65 74 50 72 6f 63 41 64 64 72 65 n ::GetProcAddre
0690: 73 73 28 20 6d 5f 68 44 4c 4c 2c 20 66 75 6e 63 ss( m_hDLL, func
06a0: 4e 61 6d 65 20 29 3b 0d 0a 7d 0d 0a 0d 0a 2f 2f Name );..}....//
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 41 50 ------------- AP
06d0: 49 82 cc 83 89 83 62 83 70 8c 51 20 2d 2d 2d 2d I.....b.p.Q ----
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06f0: 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 0d 0a 0d 0a 69 6e ------//......in
0700: 74 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 63 t kiArcDLLRaw::c
0710: 6f 6d 6d 61 6e 64 28 20 63 6f 6e 73 74 20 48 57 ommand( const HW
0720: 4e 44 20 77 6e 64 2c 20 4c 50 43 53 54 52 20 63 ND wnd, LPCSTR c
0730: 6d 64 2c 20 4c 50 53 54 52 20 62 75 66 2c 20 63 md, LPSTR buf, c
0740: 6f 6e 73 74 20 44 57 4f 52 44 20 73 69 7a 20 29 onst DWORD siz )
0750: 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f ..{...if( not_lo
0760: 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 aded_yet )....if
0770: 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 ( !load() ).....
0780: 72 65 74 75 72 6e 20 45 52 52 4f 52 5f 4e 4f 54 return ERROR_NOT
0790: 5f 53 55 50 50 4f 52 54 3b 0d 0a 0d 0a 09 2f 2f _SUPPORT;.....//
07a0: 20 83 52 83 7d 83 93 83 68 8a d6 90 94 82 cd 95 .R.}...h.......
07b0: 4b 82 b8 83 8d 81 5b 83 68 82 b3 82 ea 82 c4 82 K.....[.h.......
07c0: a2 82 e9 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 ........typedef
07d0: 69 6e 74 20 28 57 49 4e 41 50 49 20 2a 20 43 41 int (WINAPI * CA
07e0: 52 43 5f 43 4d 44 29 28 63 6f 6e 73 74 20 48 57 RC_CMD)(const HW
07f0: 4e 44 2c 63 6f 6e 73 74 20 63 68 61 72 2a 2c 63 ND,const char*,c
0800: 68 61 72 2a 2c 63 6f 6e 73 74 20 44 57 4f 52 44 har*,const DWORD
0810: 29 3b 0d 0a 09 72 65 74 75 72 6e 20 28 28 43 41 );...return ((CA
0820: 52 43 5f 43 4d 44 29 66 5f 43 6d 64 29 28 20 77 RC_CMD)f_Cmd)( w
0830: 6e 64 2c 20 63 6d 64 2c 20 62 75 66 2c 20 73 69 nd, cmd, buf, si
0840: 7a 20 29 3b 0d 0a 7d 0d 0a 0d 0a 57 4f 52 44 20 z );..}....WORD
0850: 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 67 65 74 kiArcDLLRaw::get
0860: 56 65 72 28 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e Ver()..{...if( n
0870: 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 20 29 0d ot_loaded_yet ).
0880: 0a 09 09 69 66 28 20 21 6c 6f 61 64 28 29 20 29 ...if( !load() )
0890: 0d 0a 09 09 09 72 65 74 75 72 6e 20 30 3b 0d 0a .....return 0;..
08a0: 0d 0a 09 69 66 28 20 21 66 5f 56 65 72 20 29 0d ...if( !f_Ver ).
08b0: 0a 09 09 66 5f 56 65 72 20 3d 20 67 65 74 50 72 ...f_Ver = getPr
08c0: 6f 63 28 20 22 47 65 74 56 65 72 73 69 6f 6e 22 oc( "GetVersion"
08d0: 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 );.....typedef
08e0: 57 4f 52 44 20 28 57 49 4e 41 50 49 20 2a 20 43 WORD (WINAPI * C
08f0: 41 52 43 5f 56 45 52 29 28 76 6f 69 64 29 3b 0d ARC_VER)(void);.
0900: 0a 09 72 65 74 75 72 6e 20 66 5f 56 65 72 20 3f ..return f_Ver ?
0910: 20 28 28 43 41 52 43 5f 56 45 52 29 66 5f 56 65 ((CARC_VER)f_Ve
0920: 72 29 28 29 20 3a 20 30 3b 0d 0a 7d 0d 0a 0d 0a r)() : 0;..}....
0930: 57 4f 52 44 20 6b 69 41 72 63 44 4c 4c 52 61 77 WORD kiArcDLLRaw
0940: 3a 3a 67 65 74 56 65 72 53 75 62 28 29 0d 0a 7b ::getVerSub()..{
0950: 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 ...if( not_loade
0960: 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 28 20 21 d_yet )....if( !
0970: 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 72 65 74 load() ).....ret
0980: 75 72 6e 20 30 3b 0d 0a 0d 0a 09 69 66 28 20 21 urn 0;.....if( !
0990: 66 5f 56 53 62 20 29 0d 0a 09 09 66 5f 56 53 62 f_VSb )....f_VSb
09a0: 20 3d 20 67 65 74 50 72 6f 63 28 20 22 47 65 74 = getProc( "Get
09b0: 53 75 62 56 65 72 73 69 6f 6e 22 20 29 3b 0d 0a SubVersion" );..
09c0: 0d 0a 09 74 79 70 65 64 65 66 20 57 4f 52 44 20 ...typedef WORD
09d0: 28 57 49 4e 41 50 49 20 2a 20 43 41 52 43 5f 56 (WINAPI * CARC_V
09e0: 45 52 29 28 76 6f 69 64 29 3b 0d 0a 09 72 65 74 ER)(void);...ret
09f0: 75 72 6e 20 66 5f 56 53 62 20 3f 20 28 28 43 41 urn f_VSb ? ((CA
0a00: 52 43 5f 56 45 52 29 66 5f 56 53 62 29 28 29 20 RC_VER)f_VSb)()
0a10: 3a 20 30 3b 0d 0a 7d 0d 0a 0d 0a 42 4f 4f 4c 20 : 0;..}....BOOL
0a20: 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 63 68 65 kiArcDLLRaw::che
0a30: 63 6b 28 20 4c 50 43 53 54 52 20 66 69 6c 65 6e ck( LPCSTR filen
0a40: 61 6d 65 2c 20 63 6f 6e 73 74 20 69 6e 74 20 6d ame, const int m
0a50: 6f 64 65 20 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e ode )..{...if( n
0a60: 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 20 29 0d ot_loaded_yet ).
0a70: 0a 09 09 69 66 28 20 21 6c 6f 61 64 28 29 20 29 ...if( !load() )
0a80: 0d 0a 09 09 09 72 65 74 75 72 6e 20 46 41 4c 53 .....return FALS
0a90: 45 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f 43 68 E;.....if( !f_Ch
0aa0: 6b 20 29 0d 0a 09 09 66 5f 43 68 6b 20 3d 20 67 k )....f_Chk = g
0ab0: 65 74 50 72 6f 63 28 20 22 43 68 65 63 6b 41 72 etProc( "CheckAr
0ac0: 63 68 69 76 65 22 20 29 3b 0d 0a 0d 0a 09 74 79 chive" );.....ty
0ad0: 70 65 64 65 66 20 42 4f 4f 4c 20 28 57 49 4e 41 pedef BOOL (WINA
0ae0: 50 49 20 2a 20 43 41 52 43 5f 43 48 4b 29 28 63 PI * CARC_CHK)(c
0af0: 6f 6e 73 74 20 63 68 61 72 2a 2c 63 6f 6e 73 74 onst char*,const
0b00: 20 69 6e 74 29 3b 0d 0a 09 72 65 74 75 72 6e 20 int);...return
0b10: 66 5f 43 68 6b 20 3f 20 28 28 43 41 52 43 5f 43 f_Chk ? ((CARC_C
0b20: 48 4b 29 66 5f 43 68 6b 29 28 20 66 69 6c 65 6e HK)f_Chk)( filen
0b30: 61 6d 65 2c 20 6d 6f 64 65 20 29 20 3a 20 46 41 ame, mode ) : FA
0b40: 4c 53 45 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 6b LSE;..}....int k
0b50: 69 41 72 63 44 4c 4c 52 61 77 3a 3a 67 65 74 41 iArcDLLRaw::getA
0b60: 72 63 54 79 70 65 28 20 4c 50 43 53 54 52 20 66 rcType( LPCSTR f
0b70: 69 6c 65 6e 61 6d 65 20 29 0d 0a 7b 0d 0a 09 69 ilename )..{...i
0b80: 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 f( not_loaded_ye
0b90: 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 t )....if( !load
0ba0: 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 () ).....return
0bb0: 46 41 4c 53 45 3b 0d 0a 0d 0a 09 69 66 28 20 21 FALSE;.....if( !
0bc0: 66 5f 47 61 74 20 29 0d 0a 09 09 66 5f 47 61 74 f_Gat )....f_Gat
0bd0: 20 3d 20 67 65 74 50 72 6f 63 28 20 22 47 65 74 = getProc( "Get
0be0: 41 72 63 68 69 76 65 54 79 70 65 22 20 29 3b 0d ArchiveType" );.
0bf0: 0a 0d 0a 09 74 79 70 65 64 65 66 20 42 4f 4f 4c ....typedef BOOL
0c00: 20 28 57 49 4e 41 50 49 20 2a 20 43 41 52 43 5f (WINAPI * CARC_
0c10: 47 41 54 29 28 63 6f 6e 73 74 20 63 68 61 72 2a GAT)(const char*
0c20: 29 3b 0d 0a 09 72 65 74 75 72 6e 20 66 5f 47 61 );...return f_Ga
0c30: 74 20 3f 20 28 28 43 41 52 43 5f 47 41 54 29 66 t ? ((CARC_GAT)f
0c40: 5f 47 61 74 29 28 20 66 69 6c 65 6e 61 6d 65 20 _Gat)( filename
0c50: 29 20 3a 20 30 3b 0d 0a 7d 0d 0a 0d 0a 48 41 52 ) : 0;..}....HAR
0c60: 43 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 6f C kiArcDLLRaw::o
0c70: 70 65 6e 41 72 63 28 20 63 6f 6e 73 74 20 48 57 penArc( const HW
0c80: 4e 44 20 77 6e 64 2c 20 4c 50 43 53 54 52 20 61 ND wnd, LPCSTR a
0c90: 72 63 6e 61 6d 65 2c 20 63 6f 6e 73 74 20 44 57 rcname, const DW
0ca0: 4f 52 44 20 66 6c 61 67 20 29 0d 0a 7b 0d 0a 09 ORD flag )..{...
0cb0: 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 if( not_loaded_y
0cc0: 65 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 et )....if( !loa
0cd0: 64 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e d() ).....return
0ce0: 20 4e 55 4c 4c 3b 0d 0a 0d 0a 09 69 66 28 20 21 NULL;.....if( !
0cf0: 66 5f 4f 70 6e 20 29 0d 0a 09 09 66 5f 4f 70 6e f_Opn )....f_Opn
0d00: 20 3d 20 67 65 74 50 72 6f 63 28 20 22 4f 70 65 = getProc( "Ope
0d10: 6e 41 72 63 68 69 76 65 22 20 29 3b 0d 0a 0d 0a nArchive" );....
0d20: 09 74 79 70 65 64 65 66 20 48 41 52 43 20 28 57 .typedef HARC (W
0d30: 49 4e 41 50 49 20 2a 20 43 41 52 43 5f 4f 50 4e INAPI * CARC_OPN
0d40: 29 28 63 6f 6e 73 74 20 48 57 4e 44 2c 4c 50 43 )(const HWND,LPC
0d50: 53 54 52 2c 63 6f 6e 73 74 20 44 57 4f 52 44 29 STR,const DWORD)
0d60: 3b 0d 0a 09 72 65 74 75 72 6e 20 66 5f 4f 70 6e ;...return f_Opn
0d70: 20 3f 20 28 28 43 41 52 43 5f 4f 50 4e 29 66 5f ? ((CARC_OPN)f_
0d80: 4f 70 6e 29 28 20 77 6e 64 2c 20 61 72 63 6e 61 Opn)( wnd, arcna
0d90: 6d 65 2c 20 66 6c 61 67 20 29 20 3a 20 4e 55 4c me, flag ) : NUL
0da0: 4c 3b 0d 0a 7d 0d 0a 0d 0a 76 6f 69 64 20 6b 69 L;..}....void ki
0db0: 41 72 63 44 4c 4c 52 61 77 3a 3a 63 6c 6f 73 65 ArcDLLRaw::close
0dc0: 41 72 63 28 20 48 41 52 43 20 61 72 63 20 29 0d Arc( HARC arc ).
0dd0: 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 .{...if( not_loa
0de0: 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 28 ded_yet )....if(
0df0: 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 72 !load() ).....r
0e00: 65 74 75 72 6e 3b 0d 0a 0d 0a 09 69 66 28 20 21 eturn;.....if( !
0e10: 66 5f 43 6c 73 20 29 0d 0a 09 09 66 5f 43 6c 73 f_Cls )....f_Cls
0e20: 20 3d 20 67 65 74 50 72 6f 63 28 20 22 43 6c 6f = getProc( "Clo
0e30: 73 65 41 72 63 68 69 76 65 22 20 29 3b 0d 0a 0d seArchive" );...
0e40: 0a 09 74 79 70 65 64 65 66 20 69 6e 74 20 28 57 ..typedef int (W
0e50: 49 4e 41 50 49 20 2a 20 43 41 52 43 5f 43 4c 53 INAPI * CARC_CLS
0e60: 29 28 48 41 52 43 29 3b 0d 0a 09 69 66 28 20 66 )(HARC);...if( f
0e70: 5f 43 6c 73 20 29 0d 0a 09 09 28 28 43 41 52 43 _Cls )....((CARC
0e80: 5f 43 4c 53 29 66 5f 43 6c 73 29 28 20 61 72 63 _CLS)f_Cls)( arc
0e90: 20 29 3b 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 6b 69 );..}....int ki
0ea0: 41 72 63 44 4c 4c 52 61 77 3a 3a 66 69 6e 64 66 ArcDLLRaw::findf
0eb0: 69 72 73 74 28 20 48 41 52 43 20 61 72 63 2c 20 irst( HARC arc,
0ec0: 4c 50 43 53 54 52 20 77 69 6c 64 6e 61 6d 65 2c LPCSTR wildname,
0ed0: 20 49 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f 2a INDIVIDUALINFO*
0ee0: 20 69 6e 66 20 29 0d 0a 7b 0d 0a 09 69 66 28 20 inf )..{...if(
0ef0: 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 20 29 not_loaded_yet )
0f00: 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 28 29 20 ....if( !load()
0f10: 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 45 52 52 ).....return ERR
0f20: 4f 52 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 3b 0d OR_NOT_SUPPORT;.
0f30: 0a 0d 0a 09 69 66 28 20 21 66 5f 46 66 73 20 29 ....if( !f_Ffs )
0f40: 0d 0a 09 09 66 5f 46 66 73 20 3d 20 67 65 74 50 ....f_Ffs = getP
0f50: 72 6f 63 28 20 22 46 69 6e 64 46 69 72 73 74 22 roc( "FindFirst"
0f60: 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 );.....typedef
0f70: 69 6e 74 20 28 57 49 4e 41 50 49 20 2a 20 43 41 int (WINAPI * CA
0f80: 52 43 5f 46 46 53 29 28 48 41 52 43 2c 4c 50 43 RC_FFS)(HARC,LPC
0f90: 53 54 52 2c 49 4e 44 49 56 49 44 55 41 4c 49 4e STR,INDIVIDUALIN
0fa0: 46 4f 20 46 41 52 20 2a 29 3b 0d 0a 09 72 65 74 FO FAR *);...ret
0fb0: 75 72 6e 20 66 5f 46 66 73 20 3f 20 28 28 43 41 urn f_Ffs ? ((CA
0fc0: 52 43 5f 46 46 53 29 66 5f 46 66 73 29 28 20 61 RC_FFS)f_Ffs)( a
0fd0: 72 63 2c 20 77 69 6c 64 6e 61 6d 65 2c 20 69 6e rc, wildname, in
0fe0: 66 20 29 20 3a 20 45 52 52 4f 52 5f 4e 4f 54 5f f ) : ERROR_NOT_
0ff0: 53 55 50 50 4f 52 54 3b 0d 0a 7d 0d 0a 0d 0a 69 SUPPORT;..}....i
1000: 6e 74 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a nt kiArcDLLRaw::
1010: 66 69 6e 64 6e 65 78 74 28 20 48 41 52 43 20 61 findnext( HARC a
1020: 72 63 2c 20 49 4e 44 49 56 49 44 55 41 4c 49 4e rc, INDIVIDUALIN
1030: 46 4f 2a 20 69 6e 66 20 29 0d 0a 7b 0d 0a 09 69 FO* inf )..{...i
1040: 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 f( not_loaded_ye
1050: 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 t )....if( !load
1060: 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 () ).....return
1070: 45 52 52 4f 52 5f 4e 4f 54 5f 53 55 50 50 4f 52 ERROR_NOT_SUPPOR
1080: 54 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f 46 6e T;.....if( !f_Fn
1090: 78 20 29 0d 0a 09 09 66 5f 46 6e 78 20 3d 20 67 x )....f_Fnx = g
10a0: 65 74 50 72 6f 63 28 20 22 46 69 6e 64 4e 65 78 etProc( "FindNex
10b0: 74 22 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 t" );.....typede
10c0: 66 20 69 6e 74 20 28 57 49 4e 41 50 49 20 2a 20 f int (WINAPI *
10d0: 43 41 52 43 5f 46 4e 58 29 28 48 41 52 43 2c 49 CARC_FNX)(HARC,I
10e0: 4e 44 49 56 49 44 55 41 4c 49 4e 46 4f 20 46 41 NDIVIDUALINFO FA
10f0: 52 20 2a 29 3b 0d 0a 09 72 65 74 75 72 6e 20 66 R *);...return f
1100: 5f 46 6e 78 20 3f 20 28 28 43 41 52 43 5f 46 4e _Fnx ? ((CARC_FN
1110: 58 29 66 5f 46 6e 78 29 28 20 61 72 63 2c 20 69 X)f_Fnx)( arc, i
1120: 6e 66 20 29 20 3a 20 45 52 52 4f 52 5f 4e 4f 54 nf ) : ERROR_NOT
1130: 5f 53 55 50 50 4f 52 54 3b 0d 0a 7d 0d 0a 0d 0a _SUPPORT;..}....
1140: 69 6e 74 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a int kiArcDLLRaw:
1150: 3a 67 65 74 41 74 74 72 28 20 48 41 52 43 20 61 :getAttr( HARC a
1160: 72 63 20 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f rc )..{...if( no
1170: 74 5f 6c 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a t_loaded_yet )..
1180: 09 09 69 66 28 20 21 6c 6f 61 64 28 29 20 29 0d ..if( !load() ).
1190: 0a 09 09 09 72 65 74 75 72 6e 20 45 52 52 4f 52 ....return ERROR
11a0: 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 3b 0d 0a 0d _NOT_SUPPORT;...
11b0: 0a 09 69 66 28 20 21 66 5f 47 41 72 20 29 0d 0a ..if( !f_GAr )..
11c0: 09 09 66 5f 47 41 72 20 3d 20 67 65 74 50 72 6f ..f_GAr = getPro
11d0: 63 28 20 22 47 65 74 41 74 74 72 69 62 75 74 65 c( "GetAttribute
11e0: 22 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 " );.....typedef
11f0: 20 69 6e 74 20 28 57 49 4e 41 50 49 20 2a 20 43 int (WINAPI * C
1200: 41 52 43 5f 47 41 52 29 28 48 41 52 43 29 3b 0d ARC_GAR)(HARC);.
1210: 0a 09 72 65 74 75 72 6e 20 66 5f 47 41 72 20 3f ..return f_GAr ?
1220: 20 28 28 43 41 52 43 5f 47 41 52 29 66 5f 47 41 ((CARC_GAR)f_GA
1230: 72 29 28 20 61 72 63 20 29 20 3a 20 30 3b 0d 0a r)( arc ) : 0;..
1240: 7d 0d 0a 0d 0a 42 4f 4f 4c 20 6b 69 41 72 63 44 }....BOOL kiArcD
1250: 4c 4c 52 61 77 3a 3a 73 65 74 4f 77 6e 65 72 28 LLRaw::setOwner(
1260: 20 48 57 4e 44 20 77 6e 64 20 29 0d 0a 7b 0d 0a HWND wnd )..{..
1270: 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f .if( not_loaded_
1280: 79 65 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f yet )....if( !lo
1290: 61 64 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 ad() ).....retur
12a0: 6e 20 45 52 52 4f 52 5f 4e 4f 54 5f 53 55 50 50 n ERROR_NOT_SUPP
12b0: 4f 52 54 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f ORT;.....if( !f_
12c0: 53 4f 77 20 29 0d 0a 09 09 66 5f 53 4f 77 20 3d SOw )....f_SOw =
12d0: 20 67 65 74 50 72 6f 63 28 20 22 53 65 74 4f 77 getProc( "SetOw
12e0: 6e 65 72 57 69 6e 64 6f 77 22 20 29 3b 0d 0a 0d nerWindow" );...
12f0: 0a 09 74 79 70 65 64 65 66 20 42 4f 4f 4c 20 28 ..typedef BOOL (
1300: 57 49 4e 41 50 49 20 2a 20 43 41 52 43 5f 53 4f WINAPI * CARC_SO
1310: 57 29 28 48 57 4e 44 29 3b 0d 0a 09 72 65 74 75 W)(HWND);...retu
1320: 72 6e 20 66 5f 53 4f 77 20 3f 20 28 28 43 41 52 rn f_SOw ? ((CAR
1330: 43 5f 53 4f 57 29 66 5f 53 4f 77 29 28 20 77 6e C_SOW)f_SOw)( wn
1340: 64 20 29 20 3a 20 46 41 4c 53 45 3b 0d 0a 7d 0d d ) : FALSE;..}.
1350: 0a 0d 0a 42 4f 4f 4c 20 6b 69 41 72 63 44 4c 4c ...BOOL kiArcDLL
1360: 52 61 77 3a 3a 63 6c 65 61 72 4f 77 6e 65 72 28 Raw::clearOwner(
1370: 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c )..{...if( not_l
1380: 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 oaded_yet )....i
1390: 66 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 f( !load() )....
13a0: 09 72 65 74 75 72 6e 20 45 52 52 4f 52 5f 4e 4f .return ERROR_NO
13b0: 54 5f 53 55 50 50 4f 52 54 3b 0d 0a 0d 0a 09 69 T_SUPPORT;.....i
13c0: 66 28 20 21 66 5f 43 4f 77 20 29 0d 0a 09 09 66 f( !f_COw )....f
13d0: 5f 43 4f 77 20 3d 20 67 65 74 50 72 6f 63 28 20 _COw = getProc(
13e0: 22 43 6c 65 61 72 4f 77 6e 65 72 57 69 6e 64 6f "ClearOwnerWindo
13f0: 77 22 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 w" );.....typede
1400: 66 20 42 4f 4f 4c 20 28 57 49 4e 41 50 49 20 2a f BOOL (WINAPI *
1410: 20 43 41 52 43 5f 43 4f 57 29 28 29 3b 0d 0a 09 CARC_COW)();...
1420: 72 65 74 75 72 6e 20 66 5f 43 4f 77 20 3f 20 28 return f_COw ? (
1430: 28 43 41 52 43 5f 43 4f 57 29 66 5f 43 4f 77 29 (CARC_COW)f_COw)
1440: 28 29 20 3a 20 46 41 4c 53 45 3b 0d 0a 7d 0d 0a () : FALSE;..}..
1450: 0d 0a ..