Artifact a43fef9c4a2d0569693eaf6de4275c3863c4e1c6:
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 23 69 6e 63 6c 75 64 65 20 22 2e 2e h"..#include "..
0080: 2f 6b 69 75 74 69 6c 2e 68 22 0d 0a 0d 0a 2f 2f /kiutil.h"....//
0090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00a0: 2d 2d 2d 2d 2d 2d 2d 2d 20 6c 6f 61 64 2f 75 6e -------- load/un
00b0: 6c 6f 61 64 20 90 a7 8c e4 20 2d 2d 2d 2d 2d 2d load .... ------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00d0: 2f 2f 0d 0a 0d 0a 0d 0a 6b 69 41 72 63 44 4c 4c //......kiArcDLL
00e0: 52 61 77 3a 3a 6b 69 41 72 63 44 4c 4c 52 61 77 Raw::kiArcDLLRaw
00f0: 28 20 63 6f 6e 73 74 20 63 68 61 72 2a 20 64 6c ( const char* dl
0100: 6c 6e 61 6d 65 20 29 0d 0a 09 3a 20 6d 5f 44 6c lname )...: m_Dl
0110: 6c 50 61 74 68 28 20 64 6c 6c 6e 61 6d 65 20 29 lPath( dllname )
0120: 2c 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 , not_loaded_yet
0130: 28 20 74 72 75 65 20 29 0d 0a 7b 0d 0a 09 6b 69 ( true )..{...ki
0140: 5f 6d 65 6d 7a 65 72 6f 28 20 6d 5f 50 72 6f 63 _memzero( m_Proc
0150: 2c 20 49 53 41 52 43 5f 46 55 4e 43 54 49 4f 4e , ISARC_FUNCTION
0160: 5f 45 4e 44 2a 73 69 7a 65 6f 66 28 46 41 52 50 _END*sizeof(FARP
0170: 52 4f 43 29 20 29 3b 0d 0a 09 66 5f 56 53 62 20 ROC) );...f_VSb
0180: 3d 20 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d 0a 6b 69 = NULL;..}....ki
0190: 41 72 63 44 4c 4c 52 61 77 3a 3a 7e 6b 69 41 72 ArcDLLRaw::~kiAr
01a0: 63 44 4c 4c 52 61 77 28 29 0d 0a 7b 0d 0a 09 75 cDLLRaw()..{...u
01b0: 6e 6c 6f 61 64 28 29 3b 0d 0a 7d 0d 0a 0d 0a 62 nload();..}....b
01c0: 6f 6f 6c 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a ool kiArcDLLRaw:
01d0: 3a 6c 6f 61 64 28 29 0d 0a 7b 0d 0a 09 6e 6f 74 :load()..{...not
01e0: 5f 6c 6f 61 64 65 64 5f 79 65 74 20 3d 20 66 61 _loaded_yet = fa
01f0: 6c 73 65 3b 0d 0a 0d 0a 09 6d 5f 68 44 4c 4c 20 lse;.....m_hDLL
0200: 3d 20 6b 69 75 74 69 6c 3a 3a 73 61 66 65 70 61 = kiutil::safepa
0210: 74 68 4c 6f 61 64 4c 69 62 72 61 72 79 28 20 6d thLoadLibrary( m
0220: 5f 44 6c 6c 50 61 74 68 20 29 3b 0d 0a 09 69 66 _DllPath );...if
0230: 28 20 21 6d 5f 68 44 4c 4c 20 29 0d 0a 09 09 72 ( !m_hDLL )....r
0240: 65 74 75 72 6e 20 66 61 6c 73 65 3b 0d 0a 0d 0a eturn false;....
0250: 09 2f 2f 20 44 4c 4c 82 cc 96 bc 91 4f 95 94 95 .// DLL.....O...
0260: aa 82 f0 90 d8 82 e8 8f 6f 82 b5 0d 0a 09 63 68 ........o.....ch
0270: 61 72 20 73 74 72 5b 4d 41 58 5f 50 41 54 48 5d ar str[MAX_PATH]
0280: 2c 20 2a 70 3b 0d 0a 09 63 6f 6e 73 74 20 63 68 , *p;...const ch
0290: 61 72 20 2a 78 2c 20 2a 79 2c 20 2a 7a 3b 0d 0a ar *x, *y, *z;..
02a0: 09 66 6f 72 28 20 78 3d 79 3d 6d 5f 44 6c 6c 50 .for( x=y=m_DllP
02b0: 61 74 68 3b 20 2a 78 21 3d 27 5c 30 27 3b 20 78 ath; *x!='\0'; x
02c0: 3d 6b 69 53 74 72 3a 3a 6e 65 78 74 28 78 29 20 =kiStr::next(x)
02d0: 29 0d 0a 09 09 69 66 28 20 2a 78 3d 3d 27 5c 5c )....if( *x=='\\
02e0: 27 20 7c 7c 20 2a 78 3d 3d 27 2f 27 20 29 0d 0a ' || *x=='/' )..
02f0: 09 09 09 79 20 3d 20 78 20 2b 20 31 3b 0d 0a 09 ...y = x + 1;...
0300: 66 6f 72 28 20 70 3d 73 74 72 2c 20 7a 3d 79 3b for( p=str, z=y;
0310: 20 28 2a 7a 21 3d 27 2e 27 20 26 26 20 2a 7a 21 (*z!='.' && *z!
0320: 3d 27 33 27 20 26 26 20 2a 7a 21 3d 27 5c 30 27 ='3' && *z!='\0'
0330: 29 3b 20 70 2b 2b 2c 20 7a 2b 2b 20 29 0d 0a 09 ); p++, z++ )...
0340: 09 2a 70 20 3d 20 2a 7a 3b 0d 0a 09 2a 70 20 3d .*p = *z;...*p =
0350: 20 27 5c 30 27 3b 0d 0a 0d 0a 09 2f 2f 20 83 52 '\0';.....// .R
0360: 83 7d 83 93 83 68 91 97 82 e8 41 50 49 82 f0 8e .}...h....API...
0370: e6 93 be 81 42 63 63 82 c5 8e 6e 82 dc 82 e9 41 ....Bcc...n....A
0380: 50 49 96 bc 82 a9 82 e0 3f 0d 0a 09 66 5f 43 6d PI......?...f_Cm
0390: 64 20 3d 20 3a 3a 47 65 74 50 72 6f 63 41 64 64 d = ::GetProcAdd
03a0: 72 65 73 73 28 20 6d 5f 68 44 4c 4c 2c 20 73 74 ress( m_hDLL, st
03b0: 72 20 29 3b 0d 0a 09 69 66 28 20 66 5f 43 6d 64 r );...if( f_Cmd
03c0: 20 29 0d 0a 09 09 6d 5f 44 6c 6c 4e 61 6d 65 42 )....m_DllNameB
03d0: 6f 64 79 20 3d 20 73 74 72 3b 0d 0a 09 65 6c 73 ody = str;...els
03e0: 65 0d 0a 09 7b 0d 0a 09 09 66 5f 43 6d 64 20 3d e...{....f_Cmd =
03f0: 20 3a 3a 47 65 74 50 72 6f 63 41 64 64 72 65 73 ::GetProcAddres
0400: 73 28 20 6d 5f 68 44 4c 4c 2c 20 22 63 63 43 6f s( m_hDLL, "ccCo
0410: 6d 6d 61 6e 64 22 20 29 3b 0d 0a 09 09 69 66 28 mmand" );....if(
0420: 20 66 5f 43 6d 64 20 29 0d 0a 09 09 09 6d 5f 44 f_Cmd ).....m_D
0430: 6c 6c 4e 61 6d 65 42 6f 64 79 20 3d 20 22 63 63 llNameBody = "cc
0440: 22 3b 0d 0a 09 09 65 6c 73 65 0d 0a 09 09 7b 0d ";....else....{.
0450: 0a 09 09 09 69 66 28 20 73 74 72 5b 30 5d 3d 3d ....if( str[0]==
0460: 27 37 27 20 26 26 20 28 66 5f 43 6d 64 3d 3a 3a '7' && (f_Cmd=::
0470: 47 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 6d GetProcAddress(m
0480: 5f 68 44 4c 4c 2c 22 53 65 76 65 6e 5a 69 70 22 _hDLL,"SevenZip"
0490: 29 29 20 29 0d 0a 09 09 09 09 6d 5f 44 6c 6c 4e )) )......m_DllN
04a0: 61 6d 65 42 6f 64 79 20 3d 20 22 53 65 76 65 6e ameBody = "Seven
04b0: 5a 69 70 22 3b 0d 0a 09 09 09 65 6c 73 65 0d 0a Zip";.....else..
04c0: 09 09 09 09 72 65 74 75 72 6e 20 66 61 6c 73 65 ....return false
04d0: 3b 0d 0a 09 09 7d 0d 0a 09 7d 0d 0a 0d 0a 09 72 ;....}...}.....r
04e0: 65 74 75 72 6e 20 74 72 75 65 3b 0d 0a 7d 0d 0a eturn true;..}..
04f0: 0d 0a 76 6f 69 64 20 6b 69 41 72 63 44 4c 4c 52 ..void kiArcDLLR
0500: 61 77 3a 3a 75 6e 6c 6f 61 64 28 29 0d 0a 7b 0d aw::unload()..{.
0510: 0a 09 69 66 28 20 21 6e 6f 74 5f 6c 6f 61 64 65 ..if( !not_loade
0520: 64 5f 79 65 74 20 26 26 20 6d 5f 68 44 4c 4c 20 d_yet && m_hDLL
0530: 29 0d 0a 09 7b 0d 0a 09 09 6b 69 5f 6d 65 6d 7a )...{....ki_memz
0540: 65 72 6f 28 20 6d 5f 50 72 6f 63 2c 20 49 53 41 ero( m_Proc, ISA
0550: 52 43 5f 46 55 4e 43 54 49 4f 4e 5f 45 4e 44 2a RC_FUNCTION_END*
0560: 73 69 7a 65 6f 66 28 46 41 52 50 52 4f 43 29 20 sizeof(FARPROC)
0570: 29 3b 0d 0a 09 09 3a 3a 46 72 65 65 4c 69 62 72 );....::FreeLibr
0580: 61 72 79 28 20 6d 5f 68 44 4c 4c 20 29 3b 0d 0a ary( m_hDLL );..
0590: 09 09 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 ..not_loaded_yet
05a0: 20 3d 20 74 72 75 65 3b 0d 0a 09 7d 0d 0a 7d 0d = true;...}..}.
05b0: 0a 0d 0a 62 6f 6f 6c 20 6b 69 41 72 63 44 4c 4c ...bool kiArcDLL
05c0: 52 61 77 3a 3a 69 73 41 6c 69 76 65 28 29 0d 0a Raw::isAlive()..
05d0: 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 {...if( not_load
05e0: 65 64 5f 79 65 74 20 29 0d 0a 09 09 6c 6f 61 64 ed_yet )....load
05f0: 28 29 3b 0d 0a 0d 0a 09 72 65 74 75 72 6e 20 28 ();.....return (
0600: 6d 5f 68 44 4c 4c 20 21 3d 20 4e 55 4c 4c 29 3b m_hDLL != NULL);
0610: 0d 0a 7d 0d 0a 0d 0a 46 41 52 50 52 4f 43 20 6b ..}....FARPROC k
0620: 69 41 72 63 44 4c 4c 52 61 77 3a 3a 67 65 74 50 iArcDLLRaw::getP
0630: 72 6f 63 28 20 63 6f 6e 73 74 20 63 68 61 72 2a roc( const char*
0640: 20 70 72 6f 63 6e 61 6d 65 20 29 0d 0a 7b 0d 0a procname )..{..
0650: 09 6b 69 53 74 72 20 66 75 6e 63 4e 61 6d 65 20 .kiStr funcName
0660: 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 2a 29 6d = (const char*)m
0670: 5f 44 6c 6c 4e 61 6d 65 42 6f 64 79 3b 0d 0a 09 _DllNameBody;...
0680: 66 75 6e 63 4e 61 6d 65 20 2b 3d 20 70 72 6f 63 funcName += proc
0690: 6e 61 6d 65 3b 0d 0a 09 72 65 74 75 72 6e 20 3a name;...return :
06a0: 3a 47 65 74 50 72 6f 63 41 64 64 72 65 73 73 28 :GetProcAddress(
06b0: 20 6d 5f 68 44 4c 4c 2c 20 66 75 6e 63 4e 61 6d m_hDLL, funcNam
06c0: 65 20 29 3b 0d 0a 7d 0d 0a 0d 0a 2f 2f 2d 2d 2d e );..}....//---
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 41 50 49 82 cc ---------- API..
06f0: 83 89 83 62 83 70 8c 51 20 2d 2d 2d 2d 2d 2d 2d ...b.p.Q -------
0700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0710: 2d 2d 2d 2f 2f 0d 0a 0d 0a 0d 0a 69 6e 74 20 6b ---//......int k
0720: 69 41 72 63 44 4c 4c 52 61 77 3a 3a 63 6f 6d 6d iArcDLLRaw::comm
0730: 61 6e 64 28 20 63 6f 6e 73 74 20 48 57 4e 44 20 and( const HWND
0740: 77 6e 64 2c 20 4c 50 43 53 54 52 20 63 6d 64 2c wnd, LPCSTR cmd,
0750: 20 4c 50 53 54 52 20 62 75 66 2c 20 63 6f 6e 73 LPSTR buf, cons
0760: 74 20 44 57 4f 52 44 20 73 69 7a 20 29 0d 0a 7b t DWORD siz )..{
0770: 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 ...if( not_loade
0780: 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 28 20 21 d_yet )....if( !
0790: 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 72 65 74 load() ).....ret
07a0: 75 72 6e 20 45 52 52 4f 52 5f 4e 4f 54 5f 53 55 urn ERROR_NOT_SU
07b0: 50 50 4f 52 54 3b 0d 0a 0d 0a 09 2f 2f 20 83 52 PPORT;.....// .R
07c0: 83 7d 83 93 83 68 8a d6 90 94 82 cd 95 4b 82 b8 .}...h.......K..
07d0: 83 8d 81 5b 83 68 82 b3 82 ea 82 c4 82 a2 82 e9 ...[.h..........
07e0: 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 69 6e 74 .....typedef int
07f0: 20 28 57 49 4e 41 50 49 20 2a 20 43 41 52 43 5f (WINAPI * CARC_
0800: 43 4d 44 29 28 63 6f 6e 73 74 20 48 57 4e 44 2c CMD)(const HWND,
0810: 63 6f 6e 73 74 20 63 68 61 72 2a 2c 63 68 61 72 const char*,char
0820: 2a 2c 63 6f 6e 73 74 20 44 57 4f 52 44 29 3b 0d *,const DWORD);.
0830: 0a 09 72 65 74 75 72 6e 20 28 28 43 41 52 43 5f ..return ((CARC_
0840: 43 4d 44 29 66 5f 43 6d 64 29 28 20 77 6e 64 2c CMD)f_Cmd)( wnd,
0850: 20 63 6d 64 2c 20 62 75 66 2c 20 73 69 7a 20 29 cmd, buf, siz )
0860: 3b 0d 0a 7d 0d 0a 0d 0a 57 4f 52 44 20 6b 69 41 ;..}....WORD kiA
0870: 72 63 44 4c 4c 52 61 77 3a 3a 67 65 74 56 65 72 rcDLLRaw::getVer
0880: 28 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f ()..{...if( not_
0890: 6c 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 loaded_yet )....
08a0: 69 66 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 if( !load() )...
08b0: 09 09 72 65 74 75 72 6e 20 30 3b 0d 0a 0d 0a 09 ..return 0;.....
08c0: 69 66 28 20 21 66 5f 56 65 72 20 29 0d 0a 09 09 if( !f_Ver )....
08d0: 66 5f 56 65 72 20 3d 20 67 65 74 50 72 6f 63 28 f_Ver = getProc(
08e0: 20 22 47 65 74 56 65 72 73 69 6f 6e 22 20 29 3b "GetVersion" );
08f0: 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 57 4f 52 .....typedef WOR
0900: 44 20 28 57 49 4e 41 50 49 20 2a 20 43 41 52 43 D (WINAPI * CARC
0910: 5f 56 45 52 29 28 76 6f 69 64 29 3b 0d 0a 09 72 _VER)(void);...r
0920: 65 74 75 72 6e 20 66 5f 56 65 72 20 3f 20 28 28 eturn f_Ver ? ((
0930: 43 41 52 43 5f 56 45 52 29 66 5f 56 65 72 29 28 CARC_VER)f_Ver)(
0940: 29 20 3a 20 30 3b 0d 0a 7d 0d 0a 0d 0a 57 4f 52 ) : 0;..}....WOR
0950: 44 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 67 D kiArcDLLRaw::g
0960: 65 74 56 65 72 53 75 62 28 29 0d 0a 7b 0d 0a 09 etVerSub()..{...
0970: 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 if( not_loaded_y
0980: 65 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 et )....if( !loa
0990: 64 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e d() ).....return
09a0: 20 30 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f 56 0;.....if( !f_V
09b0: 53 62 20 29 0d 0a 09 09 66 5f 56 53 62 20 3d 20 Sb )....f_VSb =
09c0: 67 65 74 50 72 6f 63 28 20 22 47 65 74 53 75 62 getProc( "GetSub
09d0: 56 65 72 73 69 6f 6e 22 20 29 3b 0d 0a 0d 0a 09 Version" );.....
09e0: 74 79 70 65 64 65 66 20 57 4f 52 44 20 28 57 49 typedef WORD (WI
09f0: 4e 41 50 49 20 2a 20 43 41 52 43 5f 56 45 52 29 NAPI * CARC_VER)
0a00: 28 76 6f 69 64 29 3b 0d 0a 09 72 65 74 75 72 6e (void);...return
0a10: 20 66 5f 56 53 62 20 3f 20 28 28 43 41 52 43 5f f_VSb ? ((CARC_
0a20: 56 45 52 29 66 5f 56 53 62 29 28 29 20 3a 20 30 VER)f_VSb)() : 0
0a30: 3b 0d 0a 7d 0d 0a 0d 0a 62 6f 6f 6c 20 6b 69 41 ;..}....bool kiA
0a40: 72 63 44 4c 4c 52 61 77 3a 3a 69 73 56 65 72 53 rcDLLRaw::isVerS
0a50: 75 62 41 76 61 69 6c 28 29 0d 0a 7b 0d 0a 09 69 ubAvail()..{...i
0a60: 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 f( not_loaded_ye
0a70: 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 t )....if( !load
0a80: 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 () ).....return
0a90: 30 3b 0d 0a 09 69 66 28 20 21 66 5f 56 53 62 20 0;...if( !f_VSb
0aa0: 29 0d 0a 09 09 66 5f 56 53 62 20 3d 20 67 65 74 )....f_VSb = get
0ab0: 50 72 6f 63 28 20 22 47 65 74 53 75 62 56 65 72 Proc( "GetSubVer
0ac0: 73 69 6f 6e 22 20 29 3b 0d 0a 09 72 65 74 75 72 sion" );...retur
0ad0: 6e 20 66 5f 56 53 62 20 21 3d 20 30 3b 0d 0a 7d n f_VSb != 0;..}
0ae0: 0d 0a 0d 0a 42 4f 4f 4c 20 6b 69 41 72 63 44 4c ....BOOL kiArcDL
0af0: 4c 52 61 77 3a 3a 63 68 65 63 6b 28 20 4c 50 43 LRaw::check( LPC
0b00: 53 54 52 20 66 69 6c 65 6e 61 6d 65 2c 20 63 6f STR filename, co
0b10: 6e 73 74 20 69 6e 74 20 6d 6f 64 65 20 29 0d 0a nst int mode )..
0b20: 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 {...if( not_load
0b30: 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 28 20 ed_yet )....if(
0b40: 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 72 65 !load() ).....re
0b50: 74 75 72 6e 20 46 41 4c 53 45 3b 0d 0a 0d 0a 09 turn FALSE;.....
0b60: 69 66 28 20 21 66 5f 43 68 6b 20 29 0d 0a 09 09 if( !f_Chk )....
0b70: 66 5f 43 68 6b 20 3d 20 67 65 74 50 72 6f 63 28 f_Chk = getProc(
0b80: 20 22 43 68 65 63 6b 41 72 63 68 69 76 65 22 20 "CheckArchive"
0b90: 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 42 );.....typedef B
0ba0: 4f 4f 4c 20 28 57 49 4e 41 50 49 20 2a 20 43 41 OOL (WINAPI * CA
0bb0: 52 43 5f 43 48 4b 29 28 63 6f 6e 73 74 20 63 68 RC_CHK)(const ch
0bc0: 61 72 2a 2c 63 6f 6e 73 74 20 69 6e 74 29 3b 0d ar*,const int);.
0bd0: 0a 09 72 65 74 75 72 6e 20 66 5f 43 68 6b 20 3f ..return f_Chk ?
0be0: 20 28 28 43 41 52 43 5f 43 48 4b 29 66 5f 43 68 ((CARC_CHK)f_Ch
0bf0: 6b 29 28 20 66 69 6c 65 6e 61 6d 65 2c 20 6d 6f k)( filename, mo
0c00: 64 65 20 29 20 3a 20 46 41 4c 53 45 3b 0d 0a 7d de ) : FALSE;..}
0c10: 0d 0a 0d 0a 48 41 52 43 20 6b 69 41 72 63 44 4c ....HARC kiArcDL
0c20: 4c 52 61 77 3a 3a 6f 70 65 6e 41 72 63 28 20 63 LRaw::openArc( c
0c30: 6f 6e 73 74 20 48 57 4e 44 20 77 6e 64 2c 20 4c onst HWND wnd, L
0c40: 50 43 53 54 52 20 61 72 63 6e 61 6d 65 2c 20 63 PCSTR arcname, c
0c50: 6f 6e 73 74 20 44 57 4f 52 44 20 66 6c 61 67 20 onst DWORD flag
0c60: 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c )..{...if( not_l
0c70: 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 oaded_yet )....i
0c80: 66 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 f( !load() )....
0c90: 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0d 0a 0d .return NULL;...
0ca0: 0a 09 69 66 28 20 21 66 5f 4f 70 6e 20 29 0d 0a ..if( !f_Opn )..
0cb0: 09 09 66 5f 4f 70 6e 20 3d 20 67 65 74 50 72 6f ..f_Opn = getPro
0cc0: 63 28 20 22 4f 70 65 6e 41 72 63 68 69 76 65 22 c( "OpenArchive"
0cd0: 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 20 );.....typedef
0ce0: 48 41 52 43 20 28 57 49 4e 41 50 49 20 2a 20 43 HARC (WINAPI * C
0cf0: 41 52 43 5f 4f 50 4e 29 28 63 6f 6e 73 74 20 48 ARC_OPN)(const H
0d00: 57 4e 44 2c 4c 50 43 53 54 52 2c 63 6f 6e 73 74 WND,LPCSTR,const
0d10: 20 44 57 4f 52 44 29 3b 0d 0a 09 72 65 74 75 72 DWORD);...retur
0d20: 6e 20 66 5f 4f 70 6e 20 3f 20 28 28 43 41 52 43 n f_Opn ? ((CARC
0d30: 5f 4f 50 4e 29 66 5f 4f 70 6e 29 28 20 77 6e 64 _OPN)f_Opn)( wnd
0d40: 2c 20 61 72 63 6e 61 6d 65 2c 20 66 6c 61 67 20 , arcname, flag
0d50: 29 20 3a 20 4e 55 4c 4c 3b 0d 0a 7d 0d 0a 0d 0a ) : NULL;..}....
0d60: 76 6f 69 64 20 6b 69 41 72 63 44 4c 4c 52 61 77 void kiArcDLLRaw
0d70: 3a 3a 63 6c 6f 73 65 41 72 63 28 20 48 41 52 43 ::closeArc( HARC
0d80: 20 61 72 63 20 29 0d 0a 7b 0d 0a 09 69 66 28 20 arc )..{...if(
0d90: 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 20 29 not_loaded_yet )
0da0: 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 28 29 20 ....if( !load()
0db0: 29 0d 0a 09 09 09 72 65 74 75 72 6e 3b 0d 0a 0d ).....return;...
0dc0: 0a 09 69 66 28 20 21 66 5f 43 6c 73 20 29 0d 0a ..if( !f_Cls )..
0dd0: 09 09 66 5f 43 6c 73 20 3d 20 67 65 74 50 72 6f ..f_Cls = getPro
0de0: 63 28 20 22 43 6c 6f 73 65 41 72 63 68 69 76 65 c( "CloseArchive
0df0: 22 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 " );.....typedef
0e00: 20 69 6e 74 20 28 57 49 4e 41 50 49 20 2a 20 43 int (WINAPI * C
0e10: 41 52 43 5f 43 4c 53 29 28 48 41 52 43 29 3b 0d ARC_CLS)(HARC);.
0e20: 0a 09 69 66 28 20 66 5f 43 6c 73 20 29 0d 0a 09 ..if( f_Cls )...
0e30: 09 28 28 43 41 52 43 5f 43 4c 53 29 66 5f 43 6c .((CARC_CLS)f_Cl
0e40: 73 29 28 20 61 72 63 20 29 3b 0d 0a 7d 0d 0a 0d s)( arc );..}...
0e50: 0a 69 6e 74 20 6b 69 41 72 63 44 4c 4c 52 61 77 .int kiArcDLLRaw
0e60: 3a 3a 66 69 6e 64 66 69 72 73 74 28 20 48 41 52 ::findfirst( HAR
0e70: 43 20 61 72 63 2c 20 4c 50 43 53 54 52 20 77 69 C arc, LPCSTR wi
0e80: 6c 64 6e 61 6d 65 2c 20 49 4e 44 49 56 49 44 55 ldname, INDIVIDU
0e90: 41 4c 49 4e 46 4f 2a 20 69 6e 66 20 29 0d 0a 7b ALINFO* inf )..{
0ea0: 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 ...if( not_loade
0eb0: 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 28 20 21 d_yet )....if( !
0ec0: 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 72 65 74 load() ).....ret
0ed0: 75 72 6e 20 45 52 52 4f 52 5f 4e 4f 54 5f 53 55 urn ERROR_NOT_SU
0ee0: 50 50 4f 52 54 3b 0d 0a 0d 0a 09 69 66 28 20 21 PPORT;.....if( !
0ef0: 66 5f 46 66 73 20 29 0d 0a 09 09 66 5f 46 66 73 f_Ffs )....f_Ffs
0f00: 20 3d 20 67 65 74 50 72 6f 63 28 20 22 46 69 6e = getProc( "Fin
0f10: 64 46 69 72 73 74 22 20 29 3b 0d 0a 0d 0a 09 74 dFirst" );.....t
0f20: 79 70 65 64 65 66 20 69 6e 74 20 28 57 49 4e 41 ypedef int (WINA
0f30: 50 49 20 2a 20 43 41 52 43 5f 46 46 53 29 28 48 PI * CARC_FFS)(H
0f40: 41 52 43 2c 4c 50 43 53 54 52 2c 49 4e 44 49 56 ARC,LPCSTR,INDIV
0f50: 49 44 55 41 4c 49 4e 46 4f 20 46 41 52 20 2a 29 IDUALINFO FAR *)
0f60: 3b 0d 0a 09 72 65 74 75 72 6e 20 66 5f 46 66 73 ;...return f_Ffs
0f70: 20 3f 20 28 28 43 41 52 43 5f 46 46 53 29 66 5f ? ((CARC_FFS)f_
0f80: 46 66 73 29 28 20 61 72 63 2c 20 77 69 6c 64 6e Ffs)( arc, wildn
0f90: 61 6d 65 2c 20 69 6e 66 20 29 20 3a 20 45 52 52 ame, inf ) : ERR
0fa0: 4f 52 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 3b 0d OR_NOT_SUPPORT;.
0fb0: 0a 7d 0d 0a 0d 0a 69 6e 74 20 6b 69 41 72 63 44 .}....int kiArcD
0fc0: 4c 4c 52 61 77 3a 3a 66 69 6e 64 6e 65 78 74 28 LLRaw::findnext(
0fd0: 20 48 41 52 43 20 61 72 63 2c 20 49 4e 44 49 56 HARC arc, INDIV
0fe0: 49 44 55 41 4c 49 4e 46 4f 2a 20 69 6e 66 20 29 IDUALINFO* inf )
0ff0: 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f 6c 6f ..{...if( not_lo
1000: 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 69 66 aded_yet )....if
1010: 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 09 09 ( !load() ).....
1020: 72 65 74 75 72 6e 20 45 52 52 4f 52 5f 4e 4f 54 return ERROR_NOT
1030: 5f 53 55 50 50 4f 52 54 3b 0d 0a 0d 0a 09 69 66 _SUPPORT;.....if
1040: 28 20 21 66 5f 46 6e 78 20 29 0d 0a 09 09 66 5f ( !f_Fnx )....f_
1050: 46 6e 78 20 3d 20 67 65 74 50 72 6f 63 28 20 22 Fnx = getProc( "
1060: 46 69 6e 64 4e 65 78 74 22 20 29 3b 0d 0a 0d 0a FindNext" );....
1070: 09 74 79 70 65 64 65 66 20 69 6e 74 20 28 57 49 .typedef int (WI
1080: 4e 41 50 49 20 2a 20 43 41 52 43 5f 46 4e 58 29 NAPI * CARC_FNX)
1090: 28 48 41 52 43 2c 49 4e 44 49 56 49 44 55 41 4c (HARC,INDIVIDUAL
10a0: 49 4e 46 4f 20 46 41 52 20 2a 29 3b 0d 0a 09 72 INFO FAR *);...r
10b0: 65 74 75 72 6e 20 66 5f 46 6e 78 20 3f 20 28 28 eturn f_Fnx ? ((
10c0: 43 41 52 43 5f 46 4e 58 29 66 5f 46 6e 78 29 28 CARC_FNX)f_Fnx)(
10d0: 20 61 72 63 2c 20 69 6e 66 20 29 20 3a 20 45 52 arc, inf ) : ER
10e0: 52 4f 52 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 3b ROR_NOT_SUPPORT;
10f0: 0d 0a 7d 0d 0a 0d 0a 69 6e 74 20 6b 69 41 72 63 ..}....int kiArc
1100: 44 4c 4c 52 61 77 3a 3a 67 65 74 41 74 74 72 28 DLLRaw::getAttr(
1110: 20 48 41 52 43 20 61 72 63 20 29 0d 0a 7b 0d 0a HARC arc )..{..
1120: 09 69 66 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f .if( not_loaded_
1130: 79 65 74 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f yet )....if( !lo
1140: 61 64 28 29 20 29 0d 0a 09 09 09 72 65 74 75 72 ad() ).....retur
1150: 6e 20 45 52 52 4f 52 5f 4e 4f 54 5f 53 55 50 50 n ERROR_NOT_SUPP
1160: 4f 52 54 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f ORT;.....if( !f_
1170: 47 41 72 20 29 0d 0a 09 09 66 5f 47 41 72 20 3d GAr )....f_GAr =
1180: 20 67 65 74 50 72 6f 63 28 20 22 47 65 74 41 74 getProc( "GetAt
1190: 74 72 69 62 75 74 65 22 20 29 3b 0d 0a 0d 0a 09 tribute" );.....
11a0: 74 79 70 65 64 65 66 20 69 6e 74 20 28 57 49 4e typedef int (WIN
11b0: 41 50 49 20 2a 20 43 41 52 43 5f 47 41 52 29 28 API * CARC_GAR)(
11c0: 48 41 52 43 29 3b 0d 0a 09 72 65 74 75 72 6e 20 HARC);...return
11d0: 66 5f 47 41 72 20 3f 20 28 28 43 41 52 43 5f 47 f_GAr ? ((CARC_G
11e0: 41 52 29 66 5f 47 41 72 29 28 20 61 72 63 20 29 AR)f_GAr)( arc )
11f0: 20 3a 20 30 3b 0d 0a 7d 0d 0a 0d 0a 42 4f 4f 4c : 0;..}....BOOL
1200: 20 6b 69 41 72 63 44 4c 4c 52 61 77 3a 3a 73 65 kiArcDLLRaw::se
1210: 74 4f 77 6e 65 72 28 20 48 57 4e 44 20 77 6e 64 tOwner( HWND wnd
1220: 20 29 0d 0a 7b 0d 0a 09 69 66 28 20 6e 6f 74 5f )..{...if( not_
1230: 6c 6f 61 64 65 64 5f 79 65 74 20 29 0d 0a 09 09 loaded_yet )....
1240: 69 66 28 20 21 6c 6f 61 64 28 29 20 29 0d 0a 09 if( !load() )...
1250: 09 09 72 65 74 75 72 6e 20 45 52 52 4f 52 5f 4e ..return ERROR_N
1260: 4f 54 5f 53 55 50 50 4f 52 54 3b 0d 0a 0d 0a 09 OT_SUPPORT;.....
1270: 69 66 28 20 21 66 5f 53 4f 77 20 29 0d 0a 09 09 if( !f_SOw )....
1280: 66 5f 53 4f 77 20 3d 20 67 65 74 50 72 6f 63 28 f_SOw = getProc(
1290: 20 22 53 65 74 4f 77 6e 65 72 57 69 6e 64 6f 77 "SetOwnerWindow
12a0: 22 20 29 3b 0d 0a 0d 0a 09 74 79 70 65 64 65 66 " );.....typedef
12b0: 20 42 4f 4f 4c 20 28 57 49 4e 41 50 49 20 2a 20 BOOL (WINAPI *
12c0: 43 41 52 43 5f 53 4f 57 29 28 48 57 4e 44 29 3b CARC_SOW)(HWND);
12d0: 0d 0a 09 72 65 74 75 72 6e 20 66 5f 53 4f 77 20 ...return f_SOw
12e0: 3f 20 28 28 43 41 52 43 5f 53 4f 57 29 66 5f 53 ? ((CARC_SOW)f_S
12f0: 4f 77 29 28 20 77 6e 64 20 29 20 3a 20 46 41 4c Ow)( wnd ) : FAL
1300: 53 45 3b 0d 0a 7d 0d 0a 0d 0a 42 4f 4f 4c 20 6b SE;..}....BOOL k
1310: 69 41 72 63 44 4c 4c 52 61 77 3a 3a 63 6c 65 61 iArcDLLRaw::clea
1320: 72 4f 77 6e 65 72 28 29 0d 0a 7b 0d 0a 09 69 66 rOwner()..{...if
1330: 28 20 6e 6f 74 5f 6c 6f 61 64 65 64 5f 79 65 74 ( not_loaded_yet
1340: 20 29 0d 0a 09 09 69 66 28 20 21 6c 6f 61 64 28 )....if( !load(
1350: 29 20 29 0d 0a 09 09 09 72 65 74 75 72 6e 20 45 ) ).....return E
1360: 52 52 4f 52 5f 4e 4f 54 5f 53 55 50 50 4f 52 54 RROR_NOT_SUPPORT
1370: 3b 0d 0a 0d 0a 09 69 66 28 20 21 66 5f 43 4f 77 ;.....if( !f_COw
1380: 20 29 0d 0a 09 09 66 5f 43 4f 77 20 3d 20 67 65 )....f_COw = ge
1390: 74 50 72 6f 63 28 20 22 43 6c 65 61 72 4f 77 6e tProc( "ClearOwn
13a0: 65 72 57 69 6e 64 6f 77 22 20 29 3b 0d 0a 0d 0a erWindow" );....
13b0: 09 74 79 70 65 64 65 66 20 42 4f 4f 4c 20 28 57 .typedef BOOL (W
13c0: 49 4e 41 50 49 20 2a 20 43 41 52 43 5f 43 4f 57 INAPI * CARC_COW
13d0: 29 28 29 3b 0d 0a 09 72 65 74 75 72 6e 20 66 5f )();...return f_
13e0: 43 4f 77 20 3f 20 28 28 43 41 52 43 5f 43 4f 57 COw ? ((CARC_COW
13f0: 29 66 5f 43 4f 77 29 28 29 20 3a 20 46 41 4c 53 )f_COw)() : FALS
1400: 45 3b 0d 0a 7d 0d 0a 0d 0a E;..}....