CD001 WCBS_V40A BB"i 1 EASY CD CREATOR 4.2 (310) COPYRIGHT (C) 1996-2000 ADAPTEC, INC. 2008121318351700200812131835170000000000000000000000000000000000CD001WCBS_V4.0ABB%/E"..i 1EASY CD CREATOR 4.2 (310) COPYRIGHT (C) 1996-2000 ADAPTEC, INC.2008121318351700200812131835170000000000000000000000000000000000CD001HOTKEY~1 PJCTRL~1.03SUPRLINKVBS WCBS"WCBSPRO $WCBS_V~1.0A-%SOURCE&UTILS' ANIMAT~1( COMPON~1) HELPFILE* HKREST~1+ SETUP, BIN- RESOUR~1HOTKEY~1 PJCTRL~1.03SUPRLINKVBS WCBS"WCBSPRO $WCBS_V~1.0A-%SOURCE&UTILS' ANIMAT~1( COMPON~1) HELPFILE* HKREST~1+ SETUP, BIN- RESOUR~1./Hotkeys1510PJCtrl2 Ver2.031SUPRLINK4VBS7wcbs9wcbspro";WCBS_V3.0A-SINGLE <Source =Utils> Animations? Components@ HelpfileA HKRestart B SetupC BinD Resources./Hotkeys1510PJCtrl2 Ver2.031SUPRLINK4VBS7wcbs9wcbspro";WCBS_V3.0A-SINGLE <Source =Utils> Animations? Components@ HelpfileA HKRestart B SetupC BinD Resources"i 1"i 1.O--Ol)& AUTORUN.INF;10>>c,,cl BES_13~1.ZIP;1,P--P0##0l). DATA.CAB;1.==Ĺl $ FIXCPU.ZIP;1.~~^^f8 HEXEDIT.ZIP;1*j1 HOTKEY~10!!g0HOTKEY~1.ZIP;1011d 1INSTMSIA.EXE;1044JJd 1*INSTMSIW.EXE;1,j  PJCTRL~1.030i PL-230~1.EXE;10((̛k ,PL-230~2.EXE;1.EEf  PORTM98.ZIP;1,77d  SETUP.EXE;1,77l)$ SETUP.INI;1*l/SUPRLINK$l. VBS0>>ffl  ,VBS-SU~1.PDF;106??6aYYal  & VBS-SU~2.PDF;1& j  WCBS,  j" WCBS.HKD;10??DDl - WCBS-F~1.PDF;10R@@RVVl  92WCBS-H~1.PDF;10d?""?dl WCBS-I~1.PDF;1(""j WCBSPRO.$$j % WCBS_V~1.0A-077..l)0WORSHI~1.MSI;1"j1 "i 1.ddc HKSETUP.EXE;1.ppc, HOTKEYS.INF;1.c  README.TXT;1(%%j1 SOURCE&&&j1 UTILS"j "i 10  j INSTFO~1.EXE;10DDUUj%$PJCTRL~1.PDF;1"l/"i 10Z$$Z*dd*_ *(ANIMEDIT.SLF;1.g$$g^ 0 AVIPANEL.PG;1,j$$j `   BALL.GIF;10l$$lb.BGBRICKS.BMP;10o$$oVVb,BGTXTURE.BMP;1,r$$rvv^  BIRD.BMP;10$$vv` -BIRDLEFT.BMP;1.$$` CARDSORT.OB;1.$$WW` CARDSORT.PG;10$$++`CARDSORT.WIZ;1.$$:EE:^ CDPANEL.OB;1.$$TT^  58 CDPANEL.SLF;1,$$vv_  DICE.BMP;1*((lla ' DIO.DLL;1*$$vv^ ( DOG.BMP;1.$$vv` -* DOGLEFT.BMP;1,$$v  v` %6 FACE.BMP;1,%%^   FORMBR.PG;1.%%D D^  FORMFAX.PG;1.%%;;^   FORMMEMO.PG;1,%%> >^  ( FORMPD.PG;1,%%ZZ^  FORMS.WIZ;1,%%^ 8 INFO1.OB;1,%%[ [^ : MEDIA.WIZ;1.%%II] PCDLIB.DLL;1.D%%D((^  6 PHOTOCD.SLF;1,J%%J44^  ) QUIZ.WIZ;1.L%%L^  )  QUIZEND.PG;1,M%%M^  )( QUIZMC.PG;1.P%%Pb  README.TXT;1.Q%%Q^  6 SAMANIM.SLF;10S%%Saa^  6SAMAUDIO.SLF;1.V%%V^  6$ SAMCALC.SLF;10Z%%Z_ 7SAMCDAUD.SLF;10\%%\ ^  62SAMCHECK.SLF;1.^%%^ ` 9 SAMDICE.SLF;1.`%%` f  SAMDLL.SLF;1.b%%b?$$?^  7 SAMDRAW.SLF;1.g%%g^  7  SAMEXEC.SLF;10h%%h_  /,SAMHYPER.SLF;10k%%k88^  7SAMINTRO.SLF;1.l%%l^  4 SAMLIST.SLF;10n%%n^  5 SAMMOVIE.SLF;10p%%p  ^  74SAMOVLAY.SLF;1,s%%s^- SAMPDLL.C;1.t%%t@ @] SAMPDLL.DLL;10v%%vb SAMPGIFA.SLF;1.z%%z^  7: SAMPKEY.SLF;1.|%%|##^% SAMPLE.BMP;1.%%] 6 SAMPLES.LAP;10%%l l^  8SAMPROSE.SLF;10%%^ SAMPROSE.TXT;1.%% ^  8 SAMRGB.SLF;10%%^  8 SAMSCROL.SLF;10%%\\^  80SAMSYSMT.SLF;10%%gg^.SAMTXT00.TXT;10%%^SAMTXT01.TXT;10%%` `^ SAMTXT02.TXT;10%%^8SAMTXT03.TXT;10%%^SAMTXT04.TXT;1.%%RR^  88 SAMWIPE.SLF;1.%%^ %( SAVEBMP.OB;1.%%>>`  SCRIPTS.SLF;1.%%77^  $* SLIDE4B.PG;1.%%^  % SLIDE5B.PG;1.%%44^  $6 SLIDE7B.PG;1.%%WW^  % SLIDEPP.PG;1.%%^ 3: SLIDES.WIZ;1.%%PP^  $ SLIDETP.PG;1.%%`  SLPAINT.EXE;1.%% YY a  ., SLPAINT.HLP;10&&a 22SOFTJPEG.DLL;106&&6bSUPRLINK.EXE;10Y""Ye  SUPRLINK.FTS;10M$$Maak%SUPRLINK.GID;101''1b - SUPRLINK.HLP;1,P((P%%] 4 SWEET.WAV;1.u((uWW_ # UNDRIVE.OB;1.v((v<<^ : VDPANEL.OB;1.~((~JJ^  9 VDPANEL.SLF;1,((^ & VOLUME.OB;1,((vv^ 6 WALK.BMP;10((vv^  ;WALKLEFT.BMP;1.(($$^  9 WELCOME.SLF;1.(( NN ]  WLWCALC.DLL;1"l. "i 1,,,HHl AUDIT.OB;1.,,::l 7 AV1BUTC.OB;1.,,<>j7, WCBS.SLF;1"""j "i 1.ccj  AV1BUTC.OB;1.ddj  AV2BUTC.OB;1.eej   AV3BUTC.OB;1.ffj 0 AV4BUTC.OB;1,WWi - BLUE.BMP;1.__j: BR1BUTC.OB;1.``j: BR2BUTC.OB;1.aaj:$ BR3BUTC.OB;1.bbj:8 BR4BUTC.OB;1,xx..j7, BS1BUT.OB;1.mmj; BS1BUTC.OB;1,zz^^j8 BS1PIC.OB;1,yy..j7: BS1TXT.OB;1,..j80 BS2BUT.OB;1.TTj;* BS2BUTC.OB;1,^^j9 BS2PIC.OB;1,..j9 BS2TXT.OB;1,||..j6 BS3BUT.OB;1.  j BS3BUTC.OB;1,~~^^j68 BS3PIC.OB;1,}}..j6$ BS3TXT.OB;1.rrj : DNVBUTC.OB;1.ooj 60 FREBUTC.OB;1,[[i / GREY.BMP;1.11j, HOTKEYS.OB;1*VV22i"2 LANG.OB;1.**((g-6 LANSAVE.BMP;1.))22i# LANSAVE.OB;1.ppj  MUTBUTC.OB;1.00i  MYWORK.LAP;1.uu,,j   POPBUTC.OB;1,wwj   POPDOC.OB;1,ttj   POPLEC.OB;1,vvj 6 POPRIC.OB;1,ssj : POPUPC.OB;1.{{j  POSBUTC.OB;1.ggrrj  PR1BUTC.OB;1.hhrrj  PR2BUTC.OB;1.iij 4 PR3BUTC.OB;1.llj3 QUIBUTC.OB;1,TTj;( QUIT.CSS;1.jj^^j2 RESBUTC.OB;1.nnnnj $ SCABUTC.OB;1.UUssi  SENDMBS.OB;1.kk66j 0 SETBUTC.OB;1.qqj  UPVBUTC.OB;1,22A  Aj;8 WCBS.SLF;1"$$j %"i 1,ddVVj : SETUP.EXE;1"%%j1 "j1 *''j1 ANIMAT~1*((j1 COMPON~1*))j1 HELPFILE.  IIc ( HKABOUT.DFM;1.c  HKABOUT.PAS;10XX++c HKCLPBRD.PAS;1...c $$ HKEDIT.DFM;1.s88sc5 HKEDIT.PAS;1.FFc 6 HKERROR.DFM;1.EEJJc  HKERROR.PAS;1.c   HKLIST.DFM;1.>>((c 2 HKLIST.PAS;1.]]c :4 HKPRINT.DFM;1.\\ZZc , HKPRINT.PAS;10ccc 6HKPROG~1.DFM;10bbFFc 52HKPROG~1.PAS;1***j1 HKREST~10VVi ic HKSELECT.DFM;10QQ c HKSELECT.PAS;1.GG""c & HKSEND.PAS;10aahhc ;HKSPEC~1.DFM;10__" "c  HKSPEC~1.PAS;10^^c 0HKVERS~1.PAS;1.DD66b  HOTKEY.ICO;1.[[b  )& HOTKEYS.BMP;1.PPc6 HOTKEYS.DOF;1.AAc ( HOTKEYS.DPR;1.LLc6 HOTKEYS.DSK;1.BB$$c6 HOTKEYS.RES;1&++j1 SETUP"&&j1 "j1 $,,j1 BIN"''j1 "%%j1 0JJZ Zb 96HOTKEY16.AIC;10LL??b +(HOTKEY32.AIC;10CCb !HOTKEY~1.ICO;10DDb "HOTKEY~2.ICO;10EEb #HOTKEY~3.ICO;10FFb %2HOTKEY~4.ICO;10GGb (HOTKEY~5.ICO;10HH>>b HOTKEY~6.ICO;10II>>b HOTKEY~7.ICO;10TTb 4HOTKEY~8.ICO;10UUb 0HOTKEY~9.ICO;10VVb !,HOTKE~10.ICO;10WWb "&HOTKE~11.ICO;10XXb $(HOTKE~12.ICO;10YYb 'HOTKE~13.ICO;10ZZ>>b HOTKE~14.ICO;10[[>>b HOTKE~15.ICO;10\\>>b 0HOTKE~16.ICO;1"((j1 "%%j1 ,c *" HKSA.INC;10c HSA10D~1.DPK;10c :HSA10D~1.RES;10c 2HSA10R30.DPK;10c HSA10R30.RES;10  c HSA10REG.DCR;10""c HSA10REG.PAS;1*--j1 RESOUR~10  NNc SAABOU~1.DFM;10c SAABOU~1.PAS;10& &c %$SAABOU~2.PAS;10''c & SAANII~1.DFM;10 c SAANII~1.PAS;10--c ,SAANII~2.PAS;10!!W..Wc 'SAANII~3.PAS;10++c '(SAANIP~1.PAS;10..c SAANIT~1.PAS;10aSAANIT~1.RES;10c SABROW~1.PAS;10//hhc -0SABROW~2.PAS;1.c$ SAOLE2.PAS;10  c / SAPATH~1.PAS;10  c 0SASORT~1.PAS;10c 5 SASORT~1.RES;10D!!Dc5SASYSHOT.PAS;10SSc 0SATMRP~1.PAS;10c ; SAURLL~1.PAS;10c SAURLL~1.RES;1.--c % SAWCOMP.PAS;1"))j1 "%%j1 .Іb  . BULLET.BMP;1.b  7  CLIP1A.BMP;1.b  %" CLIP1B.BMP;1.c +: EDITOR.SHG;1.]]~~c4 HOTKEYS.HPJ;1.^^22c& HOTKEYS.RTF;1,[[b  40 LIST.BMP;1,]]c 6( PRINT.BMP;1.bbc . SELECT.SHG;1.z%%zc 9 SENDKEY.BMP;1"**j1 "%%j1 033b HKRESTRT.DPR;1044b $HKRESTRT.RES;1"++j1 "%%j1 .;;o ob+ RESOURCE.RC;10==, ,b(RESOURCE.RES;1,BB]]c . SETUP.DOF;1,55c1 SETUP.DPR;1,@@XXc # SETUP.DSK;1,::>>b 8 SETUP.ICO;1,??llb  SETUP.RES;1099b 8UNINST~1.ICO;1",,j1 "&&j1 "--j1 "((j1 ,FFc   HAND.CUR;1.c 5 SORTASC.BMP;10c 5SORTDESC.BMP;10>>c $TRAYICON.ICO;1"..i 1"..i 1<O--Ol)&Autorun.inf;1J>>c,,cl (bes_1.3.7-beta.zip;16P--P0##0l).Data.Cab;1:==Ĺl $fixcpu.zip;1<~~^^f8HexEdit.zip;16//j1 Hotkeys151B!!g0 Hotkeys151.zip;1>11d 1instmsia.exe;1>44JJd 1*instmsiw.exe;1@00j PJCtrl2 Ver2.03^i <PL-2303 Driver Installer.exe;1j((̛k ,HPL-2303 Vista Driver Installer.exe;1<EEf portm98.zip;1877d setup.exe;1877l)$setup.ini;1211l/SUPRLINK(44l. VBSR>>ffl  ,0VBS-Suite-Overview.pdf;1^6??6aYYal  & <VBS-Suite-Specifications.pdf;1*77j  wcbs6  j"wcbs.hkd;1B??DDl -  WCBS-Flyer.pdf;1vR@@RVVl  92TWCBS-Hardware-Installation-Manual-V4.pdf;1\d?""?dl :WCBS-Installation-Guide.pdf;1099j wcbsproD;;j %"WCBS_V3.0A-SINGLEl77..l)0JWorship Center Broadcast System.msi;1"//j1 "..i 1<ddcHKSetup.exe;1<ppc,Hotkeys.inf;1:c Readme.txt;1.<<j1  Source,==j1  Utils"00j "..i 1H  j &InstForPJCtrl.exe;1RDDUUj%$0PJCtrl2 Manual Eng.pdf;1"11l/"..i 1>Z$$Z*dd*_ *(ANIMEDIT.SLF;1<g$$g^ 0AVIPANEL.PG;16j$$j `  BALL.GIF;1>l$$lb.BGBRICKS.BMP;1>o$$oVVb,BGTXTURE.BMP;16r$$rvv^ BIRD.BMP;1>$$vv` -BIRDLEFT.BMP;1<$$`CARDSORT.OB;1<$$WW`CARDSORT.PG;1>$$++`CARDSORT.WIZ;1:$$:EE:^CDPANEL.OB;1<$$TT^  58CDPANEL.SLF;16$$vv_ DICE.BMP;14((lla 'DIO.DLL;14$$vv^ (DOG.BMP;1<$$vv` -*DOGLEFT.BMP;16$$v  v` %6FACE.BMP;18%%^  FORMBR.PG;1:%%D D^ FORMFAX.PG;1<%%;;^  FORMMEMO.PG;18%%> >^  (FORMPD.PG;18%%ZZ^ FORMS.WIZ;16%%^ 8INFO1.OB;18%%[ [^ :MEDIA.WIZ;1:%%II]PCDLIB.DLL;1<D%%D((^  6PHOTOCD.SLF;16J%%J44^  )QUIZ.WIZ;1:L%%L^  ) QUIZEND.PG;18M%%M^  )(QUIZMC.PG;1:P%%Pb README.TXT;1<Q%%Q^  6SAMANIM.SLF;1>S%%Saa^  6SAMAUDIO.SLF;1<V%%V^  6$SAMCALC.SLF;1>Z%%Z_ 7SAMCDAUD.SLF;1>\%%\ ^  62SAMCHECK.SLF;1<^%%^ ` 9SAMDICE.SLF;1:`%%` f SAMDLL.SLF;1<b%%b?$$?^  7SAMDRAW.SLF;1<g%%g^  7 SAMEXEC.SLF;1>h%%h_  /,SAMHYPER.SLF;1>k%%k88^  7SAMINTRO.SLF;1<l%%l^  4SAMLIST.SLF;1>n%%n^  5 SAMMOVIE.SLF;1>p%%p  ^  74SAMOVLAY.SLF;18s%%s^-SAMPDLL.C;1<t%%t@ @]SAMPDLL.DLL;1>v%%vb SAMPGIFA.SLF;1<z%%z^  7:SAMPKEY.SLF;1:|%%|##^%SAMPLE.BMP;1<%%] 6SAMPLES.LAP;1>%%l l^  8SAMPROSE.SLF;1>%%^ SAMPROSE.TXT;1:%% ^  8SAMRGB.SLF;1>%%^  8 SAMSCROL.SLF;1>%%\\^  80SAMSYSMT.SLF;1>%%gg^.SAMTXT00.TXT;1>%%^SAMTXT01.TXT;1>%%` `^ SAMTXT02.TXT;1>%%^8SAMTXT03.TXT;1>%%^SAMTXT04.TXT;1<%%RR^  88SAMWIPE.SLF;1:%%^ %(SAVEBMP.OB;1<%%>>` SCRIPTS.SLF;1:%%77^  $*SLIDE4B.PG;1:%%^  %SLIDE5B.PG;1:%%44^  $6SLIDE7B.PG;1:%%WW^  %SLIDEPP.PG;1:%%^ 3:SLIDES.WIZ;1:%%PP^  $SLIDETP.PG;1<%%` SLPAINT.EXE;1<%% YY a  .,SLPAINT.HLP;1>&&a 22SOFTJPEG.DLL;1>6&&6bSUPRLINK.EXE;1>Y""Ye  SUPRLINK.FTS;1>M$$Maak%SUPRLINK.GID;1>1''1b - SUPRLINK.HLP;18P((P%%] 4SWEET.WAV;1:u((uWW_ #UNDRIVE.OB;1:v((v<<^ :VDPANEL.OB;1<~((~JJ^  9VDPANEL.SLF;18((^ &VOLUME.OB;16((vv^ 6WALK.BMP;1>((vv^  ;WALKLEFT.BMP;1<(($$^  9WELCOME.SLF;1<(( NN ] WLWCALC.DLL;1"44l. "..i 16,,HHlAUDIT.OB;1:,,::l 7AV1BUTC.OB;1:,,<>j7,wcbs.slf;1"99j "..i 1:ccj AV1BUTC.OB;1:ddj AV2BUTC.OB;1:eej  AV3BUTC.OB;1:ffj 0AV4BUTC.OB;16WWi -blue.bmp;1:__j:BR1BUTC.OB;1:``j:BR2BUTC.OB;1:aaj:$BR3BUTC.OB;1:bbj:8BR4BUTC.OB;18xx..j7,BS1BUT.OB;1:mmj;BS1BUTC.OB;18zz^^j8BS1PIC.OB;18yy..j7:BS1TXT.OB;18..j80BS2BUT.OB;1:TTj;*BS2BUTC.OB;18^^j9BS2PIC.OB;18..j9BS2TXT.OB;18||..j6BS3BUT.OB;1:  jBS3BUTC.OB;18~~^^j68BS3PIC.OB;18}}..j6$BS3TXT.OB;1:rrj :DNVBUTC.OB;1:ooj 60FREBUTC.OB;16[[i /grey.bmp;1:11j,HOTKEYS.OB;14VV22i"2lang.ob;1<**((g-6lansave.bmp;1:))22i#LANSAVE.OB;1:ppj MUTBUTC.OB;1:00i MYWORK.LAP;1:uu,,j  POPBUTC.OB;18wwj  POPDOC.OB;18ttj  POPLEC.OB;18vvj 6POPRIC.OB;18ssj :POPUPC.OB;1:{{j POSBUTC.OB;1:ggrrj PR1BUTC.OB;1:hhrrj PR2BUTC.OB;1:iij 4PR3BUTC.OB;1:llj3QUIBUTC.OB;16TTj;(QUIT.CSS;1:jj^^j2RESBUTC.OB;1:nnnnj $SCABUTC.OB;1:UUssi SENDMBS.OB;1:kk66j 0SETBUTC.OB;1:qqj UPVBUTC.OB;1622A  Aj;8wcbs.slf;1";;j %"..i 18ddVVj :setup.exe;1"<<j1 "//j1 6>>j1 Animations6??j1 Components2@@j1 Helpfile<  IIc (hkAbout.dfm;1<c hkAbout.pas;1>XX++c hkClpbrd.pas;1:..c $$hkEdit.dfm;1:s88sc5hkEdit.pas;1<FFc 6hkError.dfm;1<EEJJc hkError.pas;1:c  hkList.dfm;1:>>((c 2hkList.pas;1<]]c :4hkPrint.dfm;1<\\ZZc ,hkPrint.pas;1Bccc 6 hkProgress.dfm;1BbbFFc 52 hkProgress.pas;14AAj1 HKRestart>VVi ic hkSelect.dfm;1>QQ c hkSelect.pas;1:GG""c &hkSend.pas;1@aahhc ;hkSpecial.dfm;1@__" "c  hkSpecial.pas;1@^^c 0hkVersion.pas;1:DD66b Hotkey.ico;1<[[b  )&Hotkeys.bmp;1<PPc6Hotkeys.dof;1<AAc (Hotkeys.dpr;1<LLc6Hotkeys.dsk;1<BB$$c6Hotkeys.res;1,BBj1  Setup"==j1 "//j1 (CCj1 Bin">>j1 "<<j1 >JJZ Zb 96Hotkey16.aic;1>LL??b +(Hotkey32.aic;1@CCb !Hotkey_L3.ico;1@DDb "Hotkey_L5.ico;1@EEb #Hotkey_L7.ico;1@FFb %2Hotkey_L9.ico;1@GGb (Hotkey_LB.ico;1@HH>>b Hotkey_S2.ico;1@II>>b Hotkey_S4.ico;1@TTb 4Hotkey_L1.ico;1@UUb 0Hotkey_L2.ico;1@VVb !,Hotkey_L4.ico;1@WWb "&Hotkey_L6.ico;1@XXb $(Hotkey_L8.ico;1@YYb 'Hotkey_LA.ico;1@ZZ>>b Hotkey_S1.ico;1@[[>>b Hotkey_S3.ico;1@\\>>b 0Hotkey_S5.ico;1"??j1 "<<j1 6c *"HkSa.inc;1Dc "HSa10Dsgn30.dpk;1Dc :"HSa10Dsgn30.res;1>c 2HSa10R30.dpk;1>c HSa10R30.res;1>  c HSa10Reg.dcr;1>""c HSa10Reg.pas;14DDj1 ResourcesB  NNc  SaAboutEdt.dfm;1Bc  SaAboutPrp.pas;1B& &c %$ SaAboutEdt.pas;1B''c &  SaAniIcoEd.dfm;1@ c SaAniIcon.pas;1B--c , SaAniIcons.pas;1B!!W..Wc ' SaAniIcoEd.pas;1@++c '(SaAniPlay.pas;1@..c SaAniTray.pas;1@aSaAniTray.res;1Jc (SaBrowseFolder.pas;1F//hhc -0$SaBrowseEdit.pas;1:c$SaOle2.pas;1@  c / SaPathLbl.pas;1J  c 0(SaSortListView.pas;1Jc 5 (SaSortListView.res;1>D!!Dc5SaSysHot.pas;1@SSc 0SaTmrPool.pas;1Bc ;  SaURLLabel.pas;1Bc  SaURLLabel.res;1<--c %SaWComp.pas;1"@@j1 "<<j1 :Іb  .BULLET.BMP;1:b  7 CLIP1A.BMP;1:b  %"CLIP1B.BMP;1:c +:EDITOR.SHG;1<]]~~c4Hotkeys.hpj;1<^^22c&Hotkeys.rtf;16[[b  40LIST.BMP;18]]c 6(PRINT.BMP;1:bbc .SELECT.SHG;1<z%%zc 9SENDKEY.BMP;1"AAj1 "<<j1 >33b HKRESTRT.DPR;1>44b $HKRESTRT.RES;1"BBj1 "<<j1 <;;o ob+Resource.rc;1>==, ,b(Resource.res;18BB]]c .Setup.dof;1855c1Setup.dpr;18@@XXc #Setup.dsk;18::>>b 8Setup.ico;18??llb Setup.res;1@99b 8Uninstall.ico;1"CCj1 "==j1 "DDj1 "??j1 6FFc  HAND.CUR;1<c 5SORTASC.BMP;1>c 5SORTDESC.BMP;1>>>c $TRAYICON.ICO;1PK)~&g: README.TXT}Sn@ >)`6 = B8zobu2ƞMc SviRl6l;x}} <}U,g'hlZ׵ύJƤ]/s۴̓y/_ =;z"8Ma`BI:yIdUq$Vjo,Y g@eL0QZĉJeV<()iNr5 {)u.PVI Ɗ5yɮ_+9m -*;..n!ak^?Q.$!BЄf(|#0|tY. cp?8Gn65Ǵrć)mp$ɆHF\Kݯ g%Gv\gdTՅ|Ta`b#<Զ"^J_(*)#x~"DZ ;(R=]-Y]ov SKDȪ`B)7&LC_ MaȁnBMnPKl(Wğ PORTMON.EXE|\e?~'i6L! (إi#md&v_P5voC@'7)I'^aߪI5BԪeh[MقUh\ y;X?D{}~<9<96X4/дUjogѿs.9?g.[oT^wO/?{.pw[?^/|<.D}{~{~}WqSnW{.o1n'Yk$i<^m=YiVѴ;6AJ4y H?f7+gPGGD|s(?ִkߗ׫qթ__ޚO?i_^~]k6? o!IzwӽEc1kwhr{ڻ߻߻߻WbpVgZOmqmP44jJpId"TڴLKZwQO6`TG'B%};wz,y'B;Qv0te/oD .͡ O_ԓ)zeT(SDhI`$; @T 2?i"AijsͥSe_%X\eML:Q](jUq+:eYu(K8jzFX11c6'ŗ&KL#\JNdgq*\Z16+D"FUIUЙ `֬^bĂ<֭ &ՠy2iI47-Z &K㏃]uKq4MtqqPJPjjJ|n( BZNަqF)*SQI$/RP9aPW:M911:zi~ʴDZނF$2 S&+ih q4tlQK` R!TԌuUwt5)ŨKb_>-ÏvցKDI!).h,j792:4Bc]Xf }S}zoa j8ڃR Ȩz}W=e>wKUSUF"s|3kfz5Zm*%9#@˦!-j#iNP'|nassQـ鉗I(^e8Ц'{buY_v#Vmu P4^ix75CG4=t&l;rEXd;e:WMsO*\3Z9.hG{+鱆w X 4LFeIصcЬ2-"S>^Œ*9qD?j\j0+_8;2ׁR Jڰ-m1kRڍf{6!hc޳\{  \+Z=9 ʵO*x*_P#GR y CP̹pf(ΐ^҄)[O l 3(-Y-zl"E]a;Yw@dԉ39 FP,{Q5a)Z#D*DEpoTG.LiO4bKA8>C}֯h޼~eiĴx9˴,n;f)E5 ԩ%%/. z 9hjiM+x{墧D{6g){I/uy|Q~x@~Tl8Pɺ;&_RJQJ_Q^ ѿ)}ŕK*K+uUjӿVj??ᕴGtWBfo+=QXWi*Y&!`5tYn&G6\Y>8KAȯcBŢq9o?6PGŬWAU^} l9){ +߄x3רކټ$i.wc~hCoU_z}ɺ8$5h@+N *e)"1ӏǟ-OKlں9)ƒS<^UK]7^ؽ< ~k˂ C/rέ?d᝾SF⍵2lgJO3tj7f <`][41ŀK<$sFi<vU 3NsP<3V-x[Eib͞;͒R[շڂ bz`cM_t:GN@&s`;OڠÝ9IrEagu F 傠5L~\$ X^>X1ʟdMϞ0\8Yd4~(]\uh:.axyOlz_{ Á1`s1HVˆ«r}r9-ղ@52}IJ{4Eى v0F9mBRIys$j*GR?RfxfD4~R*Z.#[nFV91Z&>“fցKCBґJiG`h5VI':;qL>"svWG2P0:~Ҷ Y KhqdyZmgg =ڷWiu۪˜*{}]+b?d o6 ]/=۠Xz˔^ru~w߇#AngTgL~/mZQj2U/?&u8Ա-wۖ):3Sçq~„(Rbx~l|~9) ?LO~2CAȮK'h =?SUP<(9ythT`t,{q뗳‰3ߛ KS$- WpC*tmHFqF&Z.$Z7KO+A7 "} KOT㵓v2{ֺ az,>3"seѤɼ OOrIZCc,jz$uqݏgyj͕(eXN53\20VԹxg 8dU(FZɫ]iU ثl eNL,E$XWV,2`*J輪k=m}| dك%9~Jy9ubSJ NBx}aGVN}<}O3]R#*T>nK,]o~#aƊϷB>_'"ˠp8r}R_SfzkhjփLzD(Q &j]J;K Fz8f!|_%C_Lyz`/_TW 2׀&ިc&`bM ~K7@WSbt sbHy`ςb9NGv0-րSFa\gjozW< w;JM4Bz홂id pCApn@P)2sKݳy{~GGϫ/nf98;" NEO]|||!Í|j5* vKN>YO ~}Z/p*i W۬c_*"ZA ߵq2}ܩZ'{hT1 p;;#q#o!\ف̈&wOg:Ad $Rv4re2u{2}TNfIz-6gadÏXkvVZ(L3v;^ +*۩rM&MB?4=6z8H'6?Ce|#Hr(yPc ==윎2y)F(\ y/a8˪~.ek=rubkJ%!ƩLv hiutIuKhDYmx|ČH@|ENQj!)5N']GТ$On*9}fx#lHsȸW[Ugm:5mC[9hE1|!2%2_ z2ڴ=Y3{C7Qke%4%iPAmeR'ѲTVSHvcqY O:wǐvhe˵a;a\+H*F:%,,gXhX˃{\[Dhd|͙ǔݛ,7,ʮܮM~!<7nMH=ߊɭJ叩 zڸw7z E~"z"?H^C* bXeLan" ?e9^,Q$xjڊ%x'ͪV.2i.2}FǀS5WxJѺF+M%l2Rf7К% 0([mO^\e१Y$\%캯Wܟ*7J[1DӒcQDG՘C-< +%Gw8 |l_vt vN>TjZDҁ%ۈ{֧H!ip!=&k9k][RdZYqZX>b'Vډ[*N(ǸJz&KX_v8ۜ*e y7G1O fdHtɬI1h͏u̬4XN*Qjc0jwwJݏV TR.TNqݴLwYcZ{_gWXIk'SIl-N` ڜ3#]'[nZ'$ݱ;xq 曆ݼ^ɥNڣcWXf:^" .zW;  |E&RպHKq)t aPPb_CԺrZ-N /: zG yE[4Og g\rV! P˖0j9-ВuS;1OSIFtd5‹<Ո{Gx#FZzG0\&&Ҭ aHjVi&̌ @v6l ^A8WȕAox՚;|DlUp^Li.Z%RoTV6 [j,f-S4O>j]{}!#CEnǪz|D+DT1"Jʛ+aG&6CE"3J@ l5Dg qlk8v$kvè>RvjdsX;&4ZB !FǵX%*\"mce&(5.rR/$gϷFK=>rJ}| c±rh"l :iq{wSJ ׉R:w><`۠M{.6>Y(;d_cuҴ[&S4~3X _-X\ttX<*n&K+B[ ijj09-R_*@9Q_sqcvSV|: AtmjK4FU[ s'Q=°aҘc'EE%\ #w#tgd[gQkw497]9~2Y^Q4'EO/k5RQKy ZDX~Cn]!׳pMdsm -@afCoˏ͐iO&;&F2?ھ+r]G@|YQ; xn- J7ҡS?Tށ?3{d%8ن 2 H@g)._?C񷆋yVage .{ ;Cc:<kEJ|'g Ƽu!&*SW!Sc߄!FWa*˦S)xQ^/7VҢMTXYPbp*pxmaֺ5[ n qnO|BGNrL؀=aHdt^K&Uj| ^VPWx 2f, U$2e^\z%~6fd,Izn|xؽt>hKR8*Mr檷,]Hp h WO" (sĬ?~Gayb^;*HO:!U #UCj}AA PlSiJ&JdyIF Y] +jGqxs+mŢđ Tڥ߀O+M9X͸zBb,$yi/U9rSKFo[d.޶۲ӆd>QyR?EO'+-bE][ %>y}7#BzQ*Vb[WάxFQC[M~-qdz .!РcWqXj\~:qzXJ@MYJ,7J&R %Uñn87pxǾxUMr$WWi: ~:D9YGt7*Ut[n@KnK Gxuoz>8h3e@N0ϵm/0YL9سwPþr"Xy=uONf)AˎiBaDe}/+7J0n3*zQ9t^:+"xXEgO+TLwo)q]3蹶Hd=%Qqy$8pO|lI 9nÂ^udhzpk9kP<;ȯN%>'inTT]`bU,H%x;XVlUn`s` ޶&&厼87l`/p RiKA@˩ ШmI^@J5wCw ~h]|h!;b;9`]odSQ o)rC4HwWNn.uųzx텨>&de\J\V$bbxU7]NlM,x s_~ʟ30! ɧ(8̍([Y-m5|@8 r]q8M%Locy7Χr@>E_$O^jzW c"" =ʕ|vAUb?RDf`zNs"PVn o"괗kĚ-gAoH8; "}C/MMԤBkҫ>egdH@!Gtn<&^@ 8q1} eZLb5F~}1N͌WWsrC̯ICٗ A{19@"" f 8G.c=d[)o/P@/zX텈4D`aMwVtg8m`n^_goF d%~P~fܹղ[尖^*G:V^9]ŗ4p! bv<==.no69/#$lny%(3mc@qhw6ϳRo }Nr^+^s٤s|K%!Je0eL˫"t ֯Bt#0!ASeD'" 3DM~g}ߦƕ }\u7e?3coIo4B3En>M<9FV~kX?(^Zȁأ LKiO??r F.xA~Zʯ7.RJE[[oVk:JUb;0jί- $n >©!J=©SNʢuV ?/DiuO<[&2|Q~7g b&NjvKcnG=3 MDtЛ=Gz#'2fωCxCĆ=feޗ#:9B{HBdDCybHNCk)* @tԥT* dwPz.]N~.!hxC!'60#&ޕDWd H5Ao1Y%@Эor sk dhFbCTRWeXGr0ߓ?j"c7g^qHQh_lXnlies{(ClD|&=vH$"ʓw1⦚#< ͺ@!-EGĖƫ#]fӆ+7n T=Ҁ-- &$ht i-ãaȟ#e*Vd& (ec4 t~ L2 zOKR!stTz-zO c5{xbYS}3Q ҵǂ1͢rKM} v4眓{KދK ?sAH!Qr6E;}z)_G 3JmrRQFV NѦވtc^ # L.0fHv=Xyi2K9]M8ƫaWD2_,+ʇׄ6B3dN8^xZ !T,z=Չ7a37b0eE|؁Mj5 (*B*PŪͨjTiU25TaTmSqPUPU#"k}hӨ~;ѵpQf_}-:4”8Lt( ,81ix s3ğ&Oq7L Ld`TWPeU9tY36|#*$XHv6^8~{cd{O:_>!s#vP~A[iy{YQ=+ȴ<Ȭ!Vflӻ |n%D~Vl,i۵lHqd9FՈvX+eqsKĈxS}7B[`GգMC1",:&k12p9fOސG}Y\;29K:xg͍×"w`-43e>$GւZ_݈R0,P$V~asL? <s53zҕ<5kZ\n𚅳p AdUPyr|"yCdp",aB:ih+s'w1ARJ(i5q:iZ_BݱYBނѺS7>*L`o3.߾mflᯫr:+āܭYsCL '/҄EPgT5C PBE2XZofMQO7;a[fr!*T;L/{ZUe/+IOVm߅,ZpZi6ȕG;aJxC5f{tcvcȮK9lA Nf@ r#)X~5ܶ.$?bv>>xߍyOĆo4*9:$חQ: alϸ2I -u 1>)u>%2DJ_<^Hޯ.EIkz*;HΓPE/;-sœ!3/:+?zw%|D]3;%e^kp8r<%qVmHvӷ9Rkiǟ ;!{܅7J7n lgԿ%(,#f3h+#ES(!MњW7JllO.m|+*|jś>VU@2鱻4 Ȼ!cWufxE ƪQJלdz IgQVTƲRCH)GȦZ_gncru7VI/r 'O'Ti)&E1(Hl_x5 \T"~P!PS=^ 7jƻM2Y2:2- s*eWIM"|L*Yۻ~ޅ'cӥFqNj.'/ˬUcI )X bYHxbqv/ xHcCk@q@<.r7FFՀe$HG/&㨥aC'ѧKlzI#1RcT Sʪ/bmg @q=/זז7^Q+ZRp?fEiC%j:u^Tm8BuK)[v"}T581M=cꠗ?;l-Uli% ru.=F粂N'uھIJۻذ^A'3²߾Cr%G[ '-R+' :MnGϺ;pH"]ɩmɾe=i_Tܝ[!C^THO/Qcl∐Ӽ-{Zys ڠ3rl K][ٿe+x[ÉCxNowvhDWmvVځjsK#A'Z l$/VLwq'G #%b䱣ivqlX"s̥ ulaA`emЧP]`<q/^́݉nrWnL)C rmfWul1%뛵^ o)]'4D]|I m%螾Y7 */ŚU.LHc)͸I'r>ժԾD㾙徜ň/_ؽkx-~ST2S.Blm 蒜ȩ@_) ^k|7s縯Uv>MX˟.c\Qr7qO?G^@3%gQ]g9Xm։G[`2#q30%U!JݸO^opO04~pI{sxߍ  {G`REH~ `R9 Hnΰ+j>& Rz%r}zjڧ͗PԶ s9 !*5h[P"4qQ5w$q+wzƍ4•Q"S= B@MꁪeMR%Wm'NvMBUSȣ6]Mϵ ZS" $7}[f,M>9pp5.HQSj}%:/ruì8EIF QQflZ3e䈸r GIm'Ió<0- K. a05S J%8Za.hstA߂R3Q8RBY%掠\U, y-1wzPzF-h{w)7jlQw9UAoڤBv㭶>&&̀!BC"S{/bx<\)cwӜRY - - =DQy5_lC(6Bqtfsކ:ˠ3L0Z}i{5;}_{Dn߬} xf7,a.@PѢE $h $NͰ[g[lICbk[BPR65jLY3; >f.s{n;ƶi khl&'r#92'qHG6 IGy/gD# IiZwL', 4Ea\  CE,?Pqq&oC1`rsL naȚ&‚KB[z S:ki y8}$WwdX,Emޠ='ԻV(OҨc:P#]cra6B[{1ؑy:奻0ǎT(:R.SD# FrMwv!47nA`*ž7wiǁXyP{ OM{^fTؔ+,rZ D`Dp*F |rUCr> ,Vt(0!tP@(z@19,&3tiӾ:]ÊC3٥fiςuAn,1u6ufC9oK1p(21z@HO56CÀ"fw~Zt?,5@9?s5>JkZu*2NECFRE}P Aʜla0k|/_S\#+.amaND{b3d<{fT8\J}J'7c'B׎RNVGc+L+׎.KsB2j^@f6&ۻ4 ƱBi@LoHKvK}MPR]y{#,kpo̭"m3zG m[*J)>HD`d S݃)` "ҵx& ?x:_)1n#8B8,\X (%vq`A?(1SA>$5hw ^Ćdz3KeCf 3 ޫ=J60-XQφEk-JHM7]!Dk(+頵EYlB QveEZq)EٹyXɃ:Qŧ਻w|0FJժϡ(H7/?o/OaOc,Dd94b QFkZ>+]A׀-/񨷔}Hgψ*2O˕SKoFph7~B|Xqq29Fcc##GڦLG~*~܀%"& Z"D )fg2&Ƈ (ZH"婧Pf)|r!^ω$0.1<ܓ=_|T|>|\8j%՚9o/b'ex/z _t}eCŸ ~2|jy2L}.E`q e>.q# `9 %0?tX=)пde~:ZzEDH5xfcVĄ-JY0@/%.% :j6H0LuAiP(?D>yhF*y +SgwpYCDn/xB RUԏ_-"G{<6PHu|~qV8@pk[!ʾPz0$GSaҊ߬f^/-ECKQ#N Gq#N;GtxS(zxVcOzM#\ gl yiDw* UH2fᖻ{/vqY 7 ^dl7cOaHR$; gO`wtH7e?]+4_]<`!*٫C=܊&?sg4Uq~Mo1aڝQBm۫y3LR* @YZ /OV>.bφJ\I'c {%6H`!">7Eȳp 2|j׏J<p1<\)n߯.wѐe4Z7ղ6H 36̟@WhՇ&a2YdxfAy,e4$6?X^^r3t_.X=N(}q];G)+fn|pgQ` m6f$cbntL /M| +R"oW}x֖a1}C؂:m054&Rd.CUfb0IË7D7Ѻ̣l+i$[X-R#Ehb MAJJ8U,"n0#sֽ˘Yꛇ(Hs*=|uS*JnJN'Tf_9xĈ5'+uJ0,iڵHW*uųmC L{|1Ӎ^v/u>%W q԰աX[E #X_@8;7s̷.X,˦C Pü 51Vp.-0D @&8_PrIf"EV\_׻nEz-V g `m0X"UI_7̳Ď-cTYͦ=6rpZ;|"n9x19x"n+r~ݨ񍸞T&ČZ4԰ԣbqSm 'C'wEl>HG_8E  YeD1d qY@j*MA"`a>4G̑0\b2y6gʧ@ϬXpUmu 6_4T74[S%6b8ǰ$'y193ɲn&"֍s@H+B4}LQ^a$z<7?ȇӱf([jl2IT]>@ߩ㯲te5HMqy_&Bznk!ÏY[Q옣hTqw3xeoUI7)d4g]B׃ʾr Br60"GP4+MsXooT<;Y " VW}ٴQD{aԦ$| __F }C}h>q,1oKR`/C:}zmpܢ{.^V̊ $wfg>"!`F JNL*5F . Y))CrPHkp Ɂ& YA$5::3nӼS Z%Wr" \J\&i$O`$=ͯM ',wӯ~`;*C{K[S|_=FOnH҆Z^ auag__Ryݸ 1L%KI xmD*yzd%a/U_\)k!TaʪbYu4pp,-l!%i̧Du⿡0 N)f?#,οDOap5lcu4ܭu:z:LD'}[U .Y2bRDZ6&aF{[v\q+UR ;Lrx(p&}2[IȔ B}X;9nag[|`fS`<}1@=ZI%} iT`x0܀LĂЏ~h6EB8AyehnEP>&ww-Tt*-|VH h j(Yϐb+=Jz#2b% I-`V 2vq1,e@TX %9cnt3;v3d O v{HpӊJß飳kD)O(\1z =>(ӐF0sy>v2r$u&A:^ғ~ >Eb.٠۠(཰H͚ b j0 [VlYgj903xH Z.J_dl>++G8,ɨp[)]8j6 abw"s }8}72v;,.}f̺̅5`zռfsˆ{gM!>22pxLc.st|/! cN dX?4dAAbqz9VM%~M0?{Ȭ9F >zխI<0~x1m,#dэ!36RlQgX1K{RX|m1{%LxtCJ6k&}]![ƽ!6<cJz h,sEXƀˊ2n>A}:iKr0(<4z7ڐu&Q%6?6#:}ímfV_Lht,ؾ*|@ōaaE,PC\x{WC3TѽPQk= FXGc cҸ ԓ@~.fpNERgKU @B'.:5ţ"@kQ_ ( W o1öPHcRj0)%fKJH,nt_=bc2q@&WČ_7 Ws+ABiD_@g2ܽd",|/U^xbc.V0~ 1)0HRf673L$7LN4^HQCli7_`#J27XMaG+O߹U[x,#w%j!XP8ڲ!הB' Gڢv1 }@C; ㉷ 5=/ 1{GIYtԜeI$929 9EyeoJ2_Po}tx| +6xKMWṕOư1"~-e,#NXJ9~hpL>I3:Meߔ[ xH:wAw&[5YUVM;e0 Ϭs/s';Nf}C[s`"VcP1p"U >\Ht||km.Y(=jTCƟQ?(X 2<]HCͼMqAn&~Ú#NV wxӑa:$D5 : t$JRov*fau'MY_' asX 4vZQS!#L\C xE0PnQMtҎ;gCX.n&+'xG_l7kbJ༕3GV2PA,/XDf\ěBn;^+Ym~bɁeX‘{Q3sLVUa&(_{Ì9b_C` Iqql~ǃQeyGM}J/4ܥ]F$"PR՚L8?+O.qvWw _P^`dW &ALV̺$#=AmB̴Ci,bQjˌS٧ $^sE#|Vv'2 &F5 Å28P3!.{yV~2p }!3͉UCP$F٨ TI<5`r M6`.Pgc3lU)l{#Dx|x,hxϻ$]eq,۬1ifG1g (t^l"VQ4DbRH\NfrȒ 'ǢiZ`ŰHh~{ Rlb}f9ce(M]!00(%hLEg6X~5/ƁJjwQ@n KCw]|:ec4w #D-Ж u,2G!l+GF0 D8Qʉ(x%##=xY@}44l%9WH[(`t@c d=y@-DJ*?)1LؠUB(5 ,e@hm,l4́(wTf;,-ez}S07;#ީ#{HݜM|Ժʆ%%cROZ imc8kB+5fEΗt箰3bQP30CNLr=+|]O&)_i^xj7~ $S&"Qt 'a`Zm%UwL>t=0{JTf*L{E`%6`bRp3Z0nC7  pMGvrOlj2 K<1^SR8 'p/bD;0PP^ޒF2mBXpiZEQJd 6ODA~$9@]sQ"NsAls(HB E=pi;g¹)SUE D8>U6E1BHj>)0Un&0݊ {ݲj!AGtf)reK\ł?,Wewڸ<3vۣ:Ꝯ;©DjfSZ@qf+r=u:(,|K!X0Bs"W;2 yp3HښmL4X^Soax&ں9L$S+I0.C`S`3|IUr#;8ӿ=-NTlHP%N -޶ q/0L`2v:8:avԓQ(VMhx7:ȉ+Zݜ%=FcLxDŽWhLwq4]+gX pLER{dy"}H+ړZ;U s궓kb9XŃg Y~/A>gpc/ÎfrwBqP [?w/OQk3皡ں<ܞ wP'y)In7f?z,O.Ô$9.{|聫 Wpk\~ka%?BB_BHvX%%1k֞hہY1f4`(~馰˼0'_ahj|FyWsl>f|}Iw< M_}n´Suy K⻱j.O4 9wA\} :\uφ|-_oo$IpMk\SW'\pW\mp;/l|vߧ~ P恞c.ft`b|n W5z{0J(82YGlwtA&T_-+Sלh<îdX͢ [rNʲP frۖЂ'\^C/%~;( *N׶_@ h ö!:7Z;r֤VRZ!U2#PR(}eeRn:̸ZgYID5&erR_n F|[-^c&3k|%TkW)Fv0*˸YXF,Ub~Zճ·AVpR_UȜvD3i:Rְp9)"DJԹX0 ZW0^K֮Yy:=W)R']SӦܯF=L|C^amjA^ZwѦDcM_lɰ+{2 \ྕf)=z?SL#/nM"rYdT%' ٦HW< fn?Š`04`OSsZZW7!7I wX[Rm g Hl╚M`˫ݴam[bx){.{Vfchshfs.w0c Vz鲒10N?w+R?"7SJF'mRM5+f6>oп5R^({>'J՗L^H [ɋCҁalOD>Cw׻>C^ O-ÀQHB9FTe: #Wo,Äiǁ[7(HV 3T_Ej`_/oUn'._Ai֮Y vE]諌+8Vd c{E)ER7F/mF־%%]!S{VttUۿhU[Y KٷMY 'ݓKlx+#~TS^^Q^nbrEmM|%Wfm%)|״@Ӵ"HJH6Y;"pA*&;n+Q$XR둁\KJXu5vP1YLQ4Dbe S)Si\~; hG Bz|`Fh:YZ,3[+eTseJP `t >xGHE&AZ(zL?S`c|w*xSeLRCJ 6Ά|lFdCGLK2O+w{G cKrZY񦨭~:0F6u@/>:%K BZW*?V:Q>P)Dޔ\$ٔ4;%8Ý N\01dw)7P)4u[-`gcsWlȅc̨+SPlT;4OLnی )u 8jұ#n.y‰ڷ v"i؁#AڃŸ/_*o">LxMlS E6Y$ŃȢ nVB&Iҵg^#]բ:o1{'1ޗu[-I= ʶW6vjbxܼ* @V+f> o_źO@- ۍArT ԛ1R0xyױtoPyS%H,~.\mSbQGM]>aEC]ޯVab鏌%joI@-f>;#}v߄`pgxɝ4m?O:`q&E_j3g__!xjyז/ oUg~/0m Ij0.I74|c JA,#g1|N{Э }]N9LHZxw"x~hdG.DEO`brTzIתY(^]!LLpSs Ҷƹ1G$u9j?IjQd[EhgBƧvsvN BV}Qw0<4D=r2\6SN:aF+K.Yb,,Sd}n{p|>"MT^~U ~KR6M-GpYҥ s l:[0]mkߦjΫhC5hȎJ8̶r@会|~[y2Om <=ױ,:e\F;W͆*w;P8RӾ[B sw:1/+>+w{|jl`s"jt)[Vd&Mϗ“,IXyDBUI]J2?ǀLG^[r:_q_c++~5?s@o?*$@Z,Xu^ҫίVݍ /v~nt\oJ6lϲy-'_xGP@#r8meq_aQsDJ~؝ äMlQS w.WIQՖcnBW}!u.%M)!.!e( m"n"KdfY)9QZ ؠjh(CQE23JR3lQ }$u7u3"ghD[}(8'C ޓr3P$SC&DMhl *:ʕ}`C32ack0t&ᗱR v T}Q,VG ~ KEk.@|x';8 3ZNfOdW-辍 \w 0zvG,E 3C;9 ]0м\@ˤJaojg=0L[ U~ )e,-M.ZJv$R85!9 vkiL=m`c6ix GZ*hQ]oSV9>pQ^끥)F"HيK=hS߆1Kn6 7nT\ƦTTuYӦr/A5>[[CbCjW)YM6v== 7$CҘPwtuuq:( |BX"&_5$nv<ӡ@D0L%ƪQB3RNkRKgQVm̗Dn8/ì5`9膣I0M'ڜ6Qnvv3I6 $@+jMDMQt[[ 3m6ld\{"֞*G!K0@(RuI 1{vC<={~kuZ2c+5oͫ,*Ǽz¼*01+ѼȧRPK?>D>1~KDlos$zLӣx^mќ<]*?Y|&;4G'if**sMY}&pUfdӆ k_cʳ|x(f#G\] wB&i,I VE_+s&L:l0WSB +E?,35ʘyjgULUg{eYi}c:,ZVĴPB%ڎcd$֘B._k27щY8Qa7ZBB~iWYMJ( :jJ/GKN>cP>O2j5_KV@w!@-Y i5$>=λB'b 9,LʳpG$[|p7R\OI Ŝ^DoioF+^X\XWwVi]帄f_) _qD'E/ h5ܛ]br0oq05wZA⠳+F@󋘍ɵ-:\쭅$H9";X$utoq5 x iH󸓎7voĻ _: )74[Uk]>L2zPe9Hrײr.%;k[w/a ẓW8WUtsVMQVP>9!>N m~ 3hL]TS:MsSU˸q%$t˫zL]U^8ԪhN{\)rY:q}vNO3N}W{|%G_J%mdjaZZZ=Dz;K2\ dag7/qqG>n`顶k0\ rOebڥ /VjoZˠ׫Q|bs)p \@T{ K63V T8lQ $ JX6هyR'to$]>ނ]C#`ZUvCQߩBb\$h38V=8S- by%rXxHC zl,% YW_:͋79ѦR;lT!. ug`j 6{`ˊnڽ mR, ¬Knw?EJvNZ8%˝E$t 35W"j%\Ȃ 8c #1=W*whtޕ˝`W_&77O`bi )חT,/Ȳ0bJY=ۺֿb> 4׈Z葵ˡՒĴ26B}6DˡP  IZ+O}1-Dp`[RmBox +QHE ܁?[7"ӨFw˧faYffwi?=!c;_L_oZYvb?sEًdjy\ ? 5 &|Y,h|1 B96[75D;iPO4rܵZb/ b @%/P{?{`\A4ʞ3#]UW6c~1;l"wOSH~tCiB|\h?9sT 1y'X>XȸF*վM@y}Wm?#̧̿!HӴLh4,S$^\b 4܊-xX F~_6w#vg gվTm:ubK֊.w-ND]whOwY]ibRӨ \s3WYv)C7/)!bybIMtZYCҧ:hN[JjI+M 7­(PPHJ}++bQ6і*1A )\emf7$~&7Z䫀 %V {nf-~`?u#<Ǥc#Nً[?ΎPs_W0#i![(fNV;]0lЦf3x}E=JD]I0GNH|YO*Hjwt:JZs*c'mwY pwǏx8 *R~r 9.Z֑\DlKb}`96oc]]+p\NYH ro.QNPS8I{[. ůYԂt,ehVhF?pp}mC/B=5ۭ&qg9ywV}_S {b 10w. ʳThH=\kGrt,"W +l.5dt;݇]ɐO0 .tWu[=` iz·G7ʣ6%]Xծϒ/IZَZ\"ϠQDGa>2,B@ĕ7qJѨPnKV>fc!C+CltBitfՖ134SHƫR(n;|rq#+P 1EhJÌb۾0E;5Z۔i*C`0RV )b|,t=Vr*퓃QPQev2fUd vcPt ` PJ>^/f7)eNIwLoMCl4an1Ǫn!lfmZRrIy")n'S{pqq'l#jԢԝTn9RHtG ZBf*ny0D{L gL[GWuqAǿ'<^Cx? ^OBJ.ٜ# mH#ZPLx6j`I(1h^>sU`qD븤ޯl攉x>Aw+ \Ysΐ.AB\GkHk4h|HYq@ }5†$6 BBBӴR$0jϊJvi?ycI{ ?Q$^l&%ќ${4ɜЖob݅jP%% +C?H.{鷜TBmt@hclF/A0 & @2G)aդdI@i-eia4tS=ҲMWl}&F缀Ōф#j1W}Шc?fx/Y|z(4M{#j) t̐hca[|`с#ɕX'诘-3i#?>iz1B>>2R~,2C\(Rhr'~Wubu":6}a0o/wr4[9m:H= 6:pij&(һhĘasfIײYu"mm$ 讀ad~[3 0@.b3U p +P9k" _R2ݎӐ)In`Tt8Z;*@,Xú$*3CUF(1Y# &z8 F20LxؑN3w3f$D" 3BBvƉEw~|cdD7cbfʝ)fʮt.tg3TwU>ط8;>j vV +@SyηpJ ocyTνd*/n+Xwg7T<'eٹzFH7^EL0\jTNaNyh:2epͷp%mڅY2X>ZT,Pr:;[ݘ:qu1[!_\>}vh[ZmO^z8ERS09u1O[\*^ :Gs9[wKb9Ho/C8/[Ga]>q,~8.Uer;fZѷbP= ީco6- H'?:!ʜ[r]>{$28q<bg*{Fpe&I=wr{n񄷤+]7k>ƯevI6;GZdZ,v )=wUDv W2ާ=RӥX"c0EDe&keKuSG(6VLZ]3l $~CwH +XrZuy#/"Oi#j*2o1:wRqt)زS"w sUO^POt͜agU_d6C[}ZP['SSo:ilbSf^)3B lo$"iKSM?A7jx/ Cn?M`~z !l;2'!Tllg]lCeNڷٔB>xS)BN~b3;J:zC =K$[YuOT[Xw`8Y#&'S~f2^\«-;ڞ 17UάEt&Ѡ>Ubnm6@\vv%,Wν.HggS ,{Gr+'#B"{cZKvPVFW-/8s/Nq >SFbۢXn(:g=؛B *ݳ@gL g["B;y̑]ܚgw-[j7Sw  u- ee3cY^e GyJz$9 ڟ()/Fna-K;SCy#,qL6; ﰒnx 5(:DfvLO)?d:8x}L]bD":r41,欐GBe4:wP;[ݽfs3Ko%y:XyN FZ?,kt1Gs/{{7u,2>rE: VcƬxXW$|Ayn*!{)Z\o G CQ;I{}їjh/椞Z{"e<#37pF} (hKbL(>yB~B>9K]yC +nI$c2pG$G`RliN!Rrvbj6SHzP}S;(d / *+T̬zTmmYXƂy6˝117Vi*%Uf q5*|ԣH%7{Kc\0YǮ%rDž}h49,~D2{V>H*I}X祯snO_D"0hȵ}&]U\gfۺ)yJ{LZ+N ׺) dg]isͧrf՚'UX/Ω!w,WeZP\틜YR_pZ06ore} %Ůc-@4GvFJYO9b qGrGG:v9ZHr?fJ&\) zQͻcNyk6[%&3:{XA`[l9sb ךաGL/ajL PR;*?$O.ޑ jIZ(]le:ϊj0`L`S>rcD&5^L1bz<K7s&]?1iR`JK ''|S'w)u IEԐnǽ%N\E CZxjB4jcAI]tc0imH5t4D|5)"O7 J)\5[`]Ruc s~1aܣB+{~;N㦗+ha1QGNs5\sCNd&,|_9fi 0lgMM ܇&t$3%2dִMw :y a{*@)]@HX5cX:rv:>W\,,.RT]/9G\+ uL3R N';~Ëɺ{zҾ1oÌ@DV@jvMm]'禈 &4}ȁ~L{Ooc-piLzJ| (ZjW4%&|]}vlO/ s+Wb{ !}6PguU0XEBk .Z$)M^:1u0;334ᰔYM[ᶰ2⏖i ~ n`8i8(=KO2sXKЛkSTP.xֈ.8VX|O WGlKCSMZ G'x6&z{G :M/'buZeVwj7EψR=ݶʝHeVTCKBK<@En0d ^RŵXKSA>m^ߐ1yJZVv 2x]#l`뿤Y[a6„V_AWPYe74Q}ן&W?5,`Áҥ\,cDoQ("盻SZD86<1>3i؂9Έ[4?6 3OIVgLHz U+,=p!6*f;5;+!W6b<8y䆺@1C]RP;tNEضJ=Â]b'ڹQY@ps<"H =zl›-:z1gəH/:cYY7ZJ,UQՠ5-+?.4LP սv1ӌ'Nq{> NrnD'!H우,+Ddr/餩̟u 鞍wc7%G\e|O$ xILH'^2w/S ~Rx7Lcp&$aXag۟?/ kϐWQnPX*u%'P UЎÞYWC1,wW"S>QBV_j;E/"agLO/ ٌZAy>js$ "Yz\Jk%Z9H;D*1vG;aJM #>[f=j2ߊQCg`!0` iΛ4aPvA lO{La%}w/ O9|*w`蝻Bo9%xJ,)9Bww?V:}1+a_ zI@R .z,MQ<:Pn[ūaa«e™jn,#~W˨0r=~BxVGj")d׶!XϳLOLkZ BwGqp"Jy#fv0K_G~ IEMATJf'Y07!{V5,= CVקP0[}]ፔvN[L̀m8sS:| @#d $I(fD>$Hv rFRLDjH9I;+٩NMgfL2lRfLr;fk#< X0ŽC͗uO(% \Um]Д\,Y7IvcO9%AW+ZAi!_2--[h;]]M +a'%\sZ>ެ$TzjP9v;q(} kC]ĩSm16UP1qCj#-Nlf>,%`<|՚G"XPBB/2$~@W~l.[~H^9E[z(¹WS!Td~5+ QܦG'* dz8GQGQ~TYqpAqq HKpG)?VWuߏ]e~GpkiO|?~Tl?M8ZqfOҫ'c !|OwtEHi 𓟚݊N(P,E;?&6x3@YvlLHGCDN, 6^ivˏD"{(zgD rm_6[/k6똚?_U_:O=W];TyM;j{D&~ % >VÀ:lzf1pQ/١]p&R%VBj}a.7&p,0Y9TH~)Cz"MuohS;pIbE31~7?O+Ϳ&:G/3\L[3_WJWΑQ;?1 oU?/ $|{2X  Ӌ   l#OFl=TD0SQT9Y5NhxV .idnαK Z"WfВ<0K(HKcF'K؛>~0eО(*G{BO1(W1 ̯t7ג/c2 jʸFD)Np0Yڶ4Al/G j,u )Y CY g2^}WYͅ>uD@&qYO:NSC' oT*x\$Lu00wUa!.-x9˯[^M-[[hW`vM -vX N0$%m>2KאE("^\3$z@b`j_%vV:VߠG{Y=ߞ ϨN6c@l^$8pRU.rM^|8DV;f# hk~ћ܍>[x&o3c}pIL$R}xeYĢaA9BE Ϡ8rɎ_42qځL ,hB)~ȮV \KwZ-q(Sx o&Zn- /W+<ר=wS&+օE;紧I$ZI׺X =`m&.z1 G)qY򝻴z+Lc&Ob^ O7o'ῠZt`W @qz.]G#Er{Gr*:c& ѳu ׈O狫Y@:\B&*SFae +N-FZ i'p;31z` b|]41A@xYvXsE:咮ڒs8'ŗOno{^û+!_A(l$铊[gNρVh>zNBۙ[_#6@I-?&2=iԃBW"ytoC.>q&g3 >ng0Ғ*׮ j.UV={J!CGg(1/_aR2kF99RCiP RJ*V_q|cвGǬoZ ǟql!' -iUj|z~mJatq(/Q,4i$QJEH@<}x)Dv󻸹V:\fEOZsR~~ʴE1bZ2;p$u'QGygĖ 'yJɁ O ,6`M1p'2*j",$^=쑹iАol XJ^)06 /v ?ysz Rw[C[k;!UT&x sRl{̏+]I5][Iɹ6) 8ftЮ N"k;x tqBx4mJ^'>DNܡMϣ|S S  b0਍7>c:i1`Y7|RI-41iƏ̟H*gB#™Ȑ瘕"f䡀;kOa0&ǬX,9ݫՒo @7U$!͔W}NJ5xNYzR9#bT>kZ{P[z$_YT:x0T06WYf}=}?D}~_nS|Ol끷 -G dQSBH!W6[dK 8_^ lbA$5,*;NR/zI)6º_2TGIե9ų͘8 eNxhFgo0Ie!W6`$RZe08@OY9Gij+y7]WM\N>GZpY\8eWȲ]+HO+Oh%N 0\mgk:щOvĊQ̒Ҝ5ccbNκsvKwrv ^%d!{/LGGDս珪pH%M8**)]Q7|zS b/}űZ wIXW^5K՘=!2{l5LuuaиH-76(pE +L%)6ok Ƙ 0mjzl䑋k^h̓} |ŕvb9l肀8@.pdY >9\-"KBGlS(q JLB(Ĕ\Y"X0i-YhiJikKOIsG胧&;Lbw@@ h;۾an6c-qxmI| 8$G8 a|@<x7k,@p޷7`-&C&}`<`!T6< x! k&1p2| @%` mj*~A9X(u@? @Ppph.:|O_!ex ]M50 ~Ip {_< S\0h4*S) yk_ ]olm' 9JgrntZ T ކ^<xvt d68= (& 5*ŀ3w/¿~xxp?v@ 7p7R]IH?0p|K@?1C€&@#P8pю'F^5?t)e _2qjt3v!N7~l6NItR4R;0l<xSFD[2V-CihE"wSgGsQpe4|d,5emt11t,(*& />p|2f^irXx|:P\HPs  {Ctj畔ԮU6_ӮY`1nw:e En!**kuɔKL%s5y5Ko 5K ;CbعZr'CZtJ3Y(2U3gB|K- tݓ| Yko҂kE⽾9WHk$y˲C5xI`sJ)QWC.$ZDh\ѠT'iT= TT1"j>NpFT SY*GG8OW @#l,0Ƥ}/X~S2m<ҞO!v1faf $0Wi%zcn ـ|R~C"ͼ~Oޗ &X&?_GcĂ:-ls5iLJ9V;%甥|e6a6Na5qِ'X!.0IHFOr?B*%zǫa^%Z 4wS#rs]]Ƽ=Dx)nMu5a0bq5K_僯RD'sqz5-.)YjPgn{G In8 %9Sub(gXaRao*FIk nJi~{ XFwjNjQmFO dKhLFx#FYnBs#}TTzh`nnKָ.1-T &ؚ%gC9X/8\XD~S B!; `!nr?Ga֦5/+BJKg&Pq =e@j Br1*I*}IVrz5WHe[}I\^cUy͐>K,8޾FaK8S7U%S?PDYZ F}OT]C3r@Φ6%0.!@ˀTw2J)K5=K7/GEe}SeɠxvF2FOlA^Son;keY;uS=okÚEs-&bKYdJ%%ߋ ApFFjU=S9:utPn 6Wv89cQLׯrO;si !:! X*F+WHf3hGK %PZqf]8^͈\>֜!TKî6e}}aqlc Jt_ + òdYAJ ];9&lp`ߞ3/N^d/qv+t@]=fxfZ&pbH H,Os RYD1io-\%% T&`DMN4ɞ!{->As[ZQ9ʇ˗ݚ8H2j~^[[0/T9 ߊl=rÜ3>ah6{z֤f#̑+hL1 4*pu3 ?Doi>7{`\G2pY oDzeV< aseNE4hVskp\ E6O$-)GIi4VJԂ$d7ŋL{oX l5˸C_;+$\VrA+F44\(nIblQ[bա "$R̉2Kaʸѥ PjttKPf[8pG,zpXzt^9?cl2lǚᨶa͹~/𥥙Ssa4g,7H'Ly]*Z1WJw&߫<$ vtSQD.]\MZXޏ#}xaIdHi@M˭55~*T69It x]dx̀s!Sڄmᨮl_bGʊE=$P =˪zHmZR Qs@i5 \ Ql ;]-lHֆ:J8bZWB>Girt'TzVi0e44h.pU8R w屡ۿtRL).s42A^&Wt/Cz@̋t,S`F] π^;BŖzWZ|p~p*e c/B MD4P=uYk^ibmEH-2 t@uhkW9YJ`d2Y+j&*/ḣcn0J!39QF)tbBq"'ʜlLTJΤ'17?}Jg 􆳗31op4FؒWPgel#pXk SQyY]"MkILXRvZ2}1}l i"tT#9xtD]|X\1UݲFM㡛=D`itoax=Ҵb'fq.a*}L|HN$)GUT;qP'hAN,ّڗڼØ=oWu҂v50֮'+ *jX [n֧C7T56XϪ y:nkĞ'}0dnvB3bˏtٰvWfd\4^wi|رa=kCϸjyvuF^ JOO&% C~f@h1hX,X,̡+ 93?*ҽz7j૎Аե,A $ku1gp\.HKPPQۧһ %{ x(=:`49Ljk qV~k 7˫48cʵ*0>wk3|R1V>a~>9e-)R|LX}<ėZvE rUHޮ:Ǩ1*7ڐw*Ka[ҎOWUm*PeTS +U^ޮ˴wx*\UZElݥ(~W}[PP,3Wȳ緷7]? dx~k[ ﹪:U{-#n=I5Ud}ޓWosa澹MX5oN•$,ِ̤<mEGXpF+GG'gkW?0x[7]zzvO\[~g?uo_E}5/|ceCNòg'F/zQGe^Z}s*_o;v~v; տRx9yo+#wG%7-+~=?='/ӱ-\soj}=x'nۭ6Sme|'y2׼+^=>}7|k7QEلo7[gqնs˾=>ι_ͻ+#we}I5O]Ь׿:m͜-OޘB)|~<%o(˯֔}՛'5)}o7|EO~;~iě̻gU nuWhMtݑ}w/x/֟vDKGs9ӟEQ.H{O@8B".M;}E#Qp.] OE8 T4 ?JDې!A#a?XI+O5@(W?)7pi ʌ#nG*D#wgIȒ~ KydY'eI%*K,mY;Dzo͒-KYΒ>%@ts~Y'eI%*K,mY;Dzo͒-KYΒ>%@t/+gIimz,Qsocnߤ;Jߓfmt2}, m1=@l3, ~fK UO4C~x_X4a//YTUE,C~fݠ=O!C _0<߳/Cf3Џ,6; x7?-gEa<ƜbܷA[?g"`G>n8I]`x'9\*:+q7DKM2flz1K95SeFaA#kȫ2sPs@XN>nj.Ѩ.0`44qƆdz-# wJ;Eѕ̫9@|)F'!L1dT  Nc ;D-D/sL fkNp=4u>Sw>f xCH)qC'g$4bT%}bsjq=C|Eƣ2]\c|{LHzq! WUzqY`ЋxqB-T..Ź%z"Cʸ*ũէ&Hs@\PC6 0ƀP TOݡK0 ʜFe_BXL%)znJ֜I2P=ǀ|C }}J\녉' Lh*-=-/ˎ#g^:"Q'C6IJ-@$(ypr " )aّdCo?>ǓR_1^~8 kDIev,z 3@OlؼP:c _tdKX46mjOum_AMV\:b|VxlzLdX)ύIfOtOn_<~hS4={%q49mCXX%/ɑG uCs?gDG1SX2`4G& >ѿYݻb'_DDcÁ  ii!l,ơ64sn!kAx[V(nA܍XD~d؉J^/M[ b9К>DϏ,چtFZD]D=fuV.q%CkH)~|-^"U@ $y 'yY l}}0w oXK iae:ҍ0(v!_K3OWeƂlqmz?SA\38FаF@$r9huP8?m,}K^w7C.#/Pz#$`Y6=~=ne ZXXX $y0'ƴDHA9{sɕe{@[Z#[rqq[n1;Ϙ7d;Sm*T>VY/n2# SoN_܆Y3:GϦ$z&+˦qM|uJ6d66? bOj ²([aa]xof r/rX[hr1iMwADllT^5+Ŝ{.J-r:n7۝#c0o^m:nF֗vq2qJͥĜB} ߎ2u/Nas14%>C9o[rvmG3]N??0?`=?ؽ;lmJ1Kj>fh!aVׂNeWC<^G!{0lNq[X#)3/^Zȃkts~()!i?)ruY|J{2,{ܗӷY_!FҊ==;T]Բ0˦uMJ:b cőЕ1wE<0N,5YÜV8==7=JmgXXA%ϙ%7ht1ڲ4]7_NƗv$j㧧Ǎ-ܿQ"qqj V&]^ˀ/hrܟ 5WzlS|-f'e!^{񸖲/'eJ]\YNU1icdN=vd0]>+̇ݏ؃84o=~Ź.s}g;Ąagͼ럛ǭ|^wFo[ƕ9HZ]9-u%I鳉O1yoN9Ez/x*|ii,3{j1a3T;:OѡpK'>!N뺰 8H)7G _9t_Yۛ]צg$juLM༏ yZ`ߥ(}2@x-ZVnX5cI}M&W>n#7M)6`&Oq&Ɔ3Βʻ^x53WwNTlZ 1?W(ijr!=8tv{ړemIm,/+8vB"/Oʐ*\V}߄+9$Խvd?a@u /w>(^1JYy=?ەutlV[q zxS$Y(̐ m?d.8B՟9t(fJNw\xuN4Gx}8ocaIdb.eX }׀!gp3G_ yȼ7gK?etd]kfi}lC>cjJPWný /Dk }][&F>T$/lfeQW'uJuu)7+ P,*yQV跜.3!OԙBh要>?i'[UN7d7>ptô'J7cH팍铉-qFI%e("O[!| 5G(%0 r[8JcniWn* LwX F$QsI`IG>Uju~ÏA{)]eެϬD,Ä:TT`?Z*z{bt@${<юXpw?*e9>Q> '8 7VN-|>wUfstP k~0>heI'53֕Uݬ\ "vlaǹѥQ_Q/Z:J(ĸޮ6. hިA`< z@s K [~۟* t8žu&GsP29EGm޲N|EKgW[O]9 ^/ܾ?vF[U42» ;w% Wo/? zϗd.y!Zn_!z0Gɿ/VJ\B~%홁} *õuk ^p+ݥl҃Lo_6V_o{?}vg:\0 L0~]ݺ+0\ @P[hݎx!Ư"$6U,g(_Ol5.tnCxo/%-| ӟ[cɉ {gj4τcݏ~')ٰX=J{UH?հg:]z( EY?PqlO,.'x+9)%~FVwKοe>ꤙe$ ($s8 ^f{3:#Kf~Y2swk0%(0c,8&f@ 7oJT0 ug'8ϼ:aXR.ɡWzc59fp<)9}z3*PT4ADsӞ~y SE>>ucZA `OgU3\"( -T[3N ˅ChR,J\aaqp 8t96w9b@0(Z8};{k<6G~hOƉzGM5/ YAknN*;`qpӏ?ֆ$.(½Ն'|Os<8Bi8arGFYDmkL3%}r74\'ޞz"E e8ܚE/؊l~lgSw{^4UpNo _.]aۏ4-*4>ub& I_U_]WM\UV;PY&OW50Odyz*&mkYnz&Or_s Țp<'lXs9{F/%_a*qiC§:72n1-u`Ti[ C%WM{?t,0uB½ׇ:?R9 YGκnUXޅV.x`(߰;/ذSVg=-1c=iDb!뻡/<>B"Tj{T*{^y_#}kQ_jvr.xb^7f硖c>y>2D澼zWw/1%U\}t؏7;}R"Ϗp'kޙso?XsҸG,xP<.+5o0{jǬ7o5Ǫzj6v9fcDOuQ=?yzü|c\0@lB/t/pK+Nx|Z`/-%gwO$4=D/6( PfGm8U|pC<<ǝ;=5;32>uu~JD 'out4uؘwZxT$6.4E$5q?9%/NmԶ=.XDin5mYҪ҆ח\-{ ~fb@.f|$uHGБqE]ڷtΞUVV&/$2?dB iT;D/}oµވt5U! m+|hYP"oE>cTM(ܳ>zB=? u̝i/9boqx ^>n=>kb,42޼J{E;Tc왒5(yB)3EXioRи:bi_+PKWE鹎1-LMu}0647Bg(C3rrp.55ܖnyzR?eA̘W][kF;ڪ :73cktzPmw/s>GYa? v.a_mg, )2 v.V7.:qU -aA{qeaeuc}*͆,`GLloH nvMPD@H.4˚J[ZۢEjk-ZAh@K-P>(֪UqQQ}ܻy>=sΙ3gΜw]o0UYj녾km"-YEjRغH\>dxEXkCVrY]e>lo 7W+"Y՜]^lkJ*MEJr~x]ކoyì[dX?Z-˪Q~IPXb6Żl[ݛcN'r۪Z8=G @, kg5 nz-jv9>h2o>S3miih ^ZYXoCA8.b[^pj3mEߌ):P aLS?O0_RQڻ~\Kv5 Ku{_->ť) @gOY(4pM~Q:2?g P>G\ \ GK-Qv+>5>w'x #raZ8!r \Dnᜈ-LX [8g| 鴵[JU}h:{ɰvjd5Ês菃,~ ~*sp7@w"7ߡK4%/݃'@=9ZuG)73X*L(]7Jn[1ϋ}wٕǙ7ٙ ڦSuO¦h FZciI~>.PPXEĈwQԅNwMd| dURH3TF;Xeˤ\>n 6z|adɊ(5Kݗ0#I@0cN_SԲjgNڀDs&"hF8D!`ɨsgh}[϶]^#sKMsOPE灊^ h7UB435?QGEf[p26T8pJ 8-rU@P} d:]F~6z3_ E V?~P3ê>"w哠_)J<Җb* R5R7Tڻn~ijN H7pX3eڻ'q-,@VdnzDҎ ]+GdZnfi ể4Ch;e.̻NI~K% B-`ߵ0Pytr@:ehr[2tX܇\b<\8]47#LB%q-t">O!ԩS9 1 Q81Q8qDXI:Օl6Vb-`פTLs2SMO0[ł7&fH!jSCz!.UMfi.%E%J\ 0WTۋ*ņUT0e!PJ;AQǾ Su\'TWQXO{: LVn{ f}jӝ"}Bo)f0Ww괠R1 PSq ;Ztݢ \>0IVRo5aiN}fz)UTrCV4  Y3Zsk޳'wr;-81! *IeFx%%SQjλ߄zcwfiX+.]hw)x&ČXSJ7'Q28Y011zL:\JWy+^xw .Nbw }q&%6dKJ7Po,Udrar-=Tv? x{w %w>dB|PJ¾gqBCكBG{j՞B0P7)b?Ԭ%(٩Nw5{nv_ɻ'#F}OQzq}w5M~rs$>as"h?RZUhjƨ$M,DJ,-_C..Vvps޵#<'^Ok]aUCpH=t2 ZQH ӿvX⡮v4;p#ˁ;zftWSq_hk=:z. k#mpjq:ڥ֦6=(v\c.fxWz=iUTS.K˥5s?c Nڕ_ﲽ ~V2 quwiKUȌIƚZ.x7P&޹-m<3Df5o!ֻ"? n;NxLόųg#_zfn ≰ys)Emqިժm[!A<@c=pJ@rLYDxS92=˝<`U?,kރKJZW8ˏ]0KGZ\zq!Lh dͶ:c2pyv|N{ ٖ7_3`:jòb--+eܵ=ߴ\_]Q8DhϷ~Ӯx~ӾB;rM%nNG} Yn_}iOhœsM{\}Kftbu}-h=&]yƳYfgycz$@n=.Ou 1q@U Xͱb͐^9^|$ B#$@rWyP .Lb:]<)ݔC1x7e1P_@G*t:WβEϯ?73tt8ꅐoy ^1Γ~[$+˽K0Hr9UII;JF{iN+|\x9n9׬{}"x׈K_Յ_C '(<0":-ҭEuX&ݥ! [fg9eoPO_+ >>gl>~ŵ9Apkkܛ{& ƵHM}P X '4weQY?\Y!Jf#5#?My>:Ս]b?cݯ{CmÏ -&7l97E[eQ\n9WHQ:mϿ݀|O;D-nt»d I*Y.SfT9^}GgGJRt!].#{~Eqqr>ɇs0YөKl)bGf1ѫC(95i*ywsTzvY>q)ǔdIlqjS`B&evc1xtLu?d:ů;2w՝}bwXq#*vW3I"~=3Xlۢ򢤫&;0LYڷ.׍f?D1Pw!U=ZyKd[찕F8@<~糴f+~hExS7|>xI΍:5U"s^޻5xN7i;ͦ Lq-)xbA{oAᐝZ:L[}$*qI]ŭ-tŢk5x_] ф[+| 'P* Pi ?Va`C0QŢ>q@F2H;(@--5WA6(;6xYb8ɼu]j09P͙3':+#qZ1bXgge&c2iz&g1 m:S#‘FLywzɝN(^ ֋a?d:Ww\ o ڙDmL۪Ъ%.@잒,S;GPd*Gܓg$2wgAIkL#N5qC6@ B=;Nۗ*2Y{Ym`3OPaCpUX#:{VOlSC(S7*_PAr=Yb9zPn:vXW=x&(< ZO~b.__{"S,'^j50@px2M(-ẉl̍ ·#(aT e߄ W+=ƻij\̖%/ܿ2ޤ+3 Ɯyq ^Fcv._xv:^O\?T7 .?O<_@8&i^Ul/&uD6/XOp/uMuWk\Z:ﮎu{J/K-R^p6s_.-Ebko{bhBuv L0 e#0p̷Ncy6(YgK=BSBnà,9si.;)>z @X"ѺN*Β_`7OhZY@ =zGc#M?e7W[H(ñ܆ E^TbfSဉ`PCM;!7Vm z\=zս_\u<{f7Ojݫ3y73Z __~K'Y7zktZ Y-# ɫܽ⬼s/}a]`[El`Mx9iP'X"kۻH8w1!~~ 6#&YDk#V#fv3w߉"/ ƁwB[oC(KB*9eKC/&P/PVxmṕjkk+WvtmnnsU8p'ڥfdžQ8+TxnE(+jk c'o] i}Gq3.tA'2#SQXB'wEh6]+hn"u9Gʺomnle8,NKkX1@YeNJ ԉM­p6hnZ;Qnjo6 cT:DȎa ū 轢fj֑3BlKh^(*[׌cuRHܢ+q#].toڛFqSw2wH-RNzTFB&˦}zHߐjtkd2zW],.B/v(*/Rqwu4b>BiVL~i|vse])LJ'O+xgӰltm1Vc\ :]C#Gmw#\(ѻKOu*͵џTRCX<t\/FP:Jx 4Pn\eeu%aL%44SCBUuѥmK .R槧^|;Vb-bb8GG1 1Qx">1 1|:go#C| nNZ,D5q;4vMi}:X ca,0X ca,0X ca,0X ca,0X C~8w؃!V= XLʺ8XR*6bTjm!uվs#!v^ѱ!8pAVݯkY$IM+Zote|RGc%b >> R6 f֩o^_`?k88 `K3ˌSYVeom_UQ޺KƚP^*q,HQ\IlcЧ8 q4[::MRF[ek7d]>R|/,iqu1!N s,}E3v_98T_jmUSg\[*Ϭ2gDZosTc 7;PoN Ƶv\F]^6߱E+с K3`E+)8ārtfISXLyQ涶o0Z9k1$Gcr8}ζ<9j44zc25=6VTːG'zT g9-PDŽJFW;[n ovUj%rV d-bjx pl}7B&\ކnpv#]u!mB:Ke+,mU(+Bf\Y-V&ք+6LS+al.tԗ棍 46#3|(%vU|&-u]%(T%lw>ZܺE;wZClb7*9zi*OiV*rQ^"oKhىz&F(CCvKEODe iW?9~(з&17=%=+,ݒ^H_.?rQڌe$eܘQ$֌flQƣ2ʘ9=sY&&8?&^'ɧ/Or}Jy-!řÔ_z')RSsRSwLCS S nxa놷 iSi ҜiN{6mo+iK|Azez[+K?ntmƬ kڌ22㌟e8iFL5i 32gd|!eg"szVFVUVs֝YdݛL֞SY_ffO;6{NMmRg_~%l3.'%4"gMκsy<穜c9̹2wV\{nSm>DrݗR71謁yyy9yyyey yn[:=+o]myW,]SPT\U ^-8V~_cOH$'7'M-ߓH~!BrLe)פMIMK)IJMiNYҕrCjf%mwޟT˩j 0 نB &)×4S-m ,CiOiҧ_:}[Hߑߦ2g^9/:+LW3|<7C,kVc߳>:u&kV-}(,t:=gf5>gY##3yoL5f7__/4(.Q Sy9pz˄+oJN.J^lnV';w&H[ɦ)&SR.MݔzOé+uԷRI$txy!PlX`6euANcǍO62>o43042j?1?)^~r~Z~V~^>Q{cΎ.i-2o]EGbAcl guaqMfOˌ]/3j[Z]W4wH[.g]_jbe7Ҥ u3>3? ںRyFŔ'*6*z睱U}ɧFBY^AG@;Y4$bZ8xJ E">8H?P9Q-n&R?`V_[b'Y$j"CX70??+r "aiwmd3=nxWĖ;؋>|O)|p| ۉ$6-i)q*V{av56 s6~jR/]=7F`;YPky5(o|9g- U7OHtF!pO$j,>B{ {@ge\3d<A 1d1)Ɠq+g!8gcc"8$wqD$K84$ɜ!҉BH>c| 7#mHf\(Ӄd[ߎ${\ēǐq$`qj%)sa⯂cʠ@M N$odf.3CffM}vO^fՌyǰ3,<9Er/cʉa$K{ W` r0v?f#&LBGNLGCNEǰ&^gU[҄|yc~25 gq1h)1rFNb0+o0LAsb؟DSO4X|t{9VW⡬ 3p * I")kpzYKzeM̑~X}Z܆R#Kl!ʝ =^=\Bưd1&FH&sD, x1:7w0*UÀ_KR KC wzJ ּ9.Z^"l~c]FXŭÊJVoёv1''R;}q :$) C""{#%b:U? 97v>EȝH~cSDI X@WƯ okMe!Y`<Ͱ7`Db#"T C_a 1z*nƿ_+JgxI/z`U48*H*_`ϳoQ wbKDi™J됴1~UDjX ca,0X St]gj)e3Yn*SYmjsbfE9"_\TJwQV^d-/_J_DZh7}ZTm-+SpOs-w:CZWn`5xT$<.Spω[+&68AGH+m6`ڬZH-P&d >P"䈎pЉTe?ͬ iC~j*1AߧhH_F_IÁJqd:^h"k|#!"[Ua1"ZnoY֬R+QJ?GyTȊ6OY>(ٵ*}A} Ǚ0'hEΊiMtW"( (F"y_r~֊mI Vs$u*j#Z; *6V1ZFȈ#쌤@nt! dGJ;NOUe cP{Ne(E:ᔺ#j4#GoAӭUo z9]S-!G5^k$E A~TDsFm23Ai 2H=vzG ɾ$(3D`.+]!J@ԟ%[d[2bvttI/6n|rMfOgSNae}M{v=%7iq1M6SQ+nyEx}1B>֦f5g 8}3?y+:RJH8ʼnZ'):A Ρݥ8u#g>uE.߼E%(Mc?<|tKSgNOiNFibܙwMzMWL.pjP-/A%StosX2>f棢Vï AOjSԬSlvEn\&f_&(g` ZZfnn%vΩkM赭iE(Rڵ%k%WsK|Aڰ/bJ%A_Z;a,~rڪh"V{XyZN,Eۇ9OHaFT]j*-.*-*诶d4/(L/"w!BiRe VXGi5tqezTA-W=Ib:?SP }x `A.A!P꛴@C*iF4#l/Hxwzp~*67(͑R>n 6{{Sn[ P2Rbҷ5۴=_̑k4.;U9qA=L2/SoٻmP 4mW mz^ն9%ue |4_q,&5 &Z ubYѨwD&Y| Er]U aA/I׺#εP-spDPֹ j7[{={>VmGFQ [UeWa~1``Нq߮V0(lbI`[(VH>[gaOV1 P]ʝv&N$Pied֐{]wF "z\_8-Bgd1]$f[fs֯1c0AW쿀Gj<7F@\LxKx~\Ohm1]+Vi? L(4s{tKlM݇κ2wT+Hc`S>a'? zw/ C2!ٻ/ƣ 0/ϛ$^ajcI={,<2k~+4' !Qð/e~Y%D*⻢dvyrpLWY=8_TrgD^uϵ9v CYY<e0w:!B_h^9>@C_4fQp#/9;Tvd%^s' Ck *nx"S9JcrВ"Y3iax/'h@RgtY72N^ Q~Y[ƌf!S'ߝKW`7u' l%Z߸EYh!f&3WSLuXywv,hZdq+r_%wBPC#*Eψ*fe⋱7 rxMEf T5C4}1{`4:be-Hgi}cT KJx,5>lj1Z&%@ ibI&nC^5mNj=.t*KڨU$=(DnŜ%]bIrK miAM+4KϿtW8 P9(n7OJpA)ȉ5gML=gNj Ǽ*[b%>hLHw7ɂ] K{}{t"<xAfI=VcGc ߡlQJG-ZdڨD<hLIv  ݨtͩn:oYZ&j,4?h0m?VsFJUv,vOIY# %MAO3g_?_Dԏ^я޳$UяƳ!5h'$V_T}{'|{ݷ'{oOI} }~2eзXgZ&H 8IK:ၿ8w!iLqtޑ6Y .10=bO[oxs?H!S ̛ DI]~:}~?ɍ#hGh|?W-n jĝĴi9Ao9o% qO;'堙+g蕉= KE;A?vD:,)oQM QsY9OL ~5k밲z4TCrI6x*v?G T#Yrw_gWDRzl<>w!؏-<}${shk<>'EPм0=KysKݔM_?_~zinoϸ߬\\^e'_e%k_W{UQ',`9# {MrC6dQ~45MtlJp]"O)"OWMpMl6UZio+_SG)E돍k`bآqQ`>|^_Woܙ33g̜9s2#^;# rU25>@HjX2ߜ #A޿%yguەW|M-.E9ueV~I.>zê# f0f5W;O2Hۧ êSJZ dHr4eԚf2Z{'\iC{ދ,\,O#56U4N6"vނg >n䦷'svA0䭜Vxy6<ڏi_`u\ήWb N+/8^:|ZK G*t_a=sh` s'Rp{1ͪ%+_L.q$WIX + WkŘ YzmH\wRsܻ_D]@_?L_qv }o'+N/W>։WC_…+ddl?G%Qqz^-Foo{| PQtX2u]EO?r~ʄ58.6[pD4w_~7BePS&'aGJ {^dժWnZ d]hQ!')E3٠0!.%}vd!%G[]0Jl=Y0u/~4zHtd=4!#rh-0hDŒ  9CD!  MHxyAlj=4GZ"ǃC쉄{&d%MH`M$0"pЄDyhDBO֐D«CR 2Hъu#D;ڋYɽ=/{XqVrjf%)+5VriuYC^ҜY}MJm|Vr?h#dkdJkٓ'Oړg X~B6?ݕKGUR'*TDĦo 9جsvY?(uLqAqKs9l̉02a`  d7|`۱tDugt}zJ@pjsz0QJMDn5#$*F"f)پ j톑p|st 1u$x6s'ts('Q\2eR97GUOf<ģkn9zSڦME:KrzCg՝h' VYJȪon2? `ϸ=Ójf3ԠE酔Sʗx,xDc= UhX~m6̍P }"i/ $ۃg&g /mhFgbFV*(A>u}a\, ` rjAױ/Tܮ.Y:A*U҂{캢iTt,}sb2[R2E.OvZ9. E粞y$(}oy%fvѮj#^`n6fB:rcn RIg)G|f8怶+q.kc#Е.ղ.J~lϛ  3 [rMt~(=s;t @uJ ԂwM)#5TM`6enQA \ "i+FFXzTW?Dg=FT6]{ tOW2]Ce$Fff܉(e(W_^R8^!`a+xm}dxlx:o1^mP7ՓqJ_ntE{rDaөom.:D=f!Eˋ vMT"}9F{ Mv{OSb)=m>'hCHθJOJGqV=`_2̮m jw,ΈEӅӳ_4 =ڝ,sLsIӠbzB ~%z~p_0vpQ?R+]0S=UFx!}lUsZZxʽkd*)mVt*Y*lPBW|LBыC'ӱ6uMca[m+O@ETw 8m-ca9C>&t72SHMni;ߝTS>[iy<#9{;H6HcE,$Rdt dr DⓂ6@Vx]!n-X?zA{yqqŭmM` kQ[DpBl w[~[h IG8]f\j bXi"V;Ŗ4z9>:fkk;6KH3ƔL˦vv ZXZZ/K;v1@_39#2%L I#22mIJ$9'Eoc}:#"dUTM4Gyn,vN=x<;omϷO*PI;K(QB@E(;?F8.-k7W>tu=E9<5(r7:B|iW?S;?ٰB#5W4/rCaV {k{@-Пn=>5Ysl{/V"X/ތnI+l=k5~ m+ygςzCG}W %ol/E ԮC<̤v~z E橯yn;p'IjSN>O݋]hN2ͶBL=$@u)0mY0.S?W257mzX1W/3{սǣW7BPlSЩ3 ǷRU&!#-^xe|cxFZ#0fDe|۾{.kmݕ:߂J8 DZ;u[4nX4o|Z-3y&IUy=i/η6é3'3>=dPD' u&棰(Q#jn C,l:FofVgCwP,r Cq9k0'k|~ဣJt%_W++v]tQ#ތeZY2BY|bxAbWQDq8uzU*i,xZ j!=ТS TZ](NJLATEbQTVG6iB b(p陁k 8G,18 `xpl#l ѩD8HVmDGM"$ p]0B=nN魋~TowV^fo6 h%PZ7+#л1AlП]Mי.#m|m ^JC=FWK9ᙑ®Fdž;ݸǷV;mQY}w^3#3sDQ[ާoz24FO}Y'{Y'ǻ2z,'_ƻ$8. ,4Y[w^;* bbdbq"#gxo\OÏ^'/[&Co? @hx yfJf ab.ƕ3WW!)h=N `Bd2*fm;."|׿_}׿~*oH9޶`i0ux5UAK;bHKc^w6XzKf#ʤgT9Q.݈JyHG!EqKT>MuSHDeNC]c~ri-=FT y!DW{qʔKƼJU=Xy(̼<|1$Eڇ6Uic7Z(ffkO̭ׄq:+ҫ2(TGl 4 |6lm븉s6Bit3&# _ZD2♩%P~1γ|<XB!%ܢ3Ju(/Ber 7}}@._H-cr2{ +Qw2Yn_Q`hNPwRL ~yܗ:䁯!/3_!g0FCQ]U]94#/ ͙qo#̎<e%^EfvMwz`g|;jwIۘ$G[FnU5Xb :M61Er |U^d`dry!c|ig 0-3{ bU7KMxJdfi6 \%h=Ý]ZȱBËpE=x2^߄v%f ,H/F{xb=eߋlU#}ģr:??͂6G! QVFM@ ,0#ڕݭDGhn7AҙMb^ƌF+x6~E~bRF"<+9F{1T&b@ 9L qEGhsF ;KQ-/̍e;Z1& lpnh#t8qu4Qgb6du ^B*`gWRUZ zP2W+SRRƽ^/AreiK% fUak31[#c"BzVbAA8 nIv& /5 gPFMUWZ<=צ2j4_CQi q.YIֶ:-lj+) iGQQμ(O^AT2_0#*=AK !n G!Q=Rr(ifO@M [`0d5V 8SլƲ|15V/D>#^G ]CHܶ]4LzBCA(׉%y(ĉͱJއ \r\ɨ)-GYt 3"Ó4cq\H\o5b]I8/UF7{n\_xH[kQΝh 5~^FI_i[_j&۲KTEM\`L3|OϐXUjV!ӰYH>aƌ9@:jM%ƛ}p\y*RnbK |c_F.d4H*1C*pjk+7 m iRY"?f6,_{ =..q<ڡHI%r7354vH lDvR06;%hC ^nPePq|Dhi9.1ŃWO-Fa'5_ϱBvЇ_@vu*׆[և,(r!lCRICdpi=+򐞮khK?J%jdfhyrE+_:L/dULlg E^"Ǖ$G|-5tО06WEKCE[scᱠ<ӫ@Aڌtc5hN|lZ"3< @*rio&3P@rKJZQ`%{r$KjynȝKjK1_֍ra}$܏>4|SF ͒8Um3:R;_ٴ9% 0ws=:|h\$Oulr,:_E'/>,NE\Ga֗._So'KXgu9b@P&?5ӏBz(g!UG52+dy9YFA;IH-5i\\3 h^A$Jȭ=>^vC[r9dʟBžhv$qI$ Ie]!ePj\ Pҽi#F,0ًɑˣ}.F5@GEZP;M6+ׯdKSrCyw] d G [ci$o U P 5 YLg0HTX^P'p־Π\inRlmI_Db(VPFum3˝XF5*xf)\ Zn|7z")\h$ZxJ Xke5!Vr$0Yj9׏QMbmW;0#Y2HuQڋ-vDw]F?{o*RDt }.!g F; 'uTJR,gp" EnSb6ʽdu}5DBWJ5L+61Oϟl>f{? C6}U7 -.v2W+eq%۽e8ʁVg}bH.!.Խԗ[N3Y~,/>)|բ,+ynʀ?muEYgkSfI^ѐd[Rη4zB\Q;\yWel+A'Ѣ?AILՕ4K9pڵZoH+bc{/6̞i4c ةt9%9mߧ+YOuw)wKxGq>l2&{=b5xb٫E4.ir3movYݬ a)ev ?P8L9 S?k+VQk$8 ǖ'-$#ӊ'O|<;Y4~خ݇s;o;vURIxKxxCǃK49}!FJh=Y {g>`X#d$ڸlP< KSEv=^ KƝ|U ,*VHH9Rj=I^h$TբCk۶G=Oq[㳳_ ܯ~TgeCCCGCBڷ{65 jyzP 3tVGb|0HTzfs45d(u="59,es^j{{>Jٯ`wdz¯L#1D9 i={XάG`c[ jZA-3 VzU4["OEp،Gׯ"L<߳+O7]łlq>s?+}=B{ ۩Q׻UP UGv ,/[XnGV<6$RIFС +dj:,Gf7Pny"Pj{)BYC$Y@~2~Nor E=cߘupmFVxիX˚Ӎޏ2R2aDuꕽͧR N'+F վ=<%JۓTuHze{n(p*>ߌQ*_Vf*"rwT`ahNҘ[ȯ6ɩl霂Sc}QFrtrlr/jUFLĈ ? Zkyl_ӧ/*&(g1{mAl>)lPX桜yL[QpqZmYvVoE^I]מ,QNߍ\Vak}ijœwKV"7bنA<𬼉V}y8e01^m\I Jz}TpPE閉*EЁl$x.1{3(:"[>丒y=|eEޟEXV(j CA_ `DMB x'IUc u{>;wh+k8ۮ|.X)IQ2dhMёIeYtvUwGʦ^8Nr)E2iщ,:DHVR ٵ>I܁JIڕtFTeoӴ.rx^gHh.4¡+s`>!r!WArYh+΅~OMOdV?daݣ;BPs]*xƲ\$fUYފ;0j2[op"V>;홺.Im, HxR1_LW- z{r c1pPNbXL KlL.$#rQKzte!RXQkuݼzxv 6Hc4Wkus[bK /SD׼)Bi$e 3sfӤbm ;̵m1T{0v DeDxlM@E!, ^TNN[-M%XM=cS-CVUxg}Nw`jvغ3U{'dL_`\7Zzy! 4C{gl_40<e`)O%Ä|@oedctR΍^һ\)#TT-cռ?RUaߖrB uB_I))骯_0!#|w0*:5=g$ؒzxaHWآ4-PÀ!9 <֗B7RP`r,y3pfm> +5a'˶=B.ԝtt'hib?+$Ε2mB8NW1qɉ\<5$k\yiaPy7?V+_`@C| <.TnD$E⧤Xt)?!)(Z%3Vn*RjUή~@M?HfF4[<1kRvw޵K2>ݠ\6Z]0 $j` QBFD.\W縣wa:\mWYWB$3`7XKb9Tx^wRKWs<\v 2$`.9C%߂due9lIyJta30nxlA8 % vJdZߤb>eڔe@ɦdB1$('PaTr<ţ4plXo|ٶtV7Ph3gYdD軏M<ڣe!ojmgpGPVĮ f貈'G3N\vJBE+5 `sI[],-;eBnb k?3Aa㷃R?a^-lBČMBnUw>bG@GYeyJUTHQBw1i1#I0!QX> bTNY;quzilom}WAz9]t1 69gټ:/}w}Ra/2Jƙ n "#;BG GU [%MJ 1 +wpNDht˓sX9S>,/䊕{tM2oB#p" ^;|)!b_[sg%q.-G,[O E1Ħ d*`0\$.\Esoc72^Z)HTjT4; v:|Ҍfugm͜i8'@l5 N6&-NYtR㖅u.J>Lt<*4g$aU%iDZxIb!K>ǫù{sZ!cy>%khHb|HQPki?~=)ɖ3B}ĆZCjaEt^ۜUՕ=:x"aw(sZʹ:}?=t0HZY4_?iR m@}W}j gt,j,&kpy<=pp0^ּ~~Q8tKӟGuyz,G)FWkɀ xMDhPQ3^F=^z@Fr nh w<'4PD1O 𦑺pe`o뷎_^~+K^ wC4_39Zr?/ҨߠꦑKLYIXa"k H, u0JXg(_gTZO7▾>{ pNA1Ts[2~:(#yl@8;*j=ehw؎ZAgkM?#?SC3%8ӫp7g'8 g^-`2I~;˳ K()M\aUcoFEN< d#sB\ƸՁi?Ya$wʘlۓQzTLm#|AȂ`aQ$WQϖ![2@oCو8@-Ni3ψ_3Xn ѳD>b*shE  2/B:V},.&pUG*Z5T[{O}RVt͠cg`̰>4> mp6H {F8VO^Z: ;Vqwi~^qa#p>=dS4G `x1200^2bB*}+J)Cy~!4!w@poCLJsʓ^:vo`~d}b|@E/yg9` ʘyS:Z:Qg|+ң Vn/G,BY|*ӵ1acd1i-E|@)Tmrђ'i;.;Bbq oe("xxYNvZb*enIZo~!ͫXk=_Z'jHxu8Ho)gAU+ց<_v~W1k;Mr.$}#ߣω_^1jG⡾K6GF $[Z`MFj/u.M#|;•:S4/T/PZ[u@L=}}nfwNˏuD$nʍ-[6?/tmawN"ۆЗ(bp5Rmaͮ\U;aC([С6qDGs!.HrG+bd0e\iŒP:f_|*V%`]DLWаߣè ]JMks9بP13sUcAh}q~L\oL6Zejh1״[Zvɤ8ɛeK`S媤t.AT~Ͳ#'dslSfۨflK2'$  ̅Po7vzd'ʞ!$~ .E>񿐍M,),sr[{a>l>5J5ң#W_':bsl=XmF,rQhT T(?+cୟ3%᭗_g ,x?㕟xz9nޑNy$wG^'^+M$Ė#Z.nW xD#G A95Uh Y z R0d<},O~sT"A3P,Xt[݁32BMȴxF%Y͉Of!/8tpI X݇R7quo>dwL:}ּtJy}}e7$!)K@j;Z/+3sibzbeD7$>;v:p^G)'E9#$SLw=F d`}" _=ˣR?jfTȫCWQQxufŎ+.Lk2vqdia!\#\YeTPBi)dHBcՏ3ء,qɷG Jq3ަXI!bQ&]+v }\/HsK,MSMNSMwR㨦 a^vI l-|%4R_qK\0a 6 yȂ*cx@<ɩf]p<#(>WY$FqiѠ{YK;Ďo Ԛjc9E0b'X+=q5ŌbH VmfVy7FXvxx=N ۲D]~Y᣼Y򪎇m)Q{.R }MgtaoYHxD6AN:G wHoWĊ3+fǸN Tfّ:9Hx:a`G&2/ה9TZk=2X|\WO@F?@О@+i u->kaN'B3S0T?CPhyg`{aʰnKS"N > {_CI0Ϥ0v g}&06Շea pLsa ҇yaw>p_v\Q5 $v.P N7_6Ɋ/KҮ$¨"eR[~m/$GOfAkT>z6xDLTRQf+\=,.-Xv0j?䆃};?ZO v~@*w!veUr|֭j'Dʴ՜vlz~ D[Ʊ#8:Ր\)T)k8.>sPWQvlI^UMύao' ?G)B(A]mJ7x j2KbP@'IJaPF wJ#MCY}h4 [^%;ӱ!:N WǾܝm|,7#_ )3e̔2SfL)3e̔2'{vl.e][s2`{ 9X?e[¢{9^&i}ͅ։ nC7Þ={vvl9wHR~ .?G} {v1uؿ={v!⿀; kD}NO>Cwa~; gDj4]N{L~&腥/a@$ 2,08 e'J*^ы駱iYfj&r ۣӍ-]a'ڟa cF8F(d07~Kxwz^]E~ c@n1d5iAVPY>ҥ+s(d%nS]rD>{<^"yJ[%sJvet.'IdM-|>/Y\~Yq-;O+XZn7$ev{29,$;.WkF#iOj%'L:] q0[v~Zw.Z&CvȒɤWI˓<)ydIa6 .%؝n/Y|^GY㔜W-ͮuUUqeƠ~rh+c~nM4A0+))a8xvyݞթ;4ba$s+F%ټ>(N[\5HMZ À/[Zt147sG-fcܝܛSq,&4Ss9žt{,Δ-dPպ Eݬ H- VֺR%[M]$F)a-oiwt`bcY-~d\]%k"{l'O/=H=p6pMqhGiF4_vL-1T UY[~}K~AZ]v߃ =u*nZͲ%'*1WXA\?XWńKgl-QB.r?bݸZeu|~P;+&uc"~/hj(1az]_NXrH=FF疒u1nƑzDa> Y=Jgín SHd?ϨhSŒ-Se+KЈW~Uǵ UWU{;k7i*heo0@ i T_L®dRUvM,YTpІxZ6sl#XL| hhIlHEg+>jz%j ~Ck1 g5'BMFٽӍՍ X7yMa>tznSĎA;v6Q6J"=j{ZKֺ@;us':P[FbJϹ0Nmgq̔U k+4lReQ@k~g/mK9ÏӔ0 aMfpKa?8@y$qH|"ǬVdP>ysHo8m?qv|trlr#f!C.}%i7H+ g$}Ll{$Oσߠ"O_3j4iKyn飵4G@P# Xy],;-3/? 3G){y]Ha:Y~-LA-Mee6 PրRl|z n+}:wjEF^֦=<qycMY(+ҽ+OZ}k%2k}&𳃶`]tyz3ɍH{7oc?r mq2?hĺA yY _pvp+7+{2BiM{%BkIb! _&a`F 3]W޻{9tk7Je|AoPUgJoZ7n7[SrTUR]3duh{5\5OwRM:uYV^ vVJ5[PgʫDwW>oNp&/,ͧ |T?һaHpw2R\ rSތf̽n;v+N]U=tzv'wJj|w>/s;t]O(n?zHH[?jtj' r_rv2eru[ m|rrJORy\nu>FwgJ;x,7آ$_~ǓR qQhլc D[j)w%38~5G5?P瞛c \IJJfIv sS|o-]5j5ݷozzz$߬y`d>eKjU \zF2 '[[;SoTi՛n7+^unkzժ T56j} u_˟vʫ͸F.ݚߚcu14}>UnwhبT=hoWA:z>UhwK鍝&r}ަ_Z~+LѬT{={joФ\q@3RC/{{k^]W-Z2Sj-bf$;cWjA g\x}enQ;01}BqUro5A}Q{?M2/m^=sE͈`yyXrc)M5i*u5[a=QcE]sˌ\ZeΆ䞤?e=fdBP;-$T:10&5"xdMt=KT@Ԕ_Р͍VIcgV[W5شwU7V>0kTZ׬rr|3ѝTV Zp@5L۽կaw{ҟ x{6m;@ױBB4v Y,(PQeq*h-1Mz ? |&֒.oy(&[bۯA´F&Dȸ%H_?ʄk H<6b#xc̒4r%hT\^#v !pȶ]=MGU:/{u"ZqFK@lU|&ҲMʗ>FjG˭iBZ 5;ϰ^&p 9Ґէ yH1|i]FV ?N"do*$_tǪ x|^U3/fgФuOBL٨sV{{_ luA֑;q%x q#H f`ID2g6trآr;gҧUg ZcD9;x"2YN"uz߁㇎6!5wܬԭzr̓̊ P[ DZ\ɤ%r|CV #G.y 2>N1HOix>P2)`,QgcbQRWՃ#-0BZ8]8,ԣ3F}ni٦ѭT_Ocߩk-h/u_7:Q#We7fz#V/k`EmBR$\EhRD`* []w)N7Zc~9-JpJ2r$DNkC<)G7֖0 *zMFOUtjL.lc[(Τ "><ՃȏҳҳLy^&uvW Z}SMjl͒M8ƪw@Y*BTL'cU(L{bٱQ }rAGyɆѾ'QZV{YN ɽS +P5#v{GL-% [?ÍS{@:3 dwqau34a!Z4)#sJgjVqd[PV]G˜%.Wu nezm7xD|)Xߋ9^t _A\&ĒzZ»HQ&hԘoִT'<}`Vufɧ(v]8b`#RO8* $]lPWwP{m=BGO"EUz\I UjXNOWSbtbZ:VB^SbA,ܳi D4YD(hhyMYke٣/VYjv`!i~.)+u3-zk^uCUZ:z$$aF'_I:@ɰhz C*j \״S0n9|4rEQS B[2xW^ d;. ?¥ uίfɤXAJ#2Ȇb^SD+or3ʳ' 2Df\.A'[WO,1tݿM JX>@X"[ШwoJ z¨2JQ!U&ī ELGFZy&C N9dqM{\^sFS/:GU9GEV"R@?FN&cyĘ[Yļi}5zd;9i3 njX`+KW Hrʞ8˨G.n_!eCھ@^28R*xǑL|̒t$~Y ξUƤ@|)Ԭ67e,v~tDB&v+0 Zv&!{ 6+ >)Q'VRI;UG8|h@q֍fmJF[߼M[;mB^ԃ6|ѓ{.'ݒM*TCVh&VK% =[ԁ5Q.Vef N Bh NY0dNBa Ss f9rUuvdMaN'hZQqgl#Z\ф㸥yAԟ=i%?Bsi ?)3aaF#gb0;U *:ƮԄ#Z!o& mLseĽ"xW*$IDhed6N,ɰ%3!RH=ٻ9Ah%y:eٸfC1`wp~w`5޳ڄ bC#{'(k#ѫN!3(&`OR`B)Q φ뺷-3!zqDfp4Ey=$Mĩf|="&ՈeF었'2͞[̛beV 5M[&+SUy "H!QvŒ19kV%m=~N6bLl3: dXIS!KdP0WQZGA&[C>Apɢs#Y1RV2[2u.gNvIm8SmxI덽tJ;X'QdERBy!cMb:?Z'bEJ]0Pdɚ^^%_ԩل,mh $?Gw{kҾߐQ%mǂ zp r))} H^97k;՝S[ٸߖK5=0ˁ9)Ý7:íudOS=DG]iu,FzDl3{x53Bi-:#6Ͷ)pg E/;J(%i&7٥#0ylFgDE2~X꘏zbwX;uZ1Os <&zy2%*02]:(ts`cpi9LȪ]E"J"*Y&W}1?SO#rI2;zCB?P3+JՉZ}M|OOڰ w<su~Emu,`0$ȯ:lm6,-=f@ƣ=@{%%9ʹZ̯F(_ #خ# ^j}cC@TY.=0qRc_֊겹[:.NŽVMT^&:Iν$g1HO Y!r&H42/ ʗZu{>vJƍ] fܛ!B{H6fx.l;mm&eO I&1p6ݣCy)4vr{w鵌9Q~9 {WbQ'lbx z]F]ӈ+2!ޠdwp_~hNOьt3!Ú~Dֺ͋ku>X 8R`S >1`rdA+;D-˭dF 2I{h9aIk 21byf2BHH;7Oi D-2 Y(%tnrVF/=_BBZG|c&r%va~:j *^)weX/ɰe˜~V>ꍇx?t 9 -kZ6&=k{Vpf~^q:لy/ ӫJn -mfy!Z˒]VN1"Ů MmQHVRRF%٥)M:4ﵛN#ō@̣sý/g5)HVZRKm+ z! l*C1]Emeô=aؠN?c>E9h { ‡R\fuZ>]y! ԤFiDSC A%zqJz-zV kWQ;{Vǽ c'bʹg5g4XsGˡ&JӤ0JS} A 4wpp6+ߚZ8xeq87q&mYuż48SZ[H"KUqAP&jm4;p^׹Dr_q @'?909Ϊrs9cmIͺe\64j țgMT@w=aZ;# o4m)Z‰9PC 紼Mxy,.K ^x~/y㐅rZfbA$o09iaLξr_̰Jf UzF:ZGg"6(i&O> /H[{qzGUSܿڎu=X=D1P%ta쑔n7EpT1LP$}-ƞfNx~ޜu$756ɸ$5H~=z\0/V\̾.4FGٙmh16qm{ՃH3xH2U(@o^m=# RԭeFFі ;R&F.:(9Tdq8>|cB&k%qPo*t%p_a#tn&_JH7х[Bk_Ow)\jް  ۠GKQA@ZLw*M-D" ]~('V)~a5枛QScycWNSB0E)vb5}y7B myQ敬zC5n,驳*+eN7{n8VZOz7{D|fSh45O^㕳)&ZK/cDCȼU>}9}A|zh^`LJP`Lwᯩz]Zs|fjJ*^jLsvrT*{U]/&9m,͔,{<kϿOE}l.#dn§HS+]5_>Wʿ=Ղs,KfD_X̄?z>kgY|~>կoK f8\JV9.cRSlXV?ZַWxB-CjP߯mje/S7ܠWˮ׭Syk_g4[J~6rj}@T( KgUT/ "m*-J)- SJ9u&AJ9sȾ/$u6WT *\؁Υ#TTی95@7}%JfRgQoTB"/U^BNeGu+(eK$1ޅhQNl2M`b9n'M)Rm! 7d~K%9QګfAeGQOQLCJ+?\>}2tTLaQwNXdöN˩Zdj 430S27P">~RܙR)6D*U8IT rU"SL"Hd{`2A*+Do 2D=']Ra*ւ t;:d@ɴNTx }J@!)Tf` nᲘH%8Q(8aKſT- IHR>~֡f*)9ZhC8H,3_8꾌%lJ=+iv \? )`rE`7K,|.?*zyWzЏ"Я ;@_}e% tk}T[u6d}{H4dn?jQ@S!1ܯ3\ҊI>^(GVy^Goh@5 <})]M* ի :jg<9LYQUQGa~ijmU:V!rLi[ L+;_* RL"]6MQ=a "sT}g j~k BI1U9P}Sq67fK Z岤!OVɵڌn.-|~j?ߪ_7u>yݏo>ۻW|G~7S}u7oUiVOOtB}Ы>pS_^}hx}wޙx5/pY|v*yF94FhB) ɗu6qh+6JyKUfݦ-a5%?4?Rz()>rC j[z}C}ᷟZPU`WUd1nbRp>1=4V*6en8C`,ރnvϧQ}=0e.p ;lg*dc#ttM Z1> Ckbͯ-\,C'@75̧W38 3 4>44GOahi op:g y ۲zA,1 qMifBm[2Rg/RЙ 1v̗du ޤ 8Y_\bH#:Nc ]UHŝ̲$2`pD h}ZPH[ry?. ݲe}$- %7n d~{P6wYUX@ɿ:j%̨"j zȬbn;="gap;Rt:`alDBR҂XMLP 4D#^1sCCX7}pz>} cV1ܘ'A2-QHE@2!S8i9*x4 e,6bxyPv--s:aQhck@-6E, STX`|C@D/@3bywx^[6-pL}$_cfnm)i-C6%&apCgf"ldc[5$|!U9fIlpе&J(pg68sBr,lNey)f!FX`Kgrl<!ٙ}T*d>9taI: ;âB5n=8|&O*_-fr),}1߳θfPNJufZ R-JWxD]q,oCXُbEey5svg ?z{葄JF"z׫'|RA׎c؄AB֨zҍNriAN38,NX7*<W䢓W:$I$ziC7X@"B}=5HC))| [ŏd)u ?-ff]ڡv,Aa.; o\;rFmU WEoZ_Ϋ 8w݄ RsGew60lij2u=-0*gə]J/}ނ{J4^ҁ*`KU~7w~1̥ 8J<#z%'pvyóO^|lxj?x=|wxk\'?Oi4}PK)~&g:  README.TXTPKl(Wğ bPORTMON.EXEPKB?(K`2 *PORTMON.HLPPK{&  PORTMON.CNTPKPKj))3+A{ DSPMACRO.ASMUMo0Gͅ BkDBTE! ٕV v[Tꏯ8ݴb{yv,Q8þPmmk( Nn^MO֎|DMats,{5PW(. b~ lG C@>l&aP~׷ndz?Ǣ51O!lNޗҥS*5& 9Ӥ`~Fd cDK7)`S=6^Z^쐎QֳK{øHtdY ն?BM(o(Y:j58WV,-1icӜ_ӝ,SӖӺӑН#YMpffE(;h{6m$U-Y骎=(M;0#) vRƷ Gn_N gړPK-|)):,-| EWCalc.exe} |TյW$CH0B!y@<&PjĐd&PvtO֯~*E"ƀ-1ı_ks$kksfݺE2IdK.I\7_-{S]o,Z^]¶e[U+me)sl+JVk! ~rW_|~DA\yeʖ:j:HLYZexvR3,ҍLP]ȭi#ف@,d`| uxHRM]Lc IB7z.Tʬ.-qHܓr/SIŸ{ޅ!zՃ;!| |3L$(I9s%$r%ĐI>/iA,\Ʉ=` HA R6~rGL5\F)+7A>ɚƳlUXX vL02O I;ʟ#Fn3)΃4%M9*sIi?by?(J-"\R~ T{L! 3?x`$(ʂy(r;7|'-ZXW`[;Ǟfn^[/fǭkPv+!Alkv'KIjJrCɇ8%8$nNΏ)nm 'zQ+f8$e<$,`IĒC,ig;ktW?-rLѰAI1$GN$^()lFN$J(),1 %%X$xmM7cѸtHo=H aƱݑ^+:أCiC#dyI3t\Ƒr#<X&QH*ME20'j_:3TG/c:HrӄŹx.v(3p8'|O!yFƕ7T2~/+5*Vns $Sԍ$2$H)źOݠSI*1DhEp6Hby!DlU]DFTMyyŁ2tWWmU'BdV*]IdLHՔUm Fù[#θ˥zR<[^$p51:8fe6ppowv.2ϸ3HFkTR͍ B"0|?2blBs< *5rIGwA`+n1Z5y^V֠hͰ(s&Z9F36h:m*R7qL]0DkJ)d&sP( g6^6nOĄ+H#Njt/60 2_onkIx$};c\yuH1ɻ6N LD*]((]Gܝy-hѓ":Y֍@tN^gQ,}(s=ix-yztq#6}{0w/4yhؒoݏW1{\W~?Di HM?#BtwdpFiCבs:66k'{ܩ 7Gyd 6fWOHP,ۻޓ^_pB@Xu3ӛAa}9(Y˻X \fօuqZ銾אq C>!R)̼GNEsI/.ڭ+:FE7^uPQ?Y^Wt$8`QbHѸO]gP+;o"uZ] 9\`mV]N:|yDwHcu%fLWJ^`7sHt[OJjn+y95@y4pG֏|OmK5?0} rk &o#q:^wǿ~7:^ڝt1L- {{PԅsPdrwߧ;֎c(ã|7 rx5 ۞Ab i3j9Ɓ$>-G;kg ulL-AԥES)/, ja~* *k*+@vS BphM~R9_* Wp$tT/T+SڟN }]=-x_F+یDU*UDU=G]mg(H=c|?}`t L7BQ/ibgxh~g;kfDU破5?&?ubۥ6?w>pFKnΟh6UkHB3o%7=Hj󣊳[::EUlwZ+R(𦰩I*oDۗ@١D)ExU.]{`$D:hY5pAv +3ٶã`aԍ?(~fPW/+#'G ΍\9}U":P'(SM#7i]C P|0>ʏ$ <1Q]\ڛf;itX1.Fv$y͋7({'e{!+ODp0FzrOMR73k$31"zj'c!]B6dW}mhSsc+(T׀v~hFpƭ}^| 9/h@ (Db?Jz9؏Y!) JbxFSS0cltY{DL're/FD}8Opx"ڽbߥew26~tKaIxY;Hs~j`<UGOVU2cX*[KXO%ѳU8ዏu2TUbmP*0DѽԶaԚٿv@GS0O7*U! ڟDn+DoϡfK3d]0z$cA-_>Uɶ'IJe;"-刁Jc1s)ɵ7(֢?iW띎Mc& ()]4mzc}6P(Ԕ(> J", CZf#(=ߟqԬLًHmP?OR)Dą  ~0% fFÉ~HmrG^ ]IhUM-ߤku3[RSc!O!o+4u`V-N70^1yg%ޔSS)-ohEgl輠M Ngl_ʦk*Ƥ^4/2M;*D!f  :=Tzy6T26M6H^4+n-Yn|qmg"[>Vj=3ݓVp<;2z$Tݔ(ݺh}<ru"+)ӥ9iUOPL*@i`~.N?͢wo^z(tF";:Ev}(2/I"N##XVM1vF]l&n$,kϼb T%QM8#bLj80XcRbfgrJ Vպ? 7j l&(۟ךdŏH g̃Rtųoٗ1 Ӽdյ%-^umioe:.o:>wB<\-wTh%]M j L986f8!FpfqIi`"k8.E"785JNsc;)Rz8Nw>4`iS̟aVC(8ߢf0's5?Wrh_.غY1ɛT9cr4tbA>zgms9Vq~*'z*oe9O3M/:/"4/C-Av7 Er@Um0EjW~݊7/)hMlErNնI-$\Wg8/s޺\ !4 _oq^2 Eب9^ YP,]Pm)T)uIOI3IU};{Q0Գ.)p;P~-9Eyc9?ScL(O$G;C4LѰ_B4azB4aiG{( 9RٲCN%o9griM<3F}Z_o=L:̛uӨaVսLUv*D#j ŸsGSd <0,nTگQH֩rf +V+䴂NS㶌&>CGO+mpy /2sލm8 ='zRu'Gt{F>ŪSdLQ-ĺH!d  \K=sjoA@aJ4S7uFn!jF}T6fR\ E5v[bm73g#<r)53GML_go7y:71 y<8>338#{80cWl//PO l;=̢)}߫E ݟ ºF=-`KSN<}J4?2lk8a7V=棱kNCN}w}'zu+ 㝢nѵX0 ̩dZADHtEZ/iRtndpn'I>׸ލۃ= w1dܓp  tmhǠͧɠ =G6EGZ,ht>d`\Uҵ,O#TT,*,ZUX]4OZ,W;J\A+X'8YG)e%U'W.,ɓfeksd\;)%V9 *KT8f9*3\R#+M-XB+iW~E?K# 5&ZjYURtQ]⪪ɓ`Z:Ozs3VUIp4ɓ dcWU j\sejye5.Gu~EI *"PgI^c,rT?yԪ:PZpfUrVcYJ$~ʚ tY]a\UvAQљg:V,v˸e.HKGȺ`YQRY:jf;W+A$*j\KK\H+A"QӰPNW8n.7`XetM8]nFeiYc)jQUEYjw ~U-Cs(yyDK)GMG)3MN2C#3C|T;aE~/ H'n>Cg#~ٴ9 >*; >#G6=Mn,%? l0Ȧ7#X|dSaM;;,%? la|dӃaQ0Ȧ#vG6m lQ7|!KsaMٴ5 >*?H|dw#1 >BRt] \*WJ= 1jd-ϟAqO1<G=qA\؆8 8ģB <З!tCv@ A~z4xwG?sd*sB/ *{n {(8Տm[;t5?o ~+߀MW\<I<6:BpOp#@ AϾLSl&Zjs=?]kPNyDΟї^k4y?y/Wؠ\TNyruWu AMj K8LgA)_z];G ~`Ը~ѻJ?R_Q 9sK\a^:)D<1 ѓ84D+I"5SS/ЮבёڱcG} ,  ǚ[D18`2'&fG ;Mj)2pt8Ѯ}#tbh!iVX=+'WЮa8$niME+twd@>,H;*N;ѬXäR] Ct#;SÄ]áv}x~G6ƿg: |X*ui8"EL%?j~+o秌Fåg ~r?&h:/۠It\(nve^O hW +vphQ!8oN}'hcN @056zsb>< \ '5'pRS'pa܄aWiWa$F?D Spv&}}}'(h]lߣtLTLpT??ES)= ǡU4V`}4oXr:o)f8Fj8|LI?4<~sw4Hb} ^ 3LYc8 0o,"3C0 ,w a:FOԋ ]Ӛu3; A2;Ew48[`@-T Ƒ_0hW=-UVO*9+{ 8vښMT 3Am`j@+u(W@͹*UwU^֐A7H3 ?/I]'GR1"n?Sj}a^:In5O+? 8{*ĪQGGUp [ua Ih~J<~jp6܎'?2L;uj-Th'VNiS5*8B!8t8ľc_ۛ[kpj].;}%c~-N5C3cF}HK=ۑ}}(G ) =~ݼ? #_O`:6٤t?JpO] T毵O`Pn~n&pp|~#Fbt ?=w:x^opoݰ`7΀):rz~8??5ut'9]թEĸ pu 8U?T0J]9= a`Cصj~L_UKԷNRЇGžF K6OԢLxiÊ>RSL|IO2ph=[*ΰ]0b];ZS]%df]roڎb}힊Mtjf OǷ:˖r[&/fITXm;!?ɧ]MW6 7e{g_1F?1VcUVtZHn`_Xs 'ٷ'EggFTm2׬=3H!g(f]Fv1R4 =eaQ9 Rr]u\>ͤ' hɭ9U-ܦ8G-|`V$F"w֜)yݞ-y=< nӮF^|ugQV{ٖOf2A*塦WdƷ++s*` 푭PKŒy)2<Help/HEXEDIT.HLP[ u~.>pw85O%Cix:,İ#L4 M B'h⾝\4 t.oX(mIISlY jY6]RLD _3=jwwhɱn b}?du4>W9Kv5F亄I>98kQm hлHfC*7 –Z.*yaVEIT ۧ3ވiERY(X`1Ya8RY1Uӊ*ILU1|n p'DGJI)-&V"ja9!V1XDQx:r[Eۭt1 w9|i ~`o1Lz$bAbrmZa_r#Q;"Ѷv5|Sp gh"uOŖwI)0SҬOItw؝K^mvw9J$;Ìs6 !m+8ȣ+%]12.ODS@> y# cGȸ$rri%Bl NG̓T i%#!Cbc \:f`b8.9Xm5H("ES=pk7p^Ġgj@g;KB;"7ІqYKWTh݌#*.nѰ)`~y/6ϙE XyaN}{p RIQ4$.M`a7bҝ;A |^s Va~\zq_S?Oh!qbym9}-^\n\_5N|UCCx01:B#u&BTĨNUQp5QU ֻ9v WZ%p40_5]= gȸ!b YyMa-ҲZKFG݇vu^Rjzu_beZc>7k[ilhYfl)Lu&[f 4~p9fVa%!\Q9ڋW4wK=8mCzcqC͡ߧQ, !)%e Z޼"Nn0LJyȆEChXM\M~GYU6q/P(?׾'x, k/ǒW(:45u8YYoh 1 FFVR- ݣȓ0aۉ/d_?P(?W@`3Ur⁦.$M(01?L/99wyx/y|bʋ ,;)9dJ O`Ȩ{n^㯼$} CgRwz˔нµ 'KĺZм0<M l[U/:_.15$wb$oUv"1!EfMRN+2M-c=d9IC~W8d%aC~qrCVw+Hk"k&]r M6 \K\Ad[tyrm"4u5#^8DbA!Y㖹 8A$46\)l*'l1>Qxhxuؙy^@I uB$DN|{w? mm߱GWܑ;]lq=;n 4[AXXu2H*hULJ|7'EfNꤷ0m)hE0qxo4Wag5ȯ> ̅f8DJZъ?WBĶy_f]4yA;avǠ:::.7/}S=@^LцOߊ^M_VNߟѶOfOѾNeӱ͛}IMLjܐIII[^Ų4tw.~w7?̋;wB㥗`G?_:7s?_s¿:|{W_4-]E8p@\랚;ŕ?vqdj/>to©S_>;Ӹoqgsdqx`qO| =' 5.7_\x^Ӂ3']wHߥ >_qg0WP \9#T~8q_yǸS_?ud19_'N}+j=hHrCljShƣ+$@DoPKy)5 *Help/HexEdit.hpjMQj0}7>`vKCI!k%[x \)Hmzhft5|DaWخsXKxqG3^:ee:UfeAp &LF= nH|oZs:ʺaO]gUMV4{w%Aa4A7\iFVЃ|)@QN7mYǍTVz_ۆ͎dU ړ@8BOרQu*X06.}"+Gc^,YD[Of Pþ䢗,&PHC}e 5ZxF.< 5#Ka`), '4є!/V`|wƟQ\%AQ.$M(\xQ܆PKy)z +(Help/HexEdit.rtfZ[oJ~_iCJ1@H&ep&VLv$묌@+%&ߪnlfD [bѲk~凳]u{=ee>=_u;gg/RQѱ>Ex.W$V La!3%QJЙ*tF, }i>_b9 Ys;*`̿[ /f;?Wؐ-K5@Sbwg '\#ݾ;]kkc95_=zXGnRַEcvC - ﴧ"En7]5[Hq[(TaQ>G9P^0 #^ )ڋzM;Nr=Sh^VjEt|K%'{ IBψk&Npvą:b+ߚEfʃdS'D$GO,k!oӊ;TXWMc2dݝ>6]MM0o9Lg3&!\M3}`h>l+PiH5wBzh{.DgQj9F )i(e"wdvdb !PHyC>h66Z[:3R8Wwӑ[e0002  i C;}6G׆9F^j\cSmf6l:%ޱ,CfK1{HJyHC`4[ؼpO[Yn>KLH-RE8n Ļ&Θ˶v#7s]W:g`|q=B OmgrLW}dCb\9ֳFhrL@eX$9OHkT+! { "%|fc%ED`8[0Jl64@,c \[XD ݲoHnɒ\$ɞb5HdH@HR)Y=u'SvsQ 4=@lxV4ٷ}@l دNKS$t|bKI<EėC=Qԉ8}HS w(YVKTl=Me1{drE,;'|18Nljp Ҷx\X 9)g 2?w(CIȐ}a,qzQd݆ yURfȷ7 , H0C$J!is`8:h"zdތ(FBmǷ OrXlwG9K}oY5FmXWŌu-XS̆Mܶ_ek:!KBܪʾ]q{"EZ?猝RvPLM8> T&>epe( lqJGМ8) %gan`4<7;dGLZr" 0GĖ/ڂṏtxbcRͥw̏aFd,v+{A4|8zəjt\1'RG4Op[ojbuE^EHM._r)Ј^"ւ`0x1pIŶ4MN{57>7vW%)ꖞ-h-1פ|;%nWB)GI7ۥ)XE9$Nz {PNb}!{v$#*nҰ{ ^#rHupK_40SĘ˿ca˪꣩NZ[՗ʲ@b<);FlE,9(R؝B՚ /:JkCpaUӌ^>F/ rzkPokfb Ji ^?: $hE{÷'Q혙WEJk؞ǟWEuTj4"SzĊ]9ڙNrW1op ﬌G7.󥷫lTNl%nO=PKy)Help/HexEdit_org.rtfY[oH?˼ Ig^րXmt%vJ1.l'M*07h"%);׺vH1ݭ۝Qoɿ a?d""`x`EBvf[oI:U"C0;T:{TlX_  9z-g-( *HhKu,4W Σ^u8ӭcֱıЂkBWF^Xum;;"[ضK8s/ŷ*V`Lbd99`K'kt9@c6}˰AH-y!ْ7C疶PZ0o:i4Gbvp: h,_9~g~xܘ_a:TnM 9 y5Zkg#4PKX00ƖtTBT9[2R؜ѳFEPв'Ksg s/Gfl0Wd\z*ܨU0HL%`Ecc@9-J!0g圩tr.j' - I5j`1h}w\'w: ͢ /tZodRx&됊&F>@H`PJf/|E,kAh=x,%'¥bI>|0S#}d!aE1,t)%nT n0WaVGuޕ*E^nl84& JKwއ9ĥrRt}| dT&OI4B_n zŃ!G~ !#[LQs@}  `<O0.Rr[;`{,fԻ$bE/eIRI=`_-SQѲA0RwAxC'cPp3[n0}</(w Br ?O/|,;c3(u`TF(m%yS0| $W`R ni\BvVP C}2‹ BE1 ࣑*RsQQQ[un@cD5uIw6-EU'yy GXd3}O⋶HeJD:R/[qTxݑb_Ԭ(Uߢ%3ŗDHZ n;TFe6]/RJNWƓHϳ]vszE'RTt*z5;k@ JH3\'kim c-|xb-ԢZQ(!Ri.=!^+< IIIILޜ|$,̑ٷqr<鼢xLLzY\O|S&Jt4DBmo+"KT rYu}!A4g$q$o,RhIi1;hDV*gD-#d0{I0sZ Un"7*JoǙBrOóN07}WY7')_oQd1F2N=I T-S@C2rǩHbJOUbv<Wvᙘ\~Aaڅj"ɚT.DWHsQ4w#hc EcI' ΅ZRmiŊ/%8YwwXu"*88*-Tv -w4(%1J@B^OhgrMkkJ(ð+',lUa\" ^O/.O(( 9٫+C~yuKꛆ4硘.B4{NܐL J5$yF(Ws>D~]}^zpwr}^0Ԍ` `U~=U)W? eWI?gs Ͱ_o'7Mf+ga Ұ7_MfRQ!߾ GfZX0WY~?? jam㱊i+ZTAǚa7v0rkf8jI 5:9Ed̡zJ]%pIR):țRl(B8GX.%HS)+ȒT<푂D%5IDx@Lf I$guم~ȝ6īcyyjںNw{}׵S}m3$?]G^介+>fݦ,ϣ ?/tbm1}Abtcc>SeQ2[7SQNe+vq˩qYƊ:N4swNlø3u()/ ; Fa<I(kLǷ6}$aN4-Of ɟoi|C>Y>P&mFR;L VYnhR?q 3*º2K,1r #jT&cwo{GkV_]prU3s-ATeKykIIƩ^| oJXY(Εu>"rvIYn_dWEu}7/1::mB!&yll삳6w' k .Sد?q7Xn.zn>wg uF[a-#%/UH^| `\ ,".]|g,ANa3MđZU4[TDZr5NhDSbHiTBh^uqDP۶Q0Hc+_0IZ9ߏpN/n :A=XqOFb&F&3dݶuT;X͡=;*KqcfnsRfquԁy0ـ]X6Q -Vu=L%|LIaG22>UYvu嬤chqnKҝO;rt8:Чv2⯫O #AZ+whv"7@XxW)GK Id@Ba|,5l۝QUR3>k naU٥<@(@b fD>6ߔb+ RPEj/yl̢1S,j8^!&˰hhӓOTOZp8d eIi 78x؂?RR #L8o)@Ф~pAZ47.{6eW']D~0ɟį[X[Ɠ>&cX{mj9|êRLN”mSyqM1o$7r0UГ `5[1\'0xrڝ=#``"u[ԋQi:"#%zՌV?d%Xr:-_'Os:|9Bӄly:Na. kۄG 9x|ziyyϛm-o^{=w>?u(_jNݾR}h<>k&֜Fy=Ev*Fvb C`1{A1ᤤdBohQKhƹT2@ diwJjwF5Ӣ F7yKk FAE)Z'EA:Nv@KsD-E|+Eu}o4pdLu'SX۶5E3 %ԤznS1|}ުk燹 K=gÃi  EJh;dCu64u$yYjJd@[*PyYNv=/6{+K5[qc+=UpDִS$֫R|@ȲD$>]8%i Epʞob%WeW&PƬ`PzphQ̭!8X72?LfU*X*г6R2jܠ\dV.<,\x_Mpi+J5ޑVʊ|ù9 .NH7;rʟ( %|e WXV4\t,g?-:b|U.Cer7"So+ӝQ8 <<1 KTl?\mL:ɼKo͖G>:G-Jfp9~cg M7tSaaQ\}%axYt%qQFɗ7ԫ'LB8|bAan߃3k<}ƉV>bȇK~JBl$Ij/п#5 ɾ|K/9z&%J*b`Q:RD$ռZr6Qa3AzٌqKku]wx(Ջ[CY߬hSEv0JbDXI/E9iMd:d6,r_tv?я5 q~]x=Y\*fP vu5M+Wmqn]!DV[,;-,KNgee5QrDc`,mhC;AQ{&u>c㋭ij44sZKWm)d8ÐxäӉ-|'TŽ&Ev;!?!,sԣTDi2!&E hz+)@Pܨ07KFaTʒ8J71jJ }T1ꢺ uNmԕǡV}H+7UY"4 ާ1- * a:Cw(QIeVUZ  ENd;Uf=TNvRCIpNO{z֋>|uНX޾̽bu5F¬*~,F2*v}۩SmIf__S5i^;KnhAȫ =)X;fe:l+PH PEv,vwIjw$z.S\T:ULWf n l%'yWIowG׶o$ixRŵ2F]!u+^ԕsўs_'#jO 6k~bE?`c1g{),dQXŪ ФeYl|`{ɕtjk ƴ S|K{lK1tG&t\$"QZz1 PZBfRZRL:cV#|D U)1gTy)ޔsjAFΰLs B}_`4FBgd)xb >้LʷɨQ LQ'Hlԙ67P%~#"1xkm6Vi:87Yl?[Hֈp"@S9?l 7:qQ]7K\2LB7.Sih KDQUDQ9%1vVR-2]yd7O <=e)]o tK/KWt(Ʃ:i,??I Ѷ%Q3~f.[8/dg˸t7Vd;k@Sv{q]O"rE"dt>TgQ+145VmdLwj,X[?d9ZɽRLE$M'~Ҹ^*}_"^gE2iqU@<~ ùtvdj&uxmFBy rd:N_&# ]L:MaN`AbnS-^B'4<0NoAI^K=o ebA0+%d, )fAaɰ 0ΘT $@RJ2#N%\v^l1֚&t>߷a!o OVN$w[شa,z9v/Qvt1=$uKHe @cCiަ-*$::6g(%(zo)P?՚D0Qxlł~qDu8 R-ɨH?up+c#T[cP63ljSQ8lխsEDuyhQ=p9A*5ʳsr ,wj=:jJ#Dښ| }1[gNe۷cQ"V*')M߂'au..r"h\/c%JJay v_w{ 4n@;LjDp)<$v/ҡ!*[门K30V(Ҷk7 Z6'ڰkJdR'WSy1T{ݎF՜w :gy%ښ9z*"/ˌ D[R*S٬`j]RTTd[|70dsfp9eI0/y iN B*%ZO ix5.$~].`WWP,O L􈷆FOv> |_d.a_򏷍Uj=0W{ oZ.Her@2tdZ#f̲)A>w)i5Xb]f֑"tZߛG8tGTb/{BaUY0|0cB/yE";ɂď8ZUX{%1EkD@;S &:;SQ$T3<Ӕ)kmj#ЕqJ^-#&`跪NvUh/߫i7Kg6h*iѿ8hxofd *Cc^@u7~Xf"]yKkɠk29V 7v7>Ħ/])[mtRS*6̷P;EPq _6K:D/?hL55=BڶZHeToQ#tXשL }ni! 1ɎAs/uc*VA29|WLM~=3Ynr0V,9=F:5qs]f>^FV psVGRG} B偁cI=StN|bsl>TR"=>Wz#r43NYTc^t$\%:${2AIND&Z5𚁅CBs$ty>߯`Zc݅rkh~+WS$cHI褋ޭ۱' keVqﯪ?虩'3ӟUE(4! sYߌ ܊BK"ߋrX"%;Z}1wguDa2_O#O-O䏇>sj_^ҤNF/G?LE#4teq0b,a{BC5^ЦcGcECיxŏa+Hpb0޾ $Ķuw["NEUD#A!\\T|4lr}}l6p_PG Hox}i27eVJeh-zpRd"tSy"qen_V)7]0oyҹ>B*c?Y+Io|pDi) J9Gr{i Uv~no45Bb1) %7\BÐ PP܌4^]ax!o(ROHVz[$+ P)e3 kWvv BPNY VH[ySݤ3t ?/#_Pn{ {vwF6H^KڔǑ Cđ𸠆Hm@y]QѨQQkԤ%ʥxLV`EDS W)\pʮhw@ӧAњHA&\jMQmz(U \,/_{= m;k DQ2KcD9EWK#t9)u-qD8I|+Lclߵ",iXZ3YCyo`#Zl@: @]FKCǝ+n0P%Qy% l t3fJjsS+S+XAP1<p/S1$CIDaLߦwx5礷6ZhHVŽ;a/M1nTe?`į9[ƴ& ~M!7QS GA-R.bq9xLm؉ꮆX/<QDUcS^OOF3cRѣH @Ia?Nt5YWؚ T ,nY73ɭ3Y0}Pn0z4"+ZPnf[q4TTR<==@PwVMdq`6T"/!N+DKD<[.`+%KcfBՒY10Eu?du{{'!'IaOV;i*A1cz\qOB$ Pfar[T\"gBUGܞLFeq|&#|#vٻAH qM_ _{Qe^e!Q{vs3|QT@r}wu+h3і-BhPr#_04N C,ġ* V3m:fYޯ)ݯ)v1?gѻ֏¿ {y㚫~<| ҽj|0 ge~dB KM< ,>%S aw,&묤[&8mx0vK8V],CbVm#"76ԡ=M/ú'ԓ_\$.7c;jf$* )vr=Dy'Kg||4g#)>9$z4.[2'AyV:gmWm]>Chvߘρe0>̾d-vָ5JFp^p7^ P "nl۾ 2AKvÏ$7j)K _?! E8:w3q̾+A:mj^鬫O c@֠qJzC&u6.:-ؿW W{O 3opްԇI?7GUM^(PU̓(d3b2/ VhY^qgW1oģ[LoK5n_QL+k&o<jxAwRf“bd 3FOo~i#6]x6}Toj>%)xn'yLP!$$Avw.e0ra"p:M2ZGɍm` 4tJTXN_CΒL/0.@'~XʾD8(^C[ ;v}\atQsH'}bwzz#  hyo1d0L}lYq}};`V(;͏<> :WCPܫzI>UxZZj9$5Lш`H 23Y pQ'yUP7l\!R1*ze)< ,mL&166B d,ԀZn= ˭Odރ^̱b Fɷx47w(oLfůAxd1b9d*sB)bXAέ6>c4(U sńtcs-o^~|f;mBtf_)L%^(5swuʷc4S ƘisKa@B ~_MtR t-B3oevpbÿWѮyMoW#4i)Vn б^qEq2P6!糆əsK"v : EJN54S6 c$]PQ{FUw؃b@(oH2A=[5y~a!#nݡ)-ɑOut$f79^Ѳ9eEnESyҀyf6`xԂWnk`;Y<|U6FY)2aht7͠!եD }8T Uܼ0// #5b8"VCG/*,ӄ8:A NϣAU,adj4Xmr2j*`:\/܊XaJ2/+.)'?H쒀0G7.}z*et)*ZS"mRmR/Py]g}~zỎ$/vC)3)! }>-fZk"ڏf?=2iGGe/l`_5&yL^i V/:[ypS}޸]I6^)ef ٴ4-6MSZS>UVm?)fPqXQ4P ðeѕG;mwFWjvzs}~Fgva=*77^bdy \8nau?m׋9hTv, ښ8b? l9[wNYu립3sSE]'~D饆mbkVmFuVzOSbkE-ߤ[]b`&6閤{-Sg :A>`p2m{-74^1P0a3X}IFk bKg 4|]Iagmz<^p).)HgdB@d 4p^FQjz-̉黳ܵ*F=m\L4B/7${nrThJF߶s VL١V Q]ݢ_U4 sROB+ge)i6| 5Qٝ[S@XWאmyLTj@;_mg* a(Jf)RvRBe2v+7uZ(5hulX; udi~]ў M**fkbv}pz*BU:\gK ի@P̀| |4<*pYj`x:er3W4 ҆jS!IFb "uz˸pqt܉&Yxo=MR&=I0+VɬnφI,%\`#ZU*dteb&]H)FAQc^ %/\o*v@*Dny^ );,KfEa\oGJ7\`x/ _x Ѩ=Тxyr~yVI,5SYv)rV3ւ:wĎh_/߷ωof}Y` u>%ْƶcs7dr Af5f5CR6Oapa~>z[W_WJF*:J$_Atپę3?u.W дٻ㯆]|dqj?DuYrȡb="c(jڢEʂfo/ݙj|`zw'd [[F11ѡ)=j̣Jְh~-^~)-vF8HuD`88ht\xX/R0\+x"x[]~դ/6(x2-F!bj$bȓ E6ߊPv 60 S`>/J׆b֡,ds"Ux3Mbz NeE)m̄JJQpS,j2mqh%(iR=1h#os<8qE*TaҚefeikU皥Ioޏusгg_MTRmp^" EťipzܼO0I,ͥ nzsѼx_"W3A~~QYcyFr}mBN6ޅ?$ ,E i(QN鸥pjgZcyUY%jq'^F#KMT`Y*߂xm\̼!Ænf`$aFD̨ԛQ>gf<|GYV%/xVo[h{q98LjV=޶ 2u;b/ϵ$S9,ˮF KQGU><-rEB*\ކYtҌ Q@uƼ_;rqZ+ի1(+μl7ؔLg IIY~ʨ>7w?*^/hZ\G/8j  K{}޽)O^_*5&K=-aNIwiaT=`l[y\.DDH먰kNes.Ubo˴ϥ:Y(~R2级W 1_ >- 8$Ժ@9aq;V wb$PrwgF:2Uz3?pZ-J1g;i$ o _eA9lrrB14ϧulu~x>oΧO1T) v&Gw6m> F4?6/zöZ$c)I܉թPůM57}#Yhz$lNGrV5RS ΈX0[3Z7]':6lnR\UucY0@qPzmcc?R!%{|aZtTS:p5-=n@!Z}DlG{.vf@e^v6L7qeK OQ-t=❦hҶ%"<Qy9ȇCwdz6ڌ`hJ)Xz9У*vEنt Ƅ5kMaǦY{/@B')vg8H?Jr\$$[# Areq"X U9f2ay; .qgDCx}+;[Um<A^t%>*9>B 9,6e2 ֲT%; ҰLT|Uopl؛-t遼A8O+I֧ܷA}챣L[wiNGt 6:C٢vG- tEAB=a{g( U?y~:-}CT\fyOʤ.P7#L/~_ެoG]Swl>ްe@ct(#E`}F G6"7zi-\@rJDn6^+\N*y.pft(nJ {m30Dy U˷d=Fu2x2RHu_uy (Ώ`(wrbn+C:q4=$\[N;*@~X(FyIx#{ĻU=Xl|`wzGsL^, [E$_v&v".:ſ#;"qY+^Q@Vҝ@"e EgZnb #S2 41v[~ZΪ'{c DnjhD;3GCxyf5Pc_r hҒq-;63=xjw50@խ9 ;b!@kgUG@5d0@+U@ iZBz{D.@H|792 'ZG(+c2l|1hSXx ]'i"R$ b/&pT/ PP\{Yi3 ޏۮd*hVu 0V{-84gnq:L)8gGݽ>$L*zhe|IdF[nEmOu KLƺQ%MyYhحAB-dv^PSIlaZZup[Kƞ!<`)"i/LFmtmddpQT->r|݉#m %Md"9] QsgO(::Ƴ$B?0˽Hݑ1֣>e:kmz <DdMzGGKt3\[{qd} o&rFQF O\*t&It> 1lڔ~C.X{R$HsuʣzN$Wayz}v0`: %[.> 9 7?IAόFf`[ݭVKjoס+}#QMvMj܂+MfnДtG5a`,&]]"?dZj]jIMϱ?׀I1);dK NmOg;ݗ|=g0RIayR+80le*}ܒ.x<~o_^7t gEx*RꅾTgXS$8v^$TK}Hih ꭖ&@xHʁpF) u34GR"Bc%~^vp2ӄAO/\G'FxVv`N21q?G:gz1bMZu6Y6BcEU'C "HR-&>ݴ)ö]0J%p;ߖ e 3zTQt"1"_! Uj ̙0N[ffwjfZ=u>l~׽֟'\] ~#@OFf$1rxP~w QH wzI4J Uo3 $BfGvTVKev1DXܿ]Zt,oZPN!~@$ʪ$rM>a*b}Zbtalk/w!T,WM p7t2=cTfy562mShn2-WAɢ6OuV6շg_⳼2˪qbr<ԆzY'/?D޺;ZE\ĄoZlZea mLehbn'W@t.A*[˜9vf>y]KHjLZ6z^5.G_lCt=}m᤽~VZqZ?׻n_0N;Ц(:]u!w {x}1>h ܮA^ty BА⃗*V6zaJyR!7g*q#ĕРMPft  />_Q(V0O叙 UQ}U£7WHUꂊSx HsV@݅p4VypWƇ~38#u+u̦/ʇƓyk@gbiuZCX-#S`R~/ q?kk=KaR?6N3@8 ^u?`KrY n(~aq ZɑJ-&Ǣ=AXAauu;CLźAFSٗakT,4QY^ʞM{R2wP9``O&3 v_l8Ķ9Yҹ ;=+q=/qtѳ :sm=a6~xӜ3,Os!^^VR zYj^VwP!o?NV]G9v^ NK0^=G[Xi$k(pzWT2]Xh %F vUNv?O5l0$ >PU{J+oFWN{W.&L2@2,qk)gl@W?'k Jo‘5lLwFb8}TQia. Sbs&}u$Z^ D#`f=_mkz-E9Ӿz9UOntѹi*tоW1 M~;YM# %K;@mNtodkdcg_*=-Qb!Fz!ݴě5qkk ѓgSCVeg=e6 1IJ_p鴿`kZGK0lWID.0fXhaXM`D8u;|$ e s & NCi ˵?,FkTu c}F7HS8R[l4m4GZKQ' VV@/7 6WzE9d%sEX1.SSj]:(i{GÞr 9YId^ш&38#?tfJ.}BY3擌aa}r.zPy*b5g2|?4M*VA5˽GA>(0S\|t-?yn$)_p׬lR^!3N :RE2 xY^sOo*+G؀ZBeA!#i4խݟXsgy ;J- 'ݗ u ) ]r =ڤ&x48~sv5gr8kYO^'~Aw͆$FGe>x>ЗzalQ2^Y/^V?tr+wU5;v`<ܲSLD?Z})sJNTx\¤xr*g!lm]TN}8`1+b XL~E:VtŽUt߱ ;V-ұgUg^d\ʗ`K nL Ծ/b)D[B/`uؑҝ-WuL~șҦ$ G6@s='ݯX0=$d!:iGL*sጺ,_M9` $A2 +9Mu}3D?f+LK J_L]K grW%2a]Wk440g1x\BWpjדX* SxGj?'606}{~BǧA;Eg!?bq5qF-]  R ,gUrZU[_{Ld@[$$m5ay׆Mh^wܾD<58؇ Zه'fc|;U@t}L}B2ҍ|QDqʻ 9  =I)@ӄ$Dfa@Y!sJs| EQfOՄ]]" ,J ̼wtѼmgb6?g;AyUBX [CN0"1E+BU*ee3־^"I6G#J`<ᰇ2ϙ:]M@#&o7_Mÿ`R$  .\2`~ -ݧetM<"<[gG6 歃Bv{"gm%xqj]j؜$ BU\ m6:yѹ=|<, VL4hN+l$tR%+T!"^ 5$~+V5p܂jo q Z|[;Wy~»j/?\]5_J |a__cY-^hOzPP望L}Hyjv~6D.ֱn3 @}'Py-tf(v@ ZT@&m.8V`|QZMZ}wVG'Oe2/8o U)Wi֧DOL;I8Zd;'84jC8Ǵ]7$x)0ȨgcT]j<[׋W˻OŤ-u\ܮ-x#-,xmaM;{?7];_.۬VjmZ\F}nVc0Cхm_Qzu> EC tdx x$҆G.vsֺ+`nQNBXu{VN_:/kYr5% ?#‘2mD; }S0NXL-"5[$!q(U$]7USmmNf3Pg{i>΃aVԷw u{Lr"2/5Y5&Y bWLu:7bFdpĤ:(%{%w߂)H%;J&BHs|_[8ꩠvږӚ5^oD 3ev95 _VX(gPsVmw_PVM26'DG s3 \/qB""u2F!v]f+7 N1!ǔ-BI%N^ƍ$i&I_WFTb){~c*ux/R|QЄV~|/+ À׏gR{D4Ɠ&)=)/DwN[,Ef$PHo }wCprt3XqB`cV|z${eM$4)kAN &";Sҹ'i9~MNf')h-:W+mVQL_Ƚe~\iݷCe'r>NsՍ@oj0'Hoov# <5l1@@9b ҂Gf2C5 Lc%,}>+faR ǍHesB:' 5YHpĆ'tM %Pj_) 'nf_ _g_0wJ|n(/s6S[KLyA}=vt#szTuj[ ^qhTugt()XTʞj{3/@8W$aQ3korx|ow $qxo}9a @(Zty,)yBmCGHh/D9`2C3ӄը2L7m_Ktu9#u;{^oVE!DFon]k;ТzÞL̋jT)%dƹ3e+` E/VkW(Ԇ7;9}q4B?GDy/6[܏"ŗ5`HW•sV_Pݽ1z9_h=(ޟf&Juqu`pXƱ4h֑u$?[SHs`~A2J-e6N>lʊUL6ͫ7Agɏ8 3h@jY밭W W>W8f`dc!Ih.Ѥ$Ƨ$uJ@ZHXvцTvgI_ x 6r֘j5Yk"zC̬ OV gKn3W4{ᎍpaFnVb:$]dx}hw@/3IsMM6ї+pv@ ϴ&A\w`A7JX_Awl1-);LfQD&X}X+0e1mIwWI=TE5X2iv’ alFf7c:kEDwc{^I(F+:;UR(&C3ǪgjE`> u/w4%L4 OJ%6faY 2|$Z1ٞUOU?ż? 8 )%Yf-<ϭ)z :;YDLR€ڋ1hŝ0n0..;66@+ѠA#8+i3f6+#ҜN +5x/f_X.?5IVє_N&ex}覤)\Y.p/^ϊ8yR/"_~8A*/9:l~.:qݜr5%Vn4_ 1kX,WLm޵L2S/QWճD7 T=쩇uhsnn GQQIz.% w',ВTGCaq#5kжP$x#SF,-*J` ea@Rϣr.@u/*!N-NDF"9/R!;h@[~8ɖ[ %b Hma5-MnLHw԰cn_˧͒+Bz_3'55Y9w͈_40父Ot0~[;kTdO*2,w1X1` چq)f׍y'+B2ID3/F%\|s+j/8|H/fM왼ñ;7K?(=Tj΁z]vz4Qg,y9_)05J 0\85/w_BM_3?j<Tw05(Ř! N)7i +K)l&F6td(q|(U{P5^?WJ* ^>"&Ϣ's$HߊuG&˅{}Ģ K#\}B H-t(B%>H:")9iu %\*J0Dh9#JӘ^,%1ieʶeo>MoKCEzsAOeq~h(wp>V I*څd+ }`!BBԨ[tmQѾhc3]myUqࢋ3KSt-yTjޘgqF~X0jQ\İX CGXΔnILԼc$AWue! ʼndsm<4m J3O~gk }`X"NkGncIِUHg6:GJ"|H[%PEu*:XEڭyAQ:AX= moi{Xeu4,OyR'[ceK`sMVe`gY5mt7*$mVhrS8mjhsXwzngU?_0Kx@ƍ!ޏP>u!x a +݊@/ԼLX<Nr}Gh:32 .߬jDZĜ cݨsF69: s(k~i ,hq`XDǽJf\0 { bMGQq.=4/иv&?Χe[Sݒ7=8g6B5R3O`I k0[GGvʢ6'^kx֑EqUayʇ<ʧRL4j: ~i=+@P8HEZkyߟljl0^ᖺZz#K;l NCv T? -ҝՙ,u1j .0f0("rmRqN]iIڋ8Q>kN9 c5Ǒ'F}sNaRJ<P>#9&li20[JE$XBAʣнu^U7t?ꁕ+O2`zoΙV8~ضB2;uUsh2xKh4Lrfm"K{R%e*UN٭<`c>L2MR!`7. Z%4҄.j''/5'~4 #43*7“Dձ=kQJLn /W` xX~8~2 *4%8"ic( Ns6:d8t LZHHD~]ǩe>1ٔSlqZˇqN!r}L&P T&願P7jK-FDFʡ. ɿU߰L1R}}ՐNy7 1Sw&Ѫ[+b9] WLҰF¶[yv[k̭d.\z@ڻ{ 90"AfW#:YJFKdnJnnpX':;zZu5"r^?"|فΆJ;|J Ȟ2&jO<ӝ7Kfw{0fe|E9h&°saf0JpK()mTrt]w[cA'SVq6Qyupݽ_JN]v(N+'3 :tk/qXUIq*?\HJhh7׳nPd$2,3^Rh0-a11n@X#0}*ճ5p=.`4ɘ$LY> ɸpĥz^HH  1Z0c%2bmqD0BHIi v8t_WmD߶퇠GW¼AO~B@"ai5v!8+t8hz0)J"n`i@ׅ k(`@<3-/@p@%DqpgC"ik%fo)=ݣ},4"rE@аgۧazGC19;(uf>mJVws. @%TROzu w hVTC!urA>vv&=sP5s(}9q(~;QWF#S>rc\5#'R!0O%I[6L=[ztS٢}SHwk xкI?vFj98B$DSi53X(v)no|8Vwic܀gMLlF{^Q2S`m7R!+Ou쑱1b:{,WbÖɹaV cF%'Sj':u ҩK CMX'APJ'B3宗uq0~1|UnڛZ["9p-7vE/+E/1{M`jcU鰪;$E`--oFsnGI8dJHZh'\/0` ~hha`=Ҭ /h{HEiZzwC( bMEI9>Xƒ QPW+0 aX#֞ƿdX>Z??M3Qz8۹D3Ƥ#u fNWiR]$dP<-qa nswo´xʛlyPdTB 됞د3{ߧb˰G*öЕ[=63*Rhm~h' RGhtq!䴮R= BVWuύopb9{ۯ)2A9]ΎO2>M`!X5"@ çE_Zk٪+QGph<5YF0W8 /I߾z0AVcRq9y<{ HLFv58ΧYS{Mk/u- 'iXV:[١)tAW4Vlr06 %aY( 2/V4^Z3Fӥ r}ʒӴwEĶBC*XrVZGI#s{ȡ :+[@ ?U4d?] Addk1d7< 5Tr%r 3BV9pDT/˺ !@EiHGII[XyJv1W+~MNU̪ut}9]j x;/fÚ `ԳM|)46 t/&f靌HlE"/_ټ|ƈ HB4t=W 4ڣa. 8#~+$湶}⋴;lS$ٚcb~zŴ'g5RBZ?^e?4ŎK$t6 mHc%^}s%'u2X8J_ʫ۴f ecSnDm/C$狀̞?/:{`mYM{6L=C-E 84m{yxr5];!\ ~COEPKPx)SXs HexEdit.bat]1 {pDL,%`R { /Zfv`n0RSގ:d7F'ů`G8ixeP()YxPKz)+ᖬW HexEdit.exe}{|TEyG D #0$(A < s308Dc6]#ޫ.Fo +E=ܪ>}L WuuuhѣI$3T/_ӿ>Ҿf?Ĺjm};˗-_v:펕rymZYŶ5VHHy|qǙy7m} l-KU˝ a4UXh3X!2o/Xn7 "bTZ7 iI#,Sl5\^y>z\-IRiFee?= ˇ2Xoް}.t ʗKm7~^~.I ].!_R,0T!Wl0"@&t7o'J\}KIhB-㙒&NDYc$5.rn#;DV"R&5~jqy 19t `D#ڙ#bwֹ(J1u;Lx%PRaDe((xf@#>锤$gar/ $9f GjG 1_LJzZE{8tCp@^TDh`ND&+ks\*$W16͕Vńس8re$MRLzz;riۗ.Z Qd7b 6S7-xcO!$onAޝw()L&ޝ{b1qQzrYճ2]|uX=}I sbAcf%V7b Rؘ,= LBVG(-zQ: d:z(ʇqnehl#/x U`&UAh.Ob AX&Q΃LK  Dr! [Ȥ6C]& !TB!k#SN$sf\3l|S1yodg|d%t~YkPWALՆKx_=>۬e: yx"wFG k,_B܉@Wg/x& &4Xb>1 aQ- dn^XP|CNL=,IcHefl`f̾VfZL23DHG$43(*3`Vt,kev`M0uyTfQZZ0f_+B5vD0F$sR4mR fLke6L0^+3_ Dy*\`6ZE_k>T&{U3`dFfٕ]νf]3ZYkOT'KbB^`T't2haܶVɦsjMvmQW:qJ? *\pI!g4%ഷ Za*mEKبp*X%*P,?{A6)H|}"q"qb呍&Ӻ@[}_cZ,t=(-U7b(mvk,kq,V A/=V_ru=ݒC9ϊn]9r|^"ʘFӠfobރ}7@^*C7WgLo;[Nq(|}s;_F!TxV^XszN᷾lV,Z"Hг`0p[X &1>^A|LM%5?W҄c>r Qis9I뫩Z ؼ)灱ZbUά`Y+\֏ S(:ltsfkwV4aQ&Hԯ\6ΧجydN0WL:C-yʯ&I7?}V5 ~ͭȈO]XyuAg;݈X XORJ"^3v~p"}gaM!L `3]r'lЀ(VyJܻnڽre ̧FF FF jCj#C=v,<-rTؒTv7[(׳f}> ~l=ԋ4:@=!\y8@)Fyy ׽{gZu/AC_]/!"SVAVV u{< ;N@;>ŜxhJDݫD] ISuaP kbα`!KYX4DPC|Z}9{ t:opBc֧0CT!+ɻ<;j"l}c/b<6-vŀM,y,ErVy+mړcTr2Z>q-&2GJj%n VbvwM \δ\Xj: =(_`[S„TI᛽MkfoLSGAYaNYtrA; ۸k15kP޾GXXMѱ jq/viyx}4yNpPzJ4˫5fb2|>+ ދËl_`yMdYō^ݥ6Rs~CՑ r+b}` .iprN[vY #0\t{|,Ws-mKs T| 'y.bXX7>'`΍^4ڒ~y+%_Kևq}H#՝#$Q1;A. s@H;_j ƊShf E:v8n*g;+:qy<{L/;1SD3ZOd;٬fDXK'1.+1T&HX]rO2H 0+ZjL)ۚlcRȡ8Q\O;=U 6xmApֻ\(Aex,b9RWa4#F^RJy=J ߂|F(0ww)}IGŊ<3;ByF=ϥs/a'0:C+4V2뎡'n/-b<~'3co5*JJ5p%l ڊ=@pJȯ)A~ D<6a>L.ёqJk]`j$vaDe" M PƿZqf;{ ihY*:rN:Zo㳕On̤V]0mX"=O5QO$@@ߧq_( [X7+l(9 v2*ݓ1,`('7s K-H5erH jl0I , I kԨ(rzCz7i +yqa-Z92-MaNsʺii=m* F*)YV9z\rlk3_ jYG}¤ArNj?y>0\rsyj, ?ܛYa>6]>.I|#'䓬 y3Uڌ.O=$Lb8ϼIpc*f`Rw96c7 a@ ei$Y,0P[^N~˽*2fc$I#hxĠaLw {kZ=/57hҠԿ   =ԥ*i&eH³ؖ<-tYH&ap@sFc`<VXT!G@.tǏALxc]i =:G l9ok(+p_'R./+1TJviQ4RKrCtíuoo,3p{!Ox4ڧB^Qzg/z_-0basŴ93ۜm)`[qzBGtGCfRm驣K$tFuY%ؗc횎}\Yy_J&eT 6&U 8 X:ТlErz$ `|/2Y/JA%!{ h×Mߥz]bQ#T9+`_'oc'q,8(z{7! R!u_`O⑱"c؃8Ps*`--OCү>J5%d@PFTXGlY{󰧙xV\u?QZ}7 V͋[Av:z|q7ֿ{!fx4"$D~E"L b[J+qzui`CnqGT!:k & &([RV-G"'yNF5_ oPEJZ ^v*&H& &va\5S 6H'd| hH/LA0`r 󾮿794 S3TQ=H0 1ޜWiP4jfk,Lkn, . v}eh6fDmt @Em:8H"ŝ3qv@@TWHNtgsؙ&:Ƌ\V7SJLe)RƏEl#L#sJ-\)pJœ E0g @6NNP u:Ej뱡'$O Xҡ0U1!YnG0NLaN͵s7Ut=0m3 @f`tHbnL<.`4gv;Pmoܱns8?%>)s}₈1xVK>;Xo6U֫2i Rb0BSbCp[>m5j8dLD`BlԾAI8ŠʹLMg1ruYy+B!|ȯ&HB ­fzR9}zWrޭʛ V ?>I޳zϾuzד A,`Pe~ T8+N$#az }JQ|:X늮@+9@Q~~ߑ|XE p@s@GgpGLahp[A M ^02 Pl%W٣XgD|Eu|j0dicj=E]{V?g OˠgC]Y8yr!?M0㺮g#lT'l 0U]fOsࣖ3Bzh lf=hOM6b@*W(W76/yEySpWyK:||ՀJ lTN29l{(aSƍҊW(8?0Hkq},Gv V_뎪#L}*S+UXOxpǃo0-/ōARԞT=@b F8jSh4›as`Pe+!Sv3$)Dib>8-t 4ij4.bNʦͅe]E 1lʕ ShSM;r"ҫJȨljGSǑl f,hKX1 aϡ28=Az"oM`tAJ81OA1sLn5UEPTc5`t{rqb2 ᾟ?RHfwrRJCHoݬg~7v َ8yHpMVoQ=xT(!!x}flĀ%='OAٯȮS(=Y}ƞ݌bNHɝ%7_Q;ϠgmM*c%sHBGaLjgm&p5mrD}˲!03-GƂVx@__CҘU/p1qFtD z9*_pM@2@+Yiz]Q3["*\ebdz|"׬e-eUyn"*OΧr,Dk: ` bD:Vqq^~7#{wbIa0!c]TKaRUs|XI6@wX#4<9vuɒY>Kp/B%`h :@NѪ0MvNnc:LցP$Ugf4}1L}'3d_-~4S0}ؑe hfVYLG!lMOF3{-VT~].4z^)Qd&պzGueF3U̫s$h_e|Kt$gx'wtiE7VSx\3?ۏ䦋3> }:4D%YbINeGYKB׷G727$Ͽcm̱J2ڦy+ `8,+,|; W'Gm6rp0+ӄ"+|r l:hi6'gح/qcwL|yPs]o6+-,J$3յȡlG9ߥ!-`^t]66tqUFʥ"#GuBd2$M `§xށDcf 4~IIܓwo#tG0>.p>g~VxF{6$H".4J"5%ٰ6J Մ_[,"iR mP* zil\[)~ϙyvQl{'̏s̙3gxf[t,cxMN0맿OBed$V|[ZD* q8P~9xqT`qk:."jI\,l܄u&|tp-G"dk>Ga(h &¢Q܄l8\bȄ `$'Ⴖ|>o!@܌Q₺n[!u k:Pn%6ačs꾻00')ϗKo?@@+< O״68yQW3ZFwх,hɈj8sO;J8/Ɯݕ2l$;v"XwU8qs2g}&jjlS_3Y>5}e}y۩CF÷'"Pj T^;%$7.:h]s4&9<7^1^~ gqcw..EɓGn+oee1ځLͪS2A /LM{H")*FEs?RS5E I'[|B|B'[z'ٔ; 85gyIq\X&RKSaz*1ݰ W.!;>%IjH9{>~InqW|61DQW8ͦufsK4| .qKXgn+3u ]H K> p%̎O8NZ<65'#6Ŗ9!--KJsB0"|GAM1h2AƠ/͕!W ɯ\A E*[#rwdjbCH0| }ו.=#ZO:m?Ǫ:PVzғ_ċc3YT 4*5p"u1lHN7_Ȫ?W?v~*v&g706xw5 QT z׬3=sNO4]͇o:Hl]W=Ja;kYrZIQ~m ᗐр#o׿f>bNI,<)7eIy#Mi/ePl.dF8YTm;̳y~>__7QkQc8ZێBYϷkn Un~&<|Q ?[%(G}i nmS]x(lOW-` Gs![xd Qpyl#pDh*K8Wk; h$-Al,Oog53hCQshL<|}XZCŽoaj/#[Ln/mʞ: ob5uT4ɏd>#ѩ\[Sd7Y>2=\^Gf0<< \"Yx׈Ĭ,(W$ASYÊF=yE2mvL6_BOR{,Jld#Pkh=߶(7:M:M_i3ԅgd2QlRBYB 5e_vgڽ,"}1MuᇯF{m٭gPY"CB7f}1TIdI~'5Pj~i3/f#am.`rR!5K凰hkUN|<:B F8\F J\2fy6T<< PίPhjC0CEy'd y^+D<x+i(0DW8Vo cuֵrTIjt( (t @A&u:Cc8 r& ]+L;^=\Y^!xhbJʃ>ΉH&9Gv3@QАF0Ԙ6Lc!TB̔Jpzeci09~?`v`nR7c h/Q2ˆqC{::l3St*vzn@70~K"u-bͷfȘH269!1JVTlbSeV"W򡼨;4m }i~VلlC͡%G\v` qT{#heyJOFi%wA e%@Jc|qlAj4ER*":m3Ca 1y>Vp<Դ-s}1!.< S3(F1;6O<mDk ~N~<ñL@NЇ؇RchK"pST4pw(D¯5 poD+VBE^Fނ,vmk 淙_7~)=b gdPI/ X|==x0˼=$Ns_ :`@̓1;PἲhU7:I}-CKYq|->@C42ioJ*@}>M>R_4}( 1qe19~cD I@ߡz$Щ?/?tW>/ߜ6 #v,Bo ŏo#GE$%Ώ 1wYH#K ;gh1j9@?UlMӎV l۲sFߡqg\o7$.xZ.dT%Иr̟nW&|-"yq\0fr^X| ZݢؒG,eVtpZ~ i7R,H;,ʕ0|Q>CaÕ?8'g)*lS4o EB|&ϻee!8K.rqEݙ~' ovr$#ɮ5_1ILz%=R;g.*T<]XxYw VVJT|NrH:#c j`̳xF\.\\ܣpOD ?΂i5n\b8 p߁ܱI1>m{!N/͂w\. ~p=焫W7._Q pG~ q@PB佤@m3+x{tG}< Wmg*J]Re^(w%nRB8 L[:FW0uGhjQp;F,iC]lS;eNg4/QIFG}%b<1j=-L]q{BTWOvv/puxVy=%b(s:~OzSTb(s{|2syٱ:n:^+luiw<o%DJ-~ID^Z+!e[K09]A+ zVb} 4I!,t)A7C 6;k>}<^ +{:ъ/ [{A{[%" .[jett1dԶп̝bdDq/Á%\yQJ2+Kb65XUJM>Jo_rSx yi8Pojꦹ) cH OsZ%[`Yh*)b"GtEJ޼0>7:>VmJD۷SrDb^^ bU4;a|wvrcu Qxc;Ը:2a(KkC}~Kp1^ܪLpt*ݞ%vwiUxOA5p3mr8c^`H y7ȷkDP.NJ9$,BQ\G{\.CYKYuI_3vOx'8ww;gjbmP6Q;=hAI$Rgcn\Ž4-d'l5>WH+'1?!>fĄb' w!z Xģ=8*VN_^S#]N[˯E()EL1mm{:nQv L4*]i!l lEM)}wNVQYUjjgϩ[иh4 * oR(Ԕԋƒ2a+n{+')4)Pк6Q x /.5Dli)hs[]e^" 1 s2IڊO:VA31Zp+BDh<Os38m'pZB(Wsr pI{'@Zvp5{Hfp F%bBP0ϴr`uZab%xC<+Ny딢"m}eúᕌ<-VӭbXe뒕~UuXWzV_@EV;VU:npr[Fê-NwXIf+}\E~jwBzIXzGUr[5~'eXL,PV`ddZY,BHvkN+ U6k5fq4ڽK~Nadr;]8LրZⵙ$$R GUovVW;VYw:/Жڂyrv#i =pʲYP._yZ^HbmVٗ]VuV~$r@Y. =cЬ4Kݮepe#{Ee&DsuWpJT۩J)Xk=kIƕZ6zHһ.4E{BR>luOжxEV~2@/z-s\}>Ws\}'?W,vv!LCa:B|/؝ItݿR/ o"}#<~r G 4.u+v#| 3_GGCxaɅ{_ކ07UtW>'#\;SsIlKϤPz2A'_o1'/?m|  fA{b|xAA?Ya!~gSfrSt]kП p8wb"=. qX%o?7!.al۷*$[NAw>ؒi9LXH> ！&uyIt pQȟ4O#kg>g8R{YN%+`9Ckd.OOCW=Q Z8S4z95^̉F?8{/ᚳ &hrOu2؝9ыe.nVN.g vl\#T??O?YloxkٙO'gr7oNHyb8q<1*~rHb捤LTحx MAwVH0b*N/*xw 59^!ktrӊd6W3?*eÇJVJ9HY )bw-yjשT9RƏfB$L]$G{R9֟9v/BvJn~՘n~`Г>jnS,>R"XQ^ncTqT9X;ؼXt']FW8p捩E,y(SR![CUܴ O@YȘHe+#9x[ >f=b8~|w rc"T㉣T>FMϜ)#9n?sW0ϭRw{6U CŻHM6lTlI]c}>nC,*CrP8uf+ؼu߷`80۵S'Mǹ]49֣>4rj=yBI-"=7l3^&&zAت3|֗ORN Cw) 55C$8jPajXcTA(qpD[ PA*ǰ3J@8 ~ڑXJbD*b _~;/j,Z.K?J,9*V4Q3ǛeA)A0**Ow_3}b䏦M0跃Qg܃O,LL?K5.G8N~@sD'Cmv\剤 + /m.jQe"_d2^1Ԛ'A+R9u6RPxG\rNrPBASyW 0_ũsZ+̬;aiuc!:zWqu =Јng St]4')\Ͳ}J׳:d[hw/(Hk.=˘è9F=v0$>PE#ةL4^.#; u ĥl*.Qo3,Ȫ3 %A87t۵&SH+XJ\rJ@^j?"VS|b!zp>^mS|Z݈8/[bF%\]+VY@5^B42'jE (F)̻Nr <^ێ4o>Q<JOBc9D7療\3E3^e0BciݪhA9@/f̟lab+!O|zJO26z~ydYġ֗L heg1J!J:!TgZnԑkdJm%tq# W YF͐ut?$'|&a9<ϗ mmMR\*C8t<4A_/W-Ӭ}EPffθ"uJ/(u ~Tn'~&$xӘ+W`OWhO{>=Ө|=ݒܞTўeeKk*AYF9T.o_RYfsLm{hD~TmA䶭?}ʾSzGVhD)6EcZ}@3MOkxWa)jTۨ7 x_"rN/te̻y%l$T sRNY|' TMNʫ3r}A:b>0pzSZ;߯GBly#1)} CQݾ桌1}#ݜ8RQ ޵Ǎt*Cي4wQb>_*#m:ҞLVt;qp>:^]t2F,؊x _j6#sYP~+c^}.S$d{\}rף>F.3HMOJ ZSh$^dRv&K,m"ݎ4mN/_\}hE(5@S$4wh@p$ܨ@/QpE3 zkE㟶tfs u2@3.ם"z1mAs9fYފ+5S%晔$1Vmƣ{w9z9Z?jgݬ+yREl}4xz,?hV`d`i$NĚ-f@ڵ7k Fc\ E#^?*VAPGW,J4Jxx kG=1kp$>P˫?PKŒy)2< HEXEDIT.HLP[ u~.>pw85O%Cix:,İ#L4 M B'h⾝\4 t.oX(mIISlY jY6]RLD _3=jwwhɱn b}?du4>W9Kv5F亄I>98kQm hлHfC*7 –Z.*yaVEIT ۧ3ވiERY(X`1Ya8RY1Uӊ*ILU1|n p'DGJI)-&V"ja9!V1XDQx:r[Eۭt1 w9|i ~`o1Lz$bAbrmZa_r#Q;"Ѷv5|Sp gh"uOŖwI)0SҬOItw؝K^mvw9J$;Ìs6 !m+8ȣ+%]12.ODS@> y# cGȸ$rri%Bl NG̓T i%#!Cbc \:f`b8.9Xm5H("ES=pk7p^Ġgj@g;KB;"7ІqYKWTh݌#*.nѰ)`~y/6ϙE XyaN}{p RIQ4$.M`a7bҝ;A |^s Va~\zq_S?Oh!qbym9}-^\n\_5N|UCCx01:B#u&BTĨNUQp5QU ֻ9v WZ%p40_5]= gȸ!b YyMa-ҲZKFG݇vu^Rjzu_beZc>7k[ilhYfl)Lu&[f 4~p9fVa%!\Q9ڋW4wK=8mCzcqC͡ߧQ, !)%e Z޼"Nn0LJyȆEChXM\M~GYU6q/P(?׾'x, k/ǒW(:45u8YYoh 1 FFVR- ݣȓ0aۉ/d_?P(?W@`3Ur⁦.$M(01?L/99wyx/y|bʋ ,;)9dJ O`Ȩ{n^㯼$} CgRwz˔нµ 'KĺZм0<M l[U/:_.15$wb$oUv"1!EfMRN+2M-c=d9IC~W8d%aC~qrCVw+Hk"k&]r M6 \K\Ad[tyrm"4u5#^8DbA!Y㖹 8A$46\)l*'l1>Qxhxuؙy^@I uB$DN|{w? mm߱GWܑ;]lq=;n 4[AXXu2H*hULJ|7'EfNꤷ0m)hE0qxo4Wag5ȯ> ̅f8DJZъ?WBĶy_f]4yA;avǠ:::.7/}S=@^LцOߊ^M_VNߟѶOfOѾNeӱ͛}IMLjܐIII[^Ų4tw.~w7?̋;wB㥗`G?_:7s?_s¿:|{W_4-]E8p@\랚;ŕ?vqdj/>to©S_>;Ӹoqgsdqx`qO| =' 5.7_\x^Ӂ3']wHߥ >_qg0WP \9#T~8q_yǸS_?ud19_'N}+j=hHrCljShƣ+$@DoPK`.)yߕ HexEdit.icoN0 ]TJGxlt#L^."Pv E5_U$Hb[NZc^9]Btho9ua,XMs{:d#g! Ktz{pike:\SFdozlT{mjG)}bg3&2Fgv?TOZ?$nRYy3xxrt=?ōxT>_oyZhy?}Bb4a|Њ]?rQgD=m9ЎGtPKzzz)A2 /, HexEdit.incZno W'D tlvEQ{S0FP"‹J-k}=gx&)~;9sjuyqy1VBOOlq>1~E[͖ꗣ:1Ʒ; Qӄ]_iR+{6̶w]ɞMG>%)+oџ c'͵>mkU=6&WbR57XaY}u$Jj#+Ხ@]F6C4P'^dzcXa`l= BgGvwEL*]f{wK!Q(I7z?M]Ƃ>lJUWhyQXPL4uOiǑc:*lTcߕ(|1 B?̃}!Yd;c>DUޣGwO,x tY'fZ5X^۽6vS$MIB[D&8[,ν㜕#99e'/NR ,5;=ip8criV'beSRW>I' [ubｐ>j &&-dJy΍0n0nܓxCZ&{J TYS*{+ zw^{SS)  Hnb2z x&&ӥ:Q ꣩+7~SWN :|ɲS }qb+O4eHHacTi?>o'4ӥ@DJ[wBYLOLi|8'X&R'ŵ =8j>8ρpKår(XCщmS_B$"Wa*f- =>IbDRPM}8½JCE>ޱnd/&"kJkIK)w)jR&Υܹ%IX"5IBX@boQЙQnB91oʷ7ZY6P\KpŎ_@@hѐqhiR,跹r>D@Hvc"L.K"Ib7s%,J! ~R-P*7m|P'8A0'YEohac?]bV)EpxF5Q9㑫0& Y˜m 0.XPͤ}.]jX{WSƎɼT//ضϚfo<_~EZTɺdDnXZ0|(Cu-ۅc` RujaT 'jn[ P- _, /QT#Pfv7l&[NuТAY}b +۰3;0Luf,ME ?n6*D7ͧ ty?PKVx)7  HexEdit.makuN 0 npŠnZhj1jJϷB5u8{{]q uϮ⍗+k nuW8"Ri%C&đҐ|9sS&K]jD ݖ%{4rrڪaFFˆb4cVvzF/PKIy)8 6 HexEdit.rcZo^È+e47V&A!*U#۴I33~~AhQ}^s3rI?ҝqc훷oTA ;?=雳y1Εl-=gRf>4 V׆DS*Pnh=i2K-2Ll6 &emƚW)"=0XϞFuD݂:J)tbǚ3ӵg(6 ʈ1ω僵bXXC0n_s|NIs&Z+ũH])1,N S+%FBj.qȸR♟/kEႾid?r^\O֠i `De -{~YTTI|ήI__D+r6Z~Bڮ b%O]"]XAM\/čU0bCriYx@+\uP,IR3M^3WA9<0{Ԥ2ԲqHG\iF0 GJ<@+eKQT[czN^܍f.;ǜp2BkF>fF-M0'̟*쩾4 @x̱}ݙ]>Юؒ|frcpfXoBC.A{7Ƀm_'CMJѱV ,Gl6<TG΍CQS `|%E$Iw|ٷ #j4tG2DZk}tweܬ?;wbvj|.܂jvya < Fc B,̼6#uIA ,AyW 3. \p _ k4wdOo\lahQ>͗Tnߜ@eEyKyޏms`OxLn;k I Z~e)0ʂs7rF,+މ 8qaS, VAӱX"448O3VNxY` g + U.O]f<YCDKZni]:=w]u-7p\b-[*Āk郀1Ofv̅{Gg7fӦm;npͽ u} 5;^蕍ay?%5f& n6ݮ44 0MAYe9PvDQPdyzc\9٣9q!^ %D{GюNcjOv|j?tP.?Wh,eZHjRWc5αǡ%9Y:M#Fn" 'Jd<\HڟL"JPaw⽨N)SGamw/v=:K aK! A!=c@?M^2|aJUGDwr:{C@_&SGruȡӬSOx؃#;޲K |1*o,y;<6-*-u\{ZЊcOT(Z5劐A^/_kEڐiJkFNb"CA1rPT~E4F TXH-17jk RMV-2]ʫt)Z+U@p ee XĦSl=$lm%YK{oCnV T!Be*k13^>@"mr|UmOv=m4r!d#q`jn !G֋ Эv2>nJ*R5VVUiiE>WYv6YhmK~P^ A^}: ŏ$9E^ Yq=IabQ##!FX*[vm ˇyMsHe܁{'&l ފ~Cŝuq5t hMKW[{黫PMo0ZJV6VϾF6rK탃0EdkPkca%Rbh-Xnw s0t"n҅t=}_ GYqrE`zng'3 C$T)Kh3S_mR򣲶R53JFi:JoJVY b='7O|\p%`Fh>L:3(+r*&&ro|dİ)BP!"Yn@mRu!9 8wz)ǔ\>j~kŚ«n%裖{k[M&.$f3DwPwFl5xk;;S2BG^ZpMs|` @~e},M?=<*21p|;#~`Mt=+xZXMո@~Z-nliOE% ӮtwVj| [Xމ"ok$U% l,~NҏB3-Gs,u{w0v@>xɍPKXY)ĞXC HexEditT2.bmp?O@ PTe2TV.]PLU ndKTnij;};>;l~><_BA\ N/JyHC9xP9WWWepxVd 1R/'!Tkc{ܭӷl?q.craN9b6ok~~$IүAw СKˁHr+41T[<ͯð G/*K9qASHcWTG^ e!cCǜi"_FC3ڰ6~:3ٟ"k1ʽPЦ{,3B*9 [OF)|~HMmHPM3*g?A~Ň70%Vm! {  j0MBDVЃ>݄S̚@uџH1PN,90 G㨸M/>GrQ1HvHpƮu%"}HexEdit.icoPKzzz)A2 /, ?HexEdit.incPKVx)7  KHexEdit.makPKIy)8 6 fLHexEdit.rcPKXY)ĞXC WHexEditT2.bmpPKZBMv( Hݍݍݍ؈ 0( @ ??????BMv( Hݍݍݍ(( ff`l`lff`"lfffblffb,l""fƂ"""&f"""&l""""&""""&lb""""&f""&`fh`unit SaSysHot; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SaWComp; type TWMHotKey = record Msg: Cardinal; idHotKey: Word; Modifiers: Integer; VirtKey : Integer; end; THKModifier = (hkShift, hkCtrl, hkAlt, hkExt); THKModifiers = set of THKModifier; TSAVirtKey = (vkNone, vkCancel, vkBack, vkTab, vkClear, vkReturn, vkPause, vkCapital, vkEscape, vkSpace, vkPrior, vkNext, vkEnd, vkHome, vkLeft, vkUp, vkRight, vkDown, vkSelect, vkExecute, vkSnapshot, vkInsert, vkDelete, vkHelp, vk0, vk1, vk2, vk3, vk4, vk5, vk6, vk7, vk8, vk9, vkA, vkB, vkC, vkD, vkE, vkF, vkG, vkH, vkI, vkJ, vkK, vkL, vkM, vkN, vkO, vkP, vkQ, vkR, vkS, vkT, vkU, vkV, vkW, vkX, vkY, vkZ, vkNumpad0, vkNumpad1, vkNumpad2, vkNumpad3, vkNumpad4, vkNumpad5, vkNumpad6, vkNumpad7, vkNumpad8, vkNumpad9, vkMultiply, vkAdd, vkSeparator, vkSubtract, vkDecimal, vkDivide, vkF1, vkF2, vkF3, vkF4, vkF5, vkF6, vkF7, vkF8, vkF9, vkF10, vkF11, vkF12, vkF13, vkF14, vkF15, vkF16, vkF17, vkF18, vkF19, vkF20, vkF21, vkF22, vkF23, vkF24, vkNumlock, vkScroll, vkApps, vkSemiColon, vkEqual, vkComma, vkDash, vkDot, vkSlash, vkBackQuote, vkBlockLeft, vkBackSlash, vkBlockRight, vkQuote); PSaHotKeyItem = ^TSaHotKeyItem; TSaHotKeyItem = record Modifiers : THKModifiers; VirtKey : TSaVirtKey; Registered: Boolean; end; TSaHotKeyEvent = procedure(Sender: TObject; Index: Integer) of object; TSaSysHotKey = class(TSaWindowedComponent) private { property variables } FActive : Boolean; { event variables } FOnHotKey: TSaHotKeyEvent; { private variables } FList : TList; { property setting/getting routines } procedure SetActive(Value : Boolean); function GetCount: Integer; protected { method overrides } procedure Loaded; override; { method handlers for items } function Get(Index: Integer): TSaHotKeyItem; virtual; procedure Put(Index: Integer; Item: TSaHotKeyItem); virtual; { message handlers } procedure wmHotKey(var Msg: TWMHotKey); message WM_HOTKEY; procedure wmDestroy(var Msg: TWMDestroy); message WM_DESTROY; { private routines } function ModifiersToFlag(Modifiers : THKModifiers): UInt; procedure RegisterHotKeyNr(Index : Integer); procedure UnregisterHotKeyNr(Index : Integer); procedure RegisterHotKeys; procedure UnregisterHotKeys; public { constructor / destructor overrides } constructor Create(AOwner: TComponent); override; destructor Destroy; override; { methods } procedure Add(Item: TSaHotKeyItem); function AddHotKey(VirtKey: TSaVirtKey; Modifiers: THKModifiers): TSaHotkeyItem; procedure Clear; procedure Delete(Index : Integer); { runtime only properties } property HotKeys[Index: Integer]: TSaHotKeyItem read Get write Put; default; property HotKeyCount: integer read GetCount; published { properties } property Active: Boolean read FActive write SetActive; { events } property OnHotKey: TSaHotKeyEvent read FOnHotKey write FOnHotKey; end; function SaKeyToVirtKey(const Key: Char): TSaVirtKey; function SaHotKeyItem(const VirtKey: TSaVirtKey; Modifiers: THKModifiers): TSaHotKeyItem; implementation var VirtKeys : array[TSaVirtKey] of UInt = ($00, VK_CANCEL, VK_BACK, VK_TAB, VK_CLEAR, VK_RETURN, VK_PAUSE, VK_CAPITAL, VK_ESCAPE, VK_SPACE, VK_PRIOR, VK_NEXT, VK_END, VK_HOME, VK_LEFT, VK_UP, VK_RIGHT, VK_DOWN, VK_SELECT, VK_EXECUTE, VK_SNAPSHOT, VK_INSERT, VK_DELETE, VK_HELP, $30, $31, $32, $33, $34, $35, $36, $37, $38, $39, // 0..9 $41, $42, $43, $44, $45, $46, $47, $48, $49, $4A, // A..Z $4B, $4C, $4D, $4E, $4F, $50, $51, $52, $53, $54, $55, $56, $57, $58, $59, $5A, VK_NUMPAD0, VK_NUMPAD1, VK_NUMPAD2, VK_NUMPAD3, VK_NUMPAD4, VK_NUMPAD5, VK_NUMPAD6, VK_NUMPAD7, VK_NUMPAD8, VK_NUMPAD9, VK_MULTIPLY, VK_ADD, VK_SEPARATOR, VK_SUBTRACT, VK_DECIMAL, VK_DIVIDE, VK_F1, VK_F2, VK_F3, VK_F4, VK_F5, VK_F6, VK_F7, VK_F8, VK_F9, VK_F10, VK_F11, VK_F12, VK_F13, VK_F15, VK_F15, VK_F16, VK_F17, VK_F18, VK_F19, VK_F20, VK_F21, VK_F22, VK_F23, VK_F24, VK_NUMLOCK, VK_SCROLL, VK_APPS, 186, 187, 188, 189, 190, 191, 192, 219, 220, 221, 222); function SaKeyToVirtKey(const Key: Char): TSaVirtKey; var i : TSaVirtKey; KeyVal: UInt; begin Result := TSaVirtKey(0); KeyVal := Ord(UpperCase(Key)[1]); for i:= Low(TSaVirtKey) to High(TSaVirtKey) do if KeyVal = VirtKeys[i] then begin Result := TSaVirtKey(i); Exit; end; end; function SaHotKeyItem(const VirtKey: TSaVirtKey; Modifiers: THKModifiers): TSaHotKeyItem; begin Result.VirtKey := VirtKey; Result.Modifiers := Modifiers; Result.Registered := False; end; { TSaSysHotkey } constructor TSaSysHotkey.Create(AOwner : TComponent); begin inherited Create(AOwner); FList := TList.Create; end; destructor TSaSysHotkey.Destroy; begin Clear; FList.Free; inherited Destroy; end; procedure TSaSysHotkey.Loaded; begin inherited Loaded; if Active then RegisterHotKeys; end; procedure TSaSysHotkey.SetActive(Value : Boolean); begin if FActive<>Value then begin FActive := Value; if Active then RegisterHotKeys else UnregisterHotKeys; end; end; procedure TSaSysHotkey.wmHotKey(var Msg: TWMHotKey); begin if Assigned(FOnHotKey) then FOnHotKey(Self, Msg.idHotKey); end; function TSaSysHotkey.ModifiersToFlag(Modifiers : THKModifiers): UInt; begin Result := 0; if hkShift in Modifiers then Result := Result or MOD_SHIFT; if hkCtrl in Modifiers then Result := Result or MOD_CONTROL; if hkAlt in Modifiers then Result := Result or MOD_ALT; if hkExt in Modifiers then Result := Result or MOD_WIN; end; procedure TSaSysHotkey.RegisterHotKeyNr(Index : Integer); begin with PSaHotKeyItem(FList.Items[Index])^ do Registered := WordBool(RegisterHotKey(Handle, Index, ModifiersToFlag(Modifiers), VirtKeys[VirtKey])); end; procedure TSaSysHotkey.UnRegisterHotKeyNr(Index : Integer); begin with PSaHotKeyItem(FList.Items[Index])^ do if Registered then begin UnregisterHotKey(Handle, Index); Registered := False; end; end; procedure TSaSysHotkey.RegisterHotKeys; var I : integer; begin for I:=0 to FList.Count-1 do RegisterHotKeyNr(I); end; procedure TSaSysHotkey.UnregisterHotKeys; var I : integer; begin for I:=0 to FList.Count-1 do UnregisterHotKeyNr(I); end; procedure TSaSysHotkey.wmDestroy(Var Msg : TWMDestroy); begin Active := False; inherited; end; procedure TSaSysHotkey.Add(Item: TSaHotKeyItem); begin AddHotKey(Item.VirtKey, Item.Modifiers); end; function TSaSysHotkey.AddHotKey(VirtKey: TSaVirtKey; Modifiers: THKModifiers): TSaHotKeyItem; var pItem : PSaHotKeyItem; iItem : Integer; begin pItem := PSaHotKeyItem(AllocMem(sizeof(TSaHotKeyItem))); pItem^.VirtKey := VirtKey; pItem^.Modifiers := Modifiers; iItem := FList.Add(pItem); if Active then RegisterHotKeyNr(iItem); Result := pItem^; end; procedure TSaSysHotkey.Clear; var I : integer; begin if Active then UnregisterHotKeys; for I:=0 to FList.Count-1 do FreeMem(FList.Items[I]); FList.Clear; end; procedure TSaSysHotkey.Delete(Index : Integer); begin if Active then UnregisterHotKeys; FreeMem(FList.Items[Index]); FList.Delete(Index); FList.Pack; if Active then RegisterHotKeys; end; function TSaSysHotkey.Get(Index: Integer): TSaHotKeyItem; begin Result := TSaHotKeyItem(FList.Items[Index]^); end; procedure TSaSysHotkey.Put(Index: Integer; Item: TSaHotKeyItem); begin if Active then UnregisterHotKeyNr(Index); with TSaHotKeyItem(FList.Items[Index]^) do begin VirtKey := Item.VirtKey; Modifiers := Item.Modifiers; end; if Active then RegisterHotKeyNr(Index); end; function TSaSysHotkey.GetCount: integer; begin Result := FList.Count; end; end. unit SaBrowseFolder; interface uses Windows, Messages, Classes, SaOle2, ShlObj, SysUtils; type TSaBrowseInfoFlag = (bfFileSysDirsOnly, bfDontGoBelowDomain, bfStatusText, bfFileSysAncestors, bfBrowseForComputer, bfBrowseForPrinter); TSaBrowseInfoFlags = set of TSaBrowseInfoFlag; TSelChangedEvent = procedure(Sender : TObject; const ItemIDList: PItemIDList) of object; TShellFolder = (foDesktop, foPrograms, foControls, foPrinters, foPersonal, foFavorites, foStartup, foRecent, foSendTo, foRecycleBin, foStartMenu, foDesktopDir, foMyComputer, foNetwork, foNethood, foFonts, foTemplates); EBrowseDialogShowing = class(Exception); TSaBrowseForFolder = class(TComponent) private { property variables } FDirectory : String; FDisplayName : String; FFlags : TSaBrowseInfoFlags; FFolder : TShellFolder; FImageIndex : Integer; FShowing : Boolean; FShowPath : Boolean; FSubTitle : String; FTitle : String; { event variables } FOnInitialized: TNotifyEvent; FOnSelChanged : TSelChangedEvent; { private variables } hBrowseDialog : hWnd; public { constructor / destructor overrides } constructor Create(AOwner: TComponent); override; { methods } function Execute: Boolean; procedure EnableOK(const Value: Boolean); procedure SetSelectionPath(const Path: String); procedure SetSelectionPIDL(const ItemIDList: PItemIDList); procedure SetStatusText(const StatusText: String); { runtime only properties } property DisplayName : String read FDisplayName; property ImageIndex : Integer read FImageIndex; property Showing : Boolean read FShowing; published { properties } property Directory : String read FDirectory write FDirectory; property Flags : TSaBrowseInfoFlags read FFlags write FFlags; property Folder : TShellFolder read FFolder write FFolder default foDesktop; property ShowPath : Boolean read FShowPath write FShowPath; property SubTitle : String read FSubTitle write FSubTitle; property Title : String read FTitle write FTitle; { events } property OnInitialized: TNotifyEvent read FOnInitialized write FOnInitialized; property OnSelChanged : TSelChangedEvent read FOnSelChanged write FOnSelChanged; end; var BrowseFlags: array[TSaBrowseInfoFlag] of DWord = (BIF_RETURNONLYFSDIRS,BIF_DONTGOBELOWDOMAIN,BIF_STATUSTEXT,BIF_RETURNFSANCESTORS, BIF_BROWSEFORCOMPUTER,BIF_BROWSEFORPRINTER); ShellFolders: array[TShellFolder] of Integer= (CSIDL_DESKTOP,CSIDL_PROGRAMS,CSIDL_CONTROLS,CSIDL_PRINTERS,CSIDL_PERSONAL,CSIDL_FAVORITES, CSIDL_STARTUP,CSIDL_RECENT,CSIDL_SENDTO,CSIDL_BITBUCKET,CSIDL_STARTMENU,CSIDL_DESKTOPDIRECTORY, CSIDL_DRIVES,CSIDL_NETWORK,CSIDL_NETHOOD,CSIDL_FONTS,CSIDL_TEMPLATES); procedure BrowserCallbackProc(hDialog: hWnd; uMsg: Integer; lParam: LPARAM; lpData: LPARAM); stdcall; function SHGetMalloc(var Malloc: IMalloc): HResult; stdcall; implementation constructor TSaBrowseForFolder.Create(AOwner: TComponent); begin inherited Create(AOwner); SetLength(FDisplayName, MAX_PATH); SetLength(FDirectory, MAX_PATH); hBrowseDialog := 0; end; function TSaBrowseForFolder.Execute: Boolean; var BrowseInfo : TBrowseInfo; ItemIDList : PItemIDList; i : Integer; TempPath : array[0..MAX_PATH] of Char; Malloc : IMalloc; begin if FShowing then raise EBrowseDialogShowing.Create('The browse dialog is already showing.'); SHGetMalloc(Malloc); try SHGetSpecialFolderLocation(0, SHELLFOLDERS[FFolder], BrowseInfo.pidlRoot); try with BrowseInfo do begin hwndOwner := 0; pszDisplayName:=PChar(FDisplayName); lpszTitle:=PChar(FSubTitle); ulFlags := 0; for i:=0 to Ord(High(BrowseFlags)) do if TSaBrowseInfoFlag(i) in FFlags then ulFlags := ulFlags or BrowseFlags[TSaBrowseInfoFlag(i)]; lpfn:=@BrowserCallbackProc; lParam:=LongInt(Self); iImage:=0; FShowing:=TRUE; end; ItemIDList := SHBrowseForFolder(BrowseInfo); try Result := ItemIDList<>nil; if Result then begin SHGetPathFromIDList(ItemIDList, TempPath); FDirectory := StrPas(TempPath); FImageIndex := BrowseInfo.iImage; end; finally if ItemIDList<>nil then Malloc.Free(ItemIDList); end; finally if BrowseInfo.pidlRoot<>nil then Malloc.Free(BrowseInfo.pidlRoot); end; finally Malloc.Release; FShowing:=FALSE; hBrowseDialog := 0; end; end; procedure TSaBrowseForFolder.SetStatusText(const StatusText: String); begin if hBrowseDialog<>0 then SendMessage(hBrowseDialog, BFFM_SETSTATUSTEXT, 0, Longint(PChar(StatusText))); end; procedure TSaBrowseForFolder.SetSelectionPIDL(const ItemIDList: PItemIDList); begin if hBrowseDialog<>0 then SendMessage(hBrowseDialog, BFFM_SETSELECTION, Ord(FALSE), Longint(ItemIDList)); end; procedure TSaBrowseForFolder.SetSelectionPath(const Path: String); begin if hBrowseDialog<>0 then SendMessage(hBrowseDialog, BFFM_SETSELECTION, Ord(TRUE), Longint(PChar(Path))); end; procedure TSaBrowseForFolder.EnableOK(const Value: Boolean); begin if hBrowseDialog<>0 then SendMessage(hBrowseDialog, BFFM_ENABLEOK, 0, Ord(Value)); end; procedure BrowserCallbackProc(hDialog: hWnd; uMsg: Integer; lParam: LPARAM; lpData: LPARAM); var Path : String; BrowseFolder : TSaBrowseForFolder; begin BrowseFolder := TSaBrowseForFolder(lpData); with BrowseFolder do begin hBrowseDialog := hDialog; case uMsg of BFFM_INITIALIZED: begin if Title<>'' then SetWindowText(hBrowseDialog, PChar(Title)); SetSelectionPath(FDirectory); if Assigned(OnInitialized) then OnInitialized(BrowseFolder); end; BFFM_SELCHANGED: begin if Assigned(OnSelChanged) then OnSelChanged(BrowseFolder, PItemIDList(lParam)); if ShowPath then begin SetLength(Path, MAX_PATH); SHGetPathFromIDList(PItemIDList(lParam), PChar(Path)); SendMessage(hBrowseDialog, BFFM_SETSTATUSTEXT, 0, Longint(PChar(Path))); end; end; end; end; end; function SHGetMalloc; external 'shell32.dll' name 'SHGetMalloc'; end. x x4VS_VERSION_INFO?StringFileInfo041304E4>CompanyNameSheAr softwarejBFileDescriptionDelphi Windows 95/NT4 Components0FileVersion1.0.0.0<InternalNameHsaDsgn30.bpld@LegalCopyrightCopyright 1999 SheAr software)LegalTrademarksH OriginalFilenameHSa10Dsgn30.dplZ:ProductNameDelphi Win 95/NT4 Components4ProductVersion1.0.0.0CommentsDVarFileInfo$Translationunit HSa10Reg; interface {$R HSa10Reg.dcr} uses Classes, DsgnIntf; procedure Register; implementation uses SaAboutPrp, SaAboutEdt, SaAniIcons, SaAniIcoEd, SaAniIcon, SaAniPlay, SaAniTray, SaBrowseEdit, SaBrowseFolder, SaSysHot, SaPathLbl, SaURLLabel, SaSortListView; procedure Register; begin RegisterComponents('SheAr Components', [ TSaAnimatedIconComponent, TSaAnimatedIconPlayer, TSaAnimatedTrayIcon, TSaBrowseEdit, TSaBrowseForFolder, TSASysHotkey, TSaURLLabel, TSaPathLabel, TSaSortListView]); RegisterPropertyEditor(TypeInfo(TSaAboutInfo), nil, '', TSaAboutPropertyEditor); RegisterPropertyEditor(TypeInfo(TSaAnimatedIcons), nil, '', TSaAnimatedIconsProperty); end; end. d d4VS_VERSION_INFO?StringFileInfo041304E4>CompanyNameSheAr softwarejBFileDescriptionDelphi Windows 95/NT4 Components0FileVersion1.0.0.04InternalNameSheAr.dpld@LegalCopyrightCopyright 1998 SheAr software)LegalTrademarks<OriginalFilenameSheAr.dplZ:ProductNameDelphi Win 95/NT4 Components4ProductVersion1.0.0.0CommentsDVarFileInfo$Translationpackage HSa10Dsgn30; {$R *.RES} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO OFF} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $00400000} {$DESCRIPTION 'Delphi Windows 95/NT4 Components by SheAr software'} {$DESIGNONLY} {$IMPLICITBUILD OFF} requires vcl30, HSA10R30; contains SaAboutEdt, SaAniIcoEd, HSa10Reg; end. {*******************************************************} { } { Delphi Runtime Library } { OLE 2 Interface Unit } { } { Copyright (c) 1996,97 Borland International } { } {*******************************************************} unit SaOle2; { WEAKPACKAGEUNIT} interface uses Windows; const MEMCTX_TASK = 1; MEMCTX_SHARED = 2; MEMCTX_MACSYSTEM = 3; MEMCTX_UNKNOWN = -1; MEMCTX_SAME = -2; ROTFLAGS_REGISTRATIONKEEPSALIVE = 1; CLSCTX_INPROC_SERVER = 1; CLSCTX_INPROC_HANDLER = 2; CLSCTX_LOCAL_SERVER = 4; CLSCTX_INPROC_SERVER16 = 8; CLSCTX_ALL = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER; CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER; CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER; MSHLFLAGS_NORMAL = 0; MSHLFLAGS_TABLESTRONG = 1; MSHLFLAGS_TABLEWEAK = 2; MSHCTX_LOCAL = 0; MSHCTX_NOSHAREDMEM = 1; MSHCTX_DIFFERENTMACHINE = 2; MSHCTX_INPROC = 3; DVASPECT_CONTENT = 1; DVASPECT_THUMBNAIL = 2; DVASPECT_ICON = 4; DVASPECT_DOCPRINT = 8; STGC_DEFAULT = 0; STGC_OVERWRITE = 1; STGC_ONLYIFCURRENT = 2; STGC_DANGEROUSLYCOMMITMERELYTODISKCACHE = 4; STGMOVE_MOVE = 0; STGMOVE_COPY = 1; STATFLAG_DEFAULT = 0; STATFLAG_NONAME = 1; BIND_MAYBOTHERUSER = 1; BIND_JUSTTESTEXISTENCE = 2; MKSYS_NONE = 0; MKSYS_GENERICCOMPOSITE = 1; MKSYS_FILEMONIKER = 2; MKSYS_ANTIMONIKER = 3; MKSYS_ITEMMONIKER = 4; MKSYS_POINTERMONIKER = 5; MKRREDUCE_ONE = 3 shl 16; MKRREDUCE_TOUSER = 2 shl 16; MKRREDUCE_THROUGHUSER = 1 shl 16; MKRREDUCE_ALL = 0; STGTY_STORAGE = 1; STGTY_STREAM = 2; STGTY_LOCKBYTES = 3; STGTY_PROPERTY = 4; STREAM_SEEK_SET = 0; STREAM_SEEK_CUR = 1; STREAM_SEEK_END = 2; LOCK_WRITE = 1; LOCK_EXCLUSIVE = 2; LOCK_ONLYONCE = 4; ADVF_NODATA = 1; ADVF_PRIMEFIRST = 2; ADVF_ONLYONCE = 4; ADVF_DATAONSTOP = 64; ADVFCACHE_NOHANDLER = 8; ADVFCACHE_FORCEBUILTIN = 16; ADVFCACHE_ONSAVE = 32; TYMED_HGLOBAL = 1; TYMED_FILE = 2; TYMED_ISTREAM = 4; TYMED_ISTORAGE = 8; TYMED_GDI = 16; TYMED_MFPICT = 32; TYMED_ENHMF = 64; TYMED_NULL = 0; DATADIR_GET = 1; DATADIR_SET = 2; CALLTYPE_TOPLEVEL = 1; CALLTYPE_NESTED = 2; CALLTYPE_ASYNC = 3; CALLTYPE_TOPLEVEL_CALLPENDING = 4; CALLTYPE_ASYNC_CALLPENDING = 5; SERVERCALL_ISHANDLED = 0; SERVERCALL_REJECTED = 1; SERVERCALL_RETRYLATER = 2; PENDINGTYPE_TOPLEVEL = 1; PENDINGTYPE_NESTED = 2; PENDINGMSG_CANCELCALL = 0; PENDINGMSG_WAITNOPROCESS = 1; PENDINGMSG_WAITDEFPROCESS = 2; REGCLS_SINGLEUSE = 0; REGCLS_MULTIPLEUSE = 1; REGCLS_MULTI_SEPARATE = 2; MARSHALINTERFACE_MIN = 500; CWCSTORAGENAME = 32; STGM_DIRECT = $00000000; STGM_TRANSACTED = $00010000; STGM_SIMPLE = $08000000; STGM_READ = $00000000; STGM_WRITE = $00000001; STGM_READWRITE = $00000002; STGM_SHARE_DENY_NONE = $00000040; STGM_SHARE_DENY_READ = $00000030; STGM_SHARE_DENY_WRITE = $00000020; STGM_SHARE_EXCLUSIVE = $00000010; STGM_PRIORITY = $00040000; STGM_DELETEONRELEASE = $04000000; STGM_CREATE = $00001000; STGM_CONVERT = $00020000; STGM_FAILIFTHERE = $00000000; FADF_AUTO = $0001; { array is allocated on the stack } FADF_STATIC = $0002; { array is staticly allocated } FADF_EMBEDDED = $0004; { array is embedded in a structure } FADF_FIXEDSIZE = $0010; { array may not be resized or reallocated } FADF_BSTR = $0100; { an array of BSTRs } FADF_UNKNOWN = $0200; { an array of IUnknown } FADF_DISPATCH = $0400; { an array of IDispatch } FADF_VARIANT = $0800; { an array of VARIANTs } FADF_RESERVED = $F0E8; { bits reserved for future use } { VARENUM usage key, [V] - may appear in a VARIANT [T] - may appear in a TYPEDESC [P] - may appear in an OLE property set [S] - may appear in a Safe Array } VT_EMPTY = 0; { [V] [P] nothing } VT_NULL = 1; { [V] SQL style Null } VT_I2 = 2; { [V][T][P] 2 byte signed int } VT_I4 = 3; { [V][T][P] 4 byte signed int } VT_R4 = 4; { [V][T][P] 4 byte real } VT_R8 = 5; { [V][T][P] 8 byte real } VT_CY = 6; { [V][T][P] currency } VT_DATE = 7; { [V][T][P] date } VT_BSTR = 8; { [V][T][P] binary string } VT_DISPATCH = 9; { [V][T] IDispatch FAR* } VT_ERROR = 10; { [V][T] SCODE } VT_BOOL = 11; { [V][T][P] True=-1, False=0 } VT_VARIANT = 12; { [V][T][P] VARIANT FAR* } VT_UNKNOWN = 13; { [V][T] IUnknown FAR* } VT_I1 = 16; { [T] signed char } VT_UI1 = 17; { [T] unsigned char } VT_UI2 = 18; { [T] unsigned short } VT_UI4 = 19; { [T] unsigned short } VT_I8 = 20; { [T][P] signed 64-bit int } VT_UI8 = 21; { [T] unsigned 64-bit int } VT_INT = 22; { [T] signed machine int } VT_UINT = 23; { [T] unsigned machine int } VT_VOID = 24; { [T] C style void } VT_HRESULT = 25; { [T] } VT_PTR = 26; { [T] pointer type } VT_SAFEARRAY = 27; { [T] (use VT_ARRAY in VARIANT) } VT_CARRAY = 28; { [T] C style array } VT_USERDEFINED = 29; { [T] user defined type } VT_LPSTR = 30; { [T][P] null terminated string } VT_LPWSTR = 31; { [T][P] wide null terminated string } VT_FILETIME = 64; { [P] FILETIME } VT_BLOB = 65; { [P] Length prefixed bytes } VT_STREAM = 66; { [P] Name of the stream follows } VT_STORAGE = 67; { [P] Name of the storage follows } VT_STREAMED_OBJECT = 68; { [P] Stream contains an object } VT_STORED_OBJECT = 69; { [P] Storage contains an object } VT_BLOB_OBJECT = 70; { [P] Blob contains an object } VT_CF = 71; { [P] Clipboard format } VT_CLSID = 72; { [P] A Class ID } VT_VECTOR = $1000; { [P] simple counted array } VT_ARRAY = $2000; { [V] SAFEARRAY* } VT_BYREF = $4000; { [V] } VT_RESERVED = $8000; TKIND_ENUM = 0; TKIND_RECORD = 1; TKIND_MODULE = 2; TKIND_INTERFACE = 3; TKIND_DISPATCH = 4; TKIND_COCLASS = 5; TKIND_ALIAS = 6; TKIND_UNION = 7; TKIND_MAX = 8; CC_CDECL = 1; CC_PASCAL = 2; CC_MACPASCAL = 3; CC_STDCALL = 4; CC_RESERVED = 5; CC_SYSCALL = 6; CC_MPWCDECL = 7; CC_MPWPASCAL = 8; CC_MAX = 9; FUNC_VIRTUAL = 0; FUNC_PUREVIRTUAL = 1; FUNC_NONVIRTUAL = 2; FUNC_STATIC = 3; FUNC_DISPATCH = 4; INVOKE_FUNC = 1; INVOKE_PROPERTYGET = 2; INVOKE_PROPERTYPUT = 4; INVOKE_PROPERTYPUTREF = 8; VAR_PERINSTANCE = 0; VAR_STATIC = 1; VAR_CONST = 2; VAR_DISPATCH = 3; IMPLTYPEFLAG_FDEFAULT = 1; IMPLTYPEFLAG_FSOURCE = 2; IMPLTYPEFLAG_FRESTRICTED = 4; TYPEFLAG_FAPPOBJECT = $0001; TYPEFLAG_FCANCREATE = $0002; TYPEFLAG_FLICENSED = $0004; TYPEFLAG_FPREDECLID = $0008; TYPEFLAG_FHIDDEN = $0010; TYPEFLAG_FCONTROL = $0020; TYPEFLAG_FDUAL = $0040; TYPEFLAG_FNONEXTENSIBLE = $0080; TYPEFLAG_FOLEAUTOMATION = $0100; FUNCFLAG_FRESTRICTED = $0001; FUNCFLAG_FSOURCE = $0002; FUNCFLAG_FBINDABLE = $0004; FUNCFLAG_FREQUESTEDIT = $0008; FUNCFLAG_FDISPLAYBIND = $0010; FUNCFLAG_FDEFAULTBIND = $0020; FUNCFLAG_FHIDDEN = $0040; VARFLAG_FREADONLY = $0001; VARFLAG_FSOURCE = $0002; VARFLAG_FBINDABLE = $0004; VARFLAG_FREQUESTEDIT = $0008; VARFLAG_FDISPLAYBIND = $0010; VARFLAG_FDEFAULTBIND = $0020; VARFLAG_FHIDDEN = $0040; DISPID_VALUE = 0; DISPID_UNKNOWN = -1; DISPID_PROPERTYPUT = -3; DISPID_NEWENUM = -4; DISPID_EVALUATE = -5; DISPID_CONSTRUCTOR = -6; DISPID_DESTRUCTOR = -7; DISPID_COLLECT = -8; DESCKIND_NONE = 0; DESCKIND_FUNCDESC = 1; DESCKIND_VARDESC = 2; DESCKIND_TYPECOMP = 3; DESCKIND_IMPLICITAPPOBJ = 4; DESCKIND_MAX = 5; SYS_WIN16 = 0; SYS_WIN32 = 1; SYS_MAC = 2; LIBFLAG_FRESTRICTED = 1; LIBFLAG_FCONTROL = 2; LIBFLAG_FHIDDEN = 4; STDOLE_MAJORVERNUM = 1; STDOLE_MINORVERNUM = 0; STDOLE_LCID = 0; VARIANT_NOVALUEPROP = 1; VAR_TIMEVALUEONLY = 1; VAR_DATEVALUEONLY = 2; MEMBERID_NIL = DISPID_UNKNOWN; ID_DEFAULTINST = -2; IDLFLAG_NONE = 0; IDLFLAG_FIN = 1; IDLFLAG_FOUT = 2; IDLFLAG_FLCID = 4; IDLFLAG_FRETVAL = 8; DISPATCH_METHOD = 1; DISPATCH_PROPERTYGET = 2; DISPATCH_PROPERTYPUT = 4; DISPATCH_PROPERTYPUTREF = 8; OLEIVERB_PRIMARY = 0; OLEIVERB_SHOW = -1; OLEIVERB_OPEN = -2; OLEIVERB_HIDE = -3; OLEIVERB_UIACTIVATE = -4; OLEIVERB_INPLACEACTIVATE = -5; OLEIVERB_DISCARDUNDOSTATE = -6; EMBDHLP_INPROC_HANDLER = $00000000; EMBDHLP_INPROC_SERVER = $00000001; EMBDHLP_CREATENOW = $00000000; EMBDHLP_DELAYCREATE = $00010000; UPDFCACHE_NODATACACHE = 1; UPDFCACHE_ONSAVECACHE = 2; UPDFCACHE_ONSTOPCACHE = 4; UPDFCACHE_NORMALCACHE = 8; UPDFCACHE_IFBLANK = $10; UPDFCACHE_ONLYIFBLANK = $80000000; UPDFCACHE_IFBLANKORONSAVECACHE = UPDFCACHE_IFBLANK or UPDFCACHE_ONSAVECACHE; UPDFCACHE_ALL = not UPDFCACHE_ONLYIFBLANK; UPDFCACHE_ALLBUTNODATACACHE = UPDFCACHE_ALL and not UPDFCACHE_NODATACACHE; DISCARDCACHE_SAVEIFDIRTY = 0; DISCARDCACHE_NOSAVE = 1; OLEGETMONIKER_ONLYIFTHERE = 1; OLEGETMONIKER_FORCEASSIGN = 2; OLEGETMONIKER_UNASSIGN = 3; OLEGETMONIKER_TEMPFORUSER = 4; OLEWHICHMK_CONTAINER = 1; OLEWHICHMK_OBJREL = 2; OLEWHICHMK_OBJFULL = 3; USERCLASSTYPE_FULL = 1; USERCLASSTYPE_SHORT = 2; USERCLASSTYPE_APPNAME = 3; OLEMISC_RECOMPOSEONRESIZE = 1; OLEMISC_ONLYICONIC = 2; OLEMISC_INSERTNOTREPLACE = 4; OLEMISC_STATIC = 8; OLEMISC_CANTLINKINSIDE = 16; OLEMISC_CANLINKBYOLE1 = 32; OLEMISC_ISLINKOBJECT = 64; OLEMISC_INSIDEOUT = 128; OLEMISC_ACTIVATEWHENVISIBLE = 256; OLEMISC_RENDERINGISDEVICEINDEPENDENT = 512; OLECLOSE_SAVEIFDIRTY = 0; OLECLOSE_NOSAVE = 1; OLECLOSE_PROMPTSAVE = 2; OLERENDER_NONE = 0; OLERENDER_DRAW = 1; OLERENDER_FORMAT = 2; OLERENDER_ASIS = 3; OLEUPDATE_ALWAYS = 1; OLEUPDATE_ONCALL = 3; OLELINKBIND_EVENIFCLASSDIFF = 1; BINDSPEED_INDEFINITE = 1; BINDSPEED_MODERATE = 2; BINDSPEED_IMMEDIATE = 3; OLECONTF_EMBEDDINGS = 1; OLECONTF_LINKS = 2; OLECONTF_OTHERS = 4; OLECONTF_ONLYUSER = 8; OLECONTF_ONLYIFRUNNING = 16; DROPEFFECT_NONE = 0; DROPEFFECT_COPY = 1; DROPEFFECT_MOVE = 2; DROPEFFECT_LINK = 4; DROPEFFECT_SCROLL = $80000000; DD_DEFSCROLLINSET = 11; DD_DEFSCROLLDELAY = 50; DD_DEFSCROLLINTERVAL = 50; DD_DEFDRAGDELAY = 200; DD_DEFDRAGMINDIST = 2; OLEVERBATTRIB_NEVERDIRTIES = 1; OLEVERBATTRIB_ONCONTAINERMENU = 2; type { Result code } HResult = Longint; PResultList = ^TResultList; TResultList = array[0..65535] of HResult; { OLE character and string types } TOleChar = WideChar; POleStr = PWideChar; POleStrList = ^TOleStrList; TOleStrList = array[0..65535] of POleStr; { 64-bit large integer } Largeint = Comp; { Globally unique ID } PGUID = ^TGUID; TGUID = record D1: Longint; D2: Word; D3: Word; D4: array[0..7] of Byte; end; { Interface ID } PIID = PGUID; TIID = TGUID; { Class ID } PCLSID = PGUID; TCLSID = TGUID; { Object ID } PObjectID = ^TObjectID; TObjectID = record Lineage: TGUID; Uniquifier: Longint; end; { Locale ID } TLCID = Longint; { Forward declarations } IStream = class; IRunningObjectTable = class; IEnumString = class; IMoniker = class; IAdviseSink = class; IDispatch = class; ITypeInfo = class; ITypeComp = class; ITypeLib = class; IEnumOleVerb = class; IOleInPlaceActiveObject = class; { IUnknown interface } IUnknown = class public function QueryInterface(const iid: TIID; var obj): HResult; virtual; stdcall; abstract; function AddRef: Longint; virtual; stdcall; abstract; function Release: Longint; virtual; stdcall; abstract; end; { IClassFactory interface } IClassFactory = class(IUnknown) public function CreateInstance(unkOuter: IUnknown; const iid: TIID; var obj): HResult; virtual; stdcall; abstract; function LockServer(fLock: BOOL): HResult; virtual; stdcall; abstract; end; { IMarshal interface } IMarshal = class(IUnknown) public function GetUnmarshalClass(const iid: TIID; pv: Pointer; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint; var cid: TCLSID): HResult; virtual; stdcall; abstract; function GetMarshalSizeMax(const iid: TIID; pv: Pointer; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint; var size: Longint): HResult; virtual; stdcall; abstract; function MarshalInterface(stm: IStream; const iid: TIID; pv: Pointer; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint): HResult; virtual; stdcall; abstract; function UnmarshalInterface(stm: IStream; const iid: TIID; var pv): HResult; virtual; stdcall; abstract; function ReleaseMarshalData(stm: IStream): HResult; virtual; stdcall; abstract; function DisconnectObject(dwReserved: Longint): HResult; virtual; stdcall; abstract; end; { IMalloc interface } IMalloc = class(IUnknown) public function Alloc(cb: Longint): Pointer; virtual; stdcall; abstract; function Realloc(pv: Pointer; cb: Longint): Pointer; virtual; stdcall; abstract; procedure Free(pv: Pointer); virtual; stdcall; abstract; function GetSize(pv: Pointer): Longint; virtual; stdcall; abstract; function DidAlloc(pv: Pointer): Integer; virtual; stdcall; abstract; procedure HeapMinimize; virtual; stdcall; abstract; end; { IMallocSpy interface } IMallocSpy = class(IUnknown) public function PreAlloc(cbRequest: Longint): Longint; virtual; stdcall; abstract; function PostAlloc(pActual: Pointer): Pointer; virtual; stdcall; abstract; function PreFree(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract; procedure PostFree(fSpyed: BOOL); virtual; stdcall; abstract; function PreRealloc(pRequest: Pointer; cbRequest: Longint; var ppNewRequest: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract; function PostRealloc(pActual: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract; function PreGetSize(pRequest: Pointer; fSpyed: BOOL): Pointer; virtual; stdcall; abstract; function PostGetSize(pActual: Pointer; fSpyed: BOOL): Longint; virtual; stdcall; abstract; function PostDidAlloc(pRequest: Pointer; fSpyed: BOOL; fActual: Integer): Integer; virtual; stdcall; abstract; procedure PreHeapMinimize; virtual; stdcall; abstract; procedure PostHeapMinimize; virtual; stdcall; abstract; end; { IStdMarshalInfo interface } IStdMarshalInfo = class(IUnknown) public function GetClassForHandler(dwDestContext: Longint; pvDestContext: Pointer; var clsid: TCLSID): HResult; virtual; stdcall; abstract; end; { IExternalConnection interface } IExternalConnection = class(IUnknown) public function AddConnection(extconn: Longint; reserved: Longint): Longint; virtual; stdcall; abstract; function ReleaseConnection(extconn: Longint; reserved: Longint; fLastReleaseCloses: BOOL): Longint; virtual; stdcall; abstract; end; { IWeakRef interface } IWeakRef = class(IUnknown) public function ChangeWeakCount(delta: Longint): Longint; virtual; stdcall; abstract; function ReleaseKeepAlive(unkReleased: IUnknown; reserved: Longint): Longint; virtual; stdcall; abstract; end; { IEnumUnknown interface } IEnumUnknown = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enm: IEnumUnknown): HResult; virtual; stdcall; abstract; end; { IBindCtx interface } PBindOpts = ^TBindOpts; TBindOpts = record cbStruct: Longint; grfFlags: Longint; grfMode: Longint; dwTickCountDeadline: Longint; end; IBindCtx = class(IUnknown) public function RegisterObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract; function RevokeObjectBound(unk: IUnknown): HResult; virtual; stdcall; abstract; function ReleaseBoundObjects: HResult; virtual; stdcall; abstract; function SetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract; function GetBindOptions(var bindopts: TBindOpts): HResult; virtual; stdcall; abstract; function GetRunningObjectTable(var rot: IRunningObjectTable): HResult; virtual; stdcall; abstract; function RegisterObjectParam(pszKey: POleStr; unk: IUnknown): HResult; virtual; stdcall; abstract; function GetObjectParam(pszKey: POleStr; var unk: IUnknown): HResult; virtual; stdcall; abstract; function EnumObjectParam(var enum: IEnumString): HResult; virtual; stdcall; abstract; function RevokeObjectParam(pszKey: POleStr): HResult; virtual; stdcall; abstract; end; { IEnumMoniker interface } IEnumMoniker = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enm: IEnumMoniker): HResult; virtual; stdcall; abstract; end; { IRunnableObject interface } IRunnableObject = class(IUnknown) public function GetRunningClass(var clsid: TCLSID): HResult; virtual; stdcall; abstract; function Run(bc: IBindCtx): HResult; virtual; stdcall; abstract; function IsRunning: BOOL; virtual; stdcall; abstract; function LockRunning(fLock: BOOL; fLastUnlockCloses: BOOL): HResult; virtual; stdcall; abstract; function SetContainedObject(fContained: BOOL): HResult; virtual; stdcall; abstract; end; { IRunningObjectTable interface } IRunningObjectTable = class(IUnknown) public function Register(grfFlags: Longint; var unkObject: IUnknown; mkObjectName: IMoniker; var dwRegister: Longint): HResult; virtual; stdcall; abstract; function Revoke(dwRegister: Longint): HResult; virtual; stdcall; abstract; function IsRunning(mkObjectName: IMoniker): HResult; virtual; stdcall; abstract; function GetObject(mkObjectName: IMoniker; var unkObject: IUnknown): HResult; virtual; stdcall; abstract; function NoteChangeTime(dwRegister: Longint; var filetime: TFileTime): HResult; virtual; stdcall; abstract; function GetTimeOfLastChange(mkObjectName: IMoniker; var filetime: TFileTime): HResult; virtual; stdcall; abstract; function EnumRunning(var enumMoniker: IEnumMoniker): HResult; virtual; stdcall; abstract; end; { IPersist interface } IPersist = class(IUnknown) public function GetClassID(var classID: TCLSID): HResult; virtual; stdcall; abstract; end; { IPersistStream interface } IPersistStream = class(IPersist) public function IsDirty: HResult; virtual; stdcall; abstract; function Load(stm: IStream): HResult; virtual; stdcall; abstract; function Save(stm: IStream; fClearDirty: BOOL): HResult; virtual; stdcall; abstract; function GetSizeMax(var cbSize: Largeint): HResult; virtual; stdcall; abstract; end; { IMoniker interface } IMoniker = class(IPersistStream) public function BindToObject(bc: IBindCtx; mkToLeft: IMoniker; const iidResult: TIID; var vResult): HResult; virtual; stdcall; abstract; function BindToStorage(bc: IBindCtx; mkToLeft: IMoniker; const iid: TIID; var vObj): HResult; virtual; stdcall; abstract; function Reduce(bc: IBindCtx; dwReduceHowFar: Longint; var mkToLeft: IMoniker; var mkReduced: IMoniker): HResult; virtual; stdcall; abstract; function ComposeWith(mkRight: IMoniker; fOnlyIfNotGeneric: BOOL; var mkComposite: IMoniker): HResult; virtual; stdcall; abstract; function Enum(fForward: BOOL; var enumMoniker: IEnumMoniker): HResult; virtual; stdcall; abstract; function IsEqual(mkOtherMoniker: IMoniker): HResult; virtual; stdcall; abstract; function Hash(var dwHash: Longint): HResult; virtual; stdcall; abstract; function IsRunning(bc: IBindCtx; mkToLeft: IMoniker; mkNewlyRunning: IMoniker): HResult; virtual; stdcall; abstract; function GetTimeOfLastChange(bc: IBindCtx; mkToLeft: IMoniker; var filetime: TFileTime): HResult; virtual; stdcall; abstract; function Inverse(var mk: IMoniker): HResult; virtual; stdcall; abstract; function CommonPrefixWith(mkOther: IMoniker; var mkPrefix: IMoniker): HResult; virtual; stdcall; abstract; function RelativePathTo(mkOther: IMoniker; var mkRelPath: IMoniker): HResult; virtual; stdcall; abstract; function GetDisplayName(bc: IBindCtx; mkToLeft: IMoniker; var pszDisplayName: POleStr): HResult; virtual; stdcall; abstract; function ParseDisplayName(bc: IBindCtx; mkToLeft: IMoniker; pszDisplayName: POleStr; var chEaten: Longint; var mkOut: IMoniker): HResult; virtual; stdcall; abstract; function IsSystemMoniker(var dwMksys: Longint): HResult; virtual; stdcall; abstract; end; { IEnumString interface } IEnumString = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enm: IEnumString): HResult; virtual; stdcall; abstract; end; { IStream interface } PStatStg = ^TStatStg; TStatStg = record pwcsName: POleStr; dwType: Longint; cbSize: Largeint; mtime: TFileTime; ctime: TFileTime; atime: TFileTime; grfMode: Longint; grfLocksSupported: Longint; clsid: TCLSID; grfStateBits: Longint; reserved: Longint; end; IStream = class(IUnknown) public function Read(pv: Pointer; cb: Longint; pcbRead: PLongint): HResult; virtual; stdcall; abstract; function Write(pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult; virtual; stdcall; abstract; function Seek(dlibMove: Largeint; dwOrigin: Longint; var libNewPosition: Largeint): HResult; virtual; stdcall; abstract; function SetSize(libNewSize: Largeint): HResult; virtual; stdcall; abstract; function CopyTo(stm: IStream; cb: Largeint; var cbRead: Largeint; var cbWritten: Largeint): HResult; virtual; stdcall; abstract; function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract; function Revert: HResult; virtual; stdcall; abstract; function LockRegion(libOffset: Largeint; cb: Largeint; dwLockType: Longint): HResult; virtual; stdcall; abstract; function UnlockRegion(libOffset: Largeint; cb: Largeint; dwLockType: Longint): HResult; virtual; stdcall; abstract; function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult; virtual; stdcall; abstract; function Clone(var stm: IStream): HResult; virtual; stdcall; abstract; end; { IEnumStatStg interface } IEnumStatStg = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enm: IEnumStatStg): HResult; virtual; stdcall; abstract; end; { IStorage interface } TSNB = ^POleStr; IStorage = class(IUnknown) public function CreateStream(pwcsName: POleStr; grfMode: Longint; reserved1: Longint; reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract; function OpenStream(pwcsName: POleStr; reserved1: Pointer; grfMode: Longint; reserved2: Longint; var stm: IStream): HResult; virtual; stdcall; abstract; function CreateStorage(pwcsName: POleStr; grfMode: Longint; dwStgFmt: Longint; reserved2: Longint; var stg: IStorage): HResult; virtual; stdcall; abstract; function OpenStorage(pwcsName: POleStr; stgPriority: IStorage; grfMode: Longint; snbExclude: TSNB; reserved: Longint; var stg: IStorage): HResult; virtual; stdcall; abstract; function CopyTo(ciidExclude: Longint; rgiidExclude: PIID; snbExclude: TSNB; stgDest: IStorage): HResult; virtual; stdcall; abstract; function MoveElementTo(pwcsName: POleStr; stgDest: IStorage; pwcsNewName: POleStr; grfFlags: Longint): HResult; virtual; stdcall; abstract; function Commit(grfCommitFlags: Longint): HResult; virtual; stdcall; abstract; function Revert: HResult; virtual; stdcall; abstract; function EnumElements(reserved1: Longint; reserved2: Pointer; reserved3: Longint; var enm: IEnumStatStg): HResult; virtual; stdcall; abstract; function DestroyElement(pwcsName: POleStr): HResult; virtual; stdcall; abstract; function RenameElement(pwcsOldName: POleStr; pwcsNewName: POleStr): HResult; virtual; stdcall; abstract; function SetElementTimes(pwcsName: POleStr; const ctime: TFileTime; const atime: TFileTime; const mtime: TFileTime): HResult; virtual; stdcall; abstract; function SetClass(const clsid: TCLSID): HResult; virtual; stdcall; abstract; function SetStateBits(grfStateBits: Longint; grfMask: Longint): HResult; virtual; stdcall; abstract; function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult; virtual; stdcall; abstract; end; { IPersistFile interface } IPersistFile = class(IPersist) public function IsDirty: HResult; virtual; stdcall; abstract; function Load(pszFileName: POleStr; dwMode: Longint): HResult; virtual; stdcall; abstract; function Save(pszFileName: POleStr; fRemember: BOOL): HResult; virtual; stdcall; abstract; function SaveCompleted(pszFileName: POleStr): HResult; virtual; stdcall; abstract; function GetCurFile(var pszFileName: POleStr): HResult; virtual; stdcall; abstract; end; { IPersistStorage interface } IPersistStorage = class(IPersist) public function IsDirty: HResult; virtual; stdcall; abstract; function InitNew(stg: IStorage): HResult; virtual; stdcall; abstract; function Load(stg: IStorage): HResult; virtual; stdcall; abstract; function Save(stgSave: IStorage; fSameAsLoad: BOOL): HResult; virtual; stdcall; abstract; function SaveCompleted(stgNew: IStorage): HResult; virtual; stdcall; abstract; function HandsOffStorage: HResult; virtual; stdcall; abstract; end; { ILockBytes interface } ILockBytes = class(IUnknown) public function ReadAt(ulOffset: Largeint; pv: Pointer; cb: Longint; pcbRead: PLongint): HResult; virtual; stdcall; abstract; function WriteAt(ulOffset: Largeint; pv: Pointer; cb: Longint; pcbWritten: PLongint): HResult; virtual; stdcall; abstract; function Flush: HResult; virtual; stdcall; abstract; function SetSize(cb: Largeint): HResult; virtual; stdcall; abstract; function LockRegion(libOffset: Largeint; cb: Largeint; dwLockType: Longint): HResult; virtual; stdcall; abstract; function UnlockRegion(libOffset: Largeint; cb: Largeint; dwLockType: Longint): HResult; virtual; stdcall; abstract; function Stat(var statstg: TStatStg; grfStatFlag: Longint): HResult; virtual; stdcall; abstract; end; { IEnumFormatEtc interface } PDVTargetDevice = ^TDVTargetDevice; TDVTargetDevice = record tdSize: Longint; tdDriverNameOffset: Word; tdDeviceNameOffset: Word; tdPortNameOffset: Word; tdExtDevmodeOffset: Word; tdData: record end; end; PClipFormat = ^TClipFormat; TClipFormat = Word; PFormatEtc = ^TFormatEtc; TFormatEtc = record cfFormat: TClipFormat; ptd: PDVTargetDevice; dwAspect: Longint; lindex: Longint; tymed: Longint; end; IEnumFormatEtc = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enum: IEnumFormatEtc): HResult; virtual; stdcall; abstract; end; { IEnumStatData interface } PStatData = ^TStatData; TStatData = record formatetc: TFormatEtc; advf: Longint; advSink: IAdviseSink; dwConnection: Longint; end; IEnumStatData = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enum: IEnumStatData): HResult; virtual; stdcall; abstract; end; { IRootStorage interface } IRootStorage = class(IUnknown) public function SwitchToFile(pszFile: POleStr): HResult; virtual; stdcall; abstract; end; { IAdviseSink interface } PRemStgMedium = ^TRemStgMedium; TRemStgMedium = record tymed: Longint; dwHandleType: Longint; pData: Longint; pUnkForRelease: Longint; cbData: Longint; data: record end; end; PStgMedium = ^TStgMedium; TStgMedium = record tymed: Longint; case Integer of 0: (hBitmap: HBitmap; unkForRelease: IUnknown); 1: (hMetaFilePict: THandle); 2: (hEnhMetaFile: THandle); 3: (hGlobal: HGlobal); 4: (lpszFileName: POleStr); 5: (stm: IStream); 6: (stg: IStorage); end; IAdviseSink = class(IUnknown) public procedure OnDataChange(var formatetc: TFormatEtc; var stgmed: TStgMedium); virtual; stdcall; abstract; procedure OnViewChange(dwAspect: Longint; lindex: Longint); virtual; stdcall; abstract; procedure OnRename(mk: IMoniker); virtual; stdcall; abstract; procedure OnSave; virtual; stdcall; abstract; procedure OnClose; virtual; stdcall; abstract; end; { IAdviseSink2 interface } IAdviseSink2 = class(IAdviseSink) public procedure OnLinkSrcChange(mk: IMoniker); virtual; stdcall; abstract; end; { IDataObject interface } IDataObject = class(IUnknown) public function GetData(var formatetcIn: TFormatEtc; var medium: TStgMedium): HResult; virtual; stdcall; abstract; function GetDataHere(var formatetc: TFormatEtc; var medium: TStgMedium): HResult; virtual; stdcall; abstract; function QueryGetData(var formatetc: TFormatEtc): HResult; virtual; stdcall; abstract; function GetCanonicalFormatEtc(var formatetc: TFormatEtc; var formatetcOut: TFormatEtc): HResult; virtual; stdcall; abstract; function SetData(var formatetc: TFormatEtc; var medium: TStgMedium; fRelease: BOOL): HResult; virtual; stdcall; abstract; function EnumFormatEtc(dwDirection: Longint; var enumFormatEtc: IEnumFormatEtc): HResult; virtual; stdcall; abstract; function DAdvise(var formatetc: TFormatEtc; advf: Longint; advSink: IAdviseSink; var dwConnection: Longint): HResult; virtual; stdcall; abstract; function DUnadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract; function EnumDAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract; end; { IDataAdviseHolder interface } IDataAdviseHolder = class(IUnknown) public function Advise(dataObject: IDataObject; var fetc: TFormatEtc; advf: Longint; advise: IAdviseSink; var pdwConnection: Longint): HResult; virtual; stdcall; abstract; function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract; function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract; function SendOnDataChange(dataObject: IDataObject; dwReserved: Longint; advf: Longint): HResult; virtual; stdcall; abstract; end; { IMessageFilter interface } PInterfaceInfo = ^TInterfaceInfo; TInterfaceInfo = record unk: IUnknown; iid: TIID; wMethod: Word; end; IMessageFilter = class(IUnknown) public function HandleInComingCall(dwCallType: Longint; htaskCaller: HTask; dwTickCount: Longint; lpInterfaceInfo: PInterfaceInfo): Longint; virtual; stdcall; abstract; function RetryRejectedCall(htaskCallee: HTask; dwTickCount: Longint; dwRejectType: Longint): Longint; virtual; stdcall; abstract; function MessagePending(htaskCallee: HTask; dwTickCount: Longint; dwPendingType: Longint): Longint; virtual; stdcall; abstract; end; { IRpcChannelBuffer interface } TRpcOleDataRep = Longint; PRpcOleMessage = ^TRpcOleMessage; TRpcOleMessage = record reserved1: Pointer; dataRepresentation: TRpcOleDataRep; Buffer: Pointer; cbBuffer: Longint; iMethod: Longint; reserved2: array[0..4] of Pointer; rpcFlags: Longint; end; IRpcChannelBuffer = class(IUnknown) public function GetBuffer(var message: TRpcOleMessage; iid: TIID): HResult; virtual; stdcall; abstract; function SendReceive(var message: TRpcOleMessage; var status: Longint): HResult; virtual; stdcall; abstract; function FreeBuffer(var message: TRpcOleMessage): HResult; virtual; stdcall; abstract; function GetDestCtx(var dwDestContext: Longint; var pvDestContext): HResult; virtual; stdcall; abstract; function IsConnected: HResult; virtual; stdcall; abstract; end; { IRpcProxyBuffer interface } IRpcProxyBuffer = class(IUnknown) public function Connect(rpcChannelBuffer: IRpcChannelBuffer): HResult; virtual; stdcall; abstract; procedure Disconnect; virtual; stdcall; abstract; end; { IRpcStubBuffer interface } IRpcStubBuffer = class(IUnknown) public function Connect(unkServer: IUnknown): HResult; virtual; stdcall; abstract; procedure Disconnect; virtual; stdcall; abstract; function Invoke(var rpcmsg: TRpcOleMessage; rpcChannelBuffer: IRpcChannelBuffer): HResult; virtual; stdcall; abstract; function IsIIDSupported(const iid: TIID): IRpcStubBuffer; virtual; stdcall; abstract; function CountRefs: Longint; virtual; stdcall; abstract; function DebugServerQueryInterface(var pv): HResult; virtual; stdcall; abstract; procedure DebugServerRelease(pv: Pointer); virtual; stdcall; abstract; end; { IPSFactoryBuffer interface } IPSFactoryBuffer = class(IUnknown) public function CreateProxy(unkOuter: IUnknown; const iid: TIID; var proxy: IRpcProxyBuffer; var pv): HResult; virtual; stdcall; abstract; function CreateStub(const iid: TIID; unkServer: IUnknown; var stub: IRpcStubBuffer): HResult; virtual; stdcall; abstract; end; { Automation types } PBStr = ^TBStr; TBStr = POleStr; PBStrList = ^TBStrList; TBStrList = array[0..65535] of TBStr; PBlob = ^TBlob; TBlob = record cbSize: Longint; pBlobData: Pointer; end; PClipData = ^TClipData; TClipData = record cbSize: Longint; ulClipFmt: Longint; pClipData: Pointer; end; PSafeArrayBound = ^TSafeArrayBound; TSafeArrayBound = record cElements: Longint; lLbound: Longint; end; PSafeArray = ^TSafeArray; TSafeArray = record cDims: Word; fFeatures: Word; cbElements: Longint; cLocks: Longint; pvData: Pointer; rgsabound: array[0..0] of TSafeArrayBound; end; TOleDate = Double; TCurrency = Comp; TOleBool = WordBool; TVarType = Word; PVariantArg = ^TVariantArg; TVariantArg = record vt: TVarType; wReserved1: Word; wReserved2: Word; wReserved3: Word; case Integer of VT_UI1: (bVal: Byte); VT_I2: (iVal: Smallint); VT_I4: (lVal: Longint); VT_R4: (fltVal: Single); VT_R8: (dblVal: Double); VT_BOOL: (vbool: TOleBool); VT_ERROR: (scode: HResult); VT_CY: (cyVal: TCurrency); VT_DATE: (date: TOleDate); VT_BSTR: (bstrVal: TBStr); VT_UNKNOWN: (unkVal: IUnknown); VT_DISPATCH: (dispVal: IDispatch); VT_ARRAY: (parray: PSafeArray); VT_BYREF or VT_UI1: (pbVal: ^Byte); VT_BYREF or VT_I2: (piVal: ^Smallint); VT_BYREF or VT_I4: (plVal: ^Longint); VT_BYREF or VT_R4: (pfltVal: ^Single); VT_BYREF or VT_R8: (pdblVal: ^Double); VT_BYREF or VT_BOOL: (pbool: ^TOleBool); VT_BYREF or VT_ERROR: (pscode: ^HResult); VT_BYREF or VT_CY: (pcyVal: ^TCurrency); VT_BYREF or VT_DATE: (pdate: ^TOleDate); VT_BYREF or VT_BSTR: (pbstrVal: PBStr); VT_BYREF or VT_UNKNOWN: (punkVal: ^IUnknown); VT_BYREF or VT_DISPATCH: (pdispVal: ^IDispatch); VT_BYREF or VT_ARRAY: (pparray: ^PSafeArray); VT_BYREF or VT_VARIANT: (pvarVal: PVariant); VT_BYREF: (byRef: Pointer); end; PVariantArgList = ^TVariantArgList; TVariantArgList = array[0..65535] of TVariantArg; TDispID = Longint; PDispIDList = ^TDispIDList; TDispIDList = array[0..65535] of TDispID; TMemberID = Longint; PMemberIDList = ^TMemberIDList; TMemberIDList = array[0..65535] of TMemberID; TPropID = Longint; HRefType = Longint; TTypeKind = Longint; PArrayDesc = ^TArrayDesc; PTypeDesc= ^TTypeDesc; TTypeDesc = record case Integer of VT_PTR: (ptdesc: PTypeDesc; vt: TVarType); VT_CARRAY: (padesc: PArrayDesc); VT_USERDEFINED: (hreftype: HRefType); end; TArrayDesc = record tdescElem: TTypeDesc; cDims: Word; rgbounds: array[0..0] of TSafeArrayBound; end; PIDLDesc = ^TIDLDesc; TIDLDesc = record dwReserved: Longint; wIDLFlags: Word; end; PElemDesc = ^TElemDesc; TElemDesc = record tdesc: TTypeDesc; idldesc: TIDLDesc; end; PElemDescList = ^TElemDescList; TElemDescList = array[0..65535] of TElemDesc; PTypeAttr = ^TTypeAttr; TTypeAttr = record guid: TGUID; lcid: TLCID; dwReserved: Longint; memidConstructor: TMemberID; memidDestructor: TMemberID; lpstrSchema: POleStr; cbSizeInstance: Longint; typekind: TTypeKind; cFuncs: Word; cVars: Word; cImplTypes: Word; cbSizeVft: Word; cbAlignment: Word; wTypeFlags: Word; wMajorVerNum: Word; wMinorVerNum: Word; tdescAlias: TTypeDesc; idldescType: TIDLDesc; end; PDispParams = ^TDispParams; TDispParams = record rgvarg: PVariantArgList; rgdispidNamedArgs: PDispIDList; cArgs: Longint; cNamedArgs: Longint; end; PExcepInfo = ^TExcepInfo; TFNDeferredFillIn = function(ExInfo: PExcepInfo): HResult stdcall; TExcepInfo = record wCode: Word; wReserved: Word; bstrSource: TBStr; bstrDescription: TBStr; bstrHelpFile: TBStr; dwHelpContext: Longint; pvReserved: Pointer; pfnDeferredFillIn: TFNDeferredFillIn; scode: HResult; end; TFuncKind = Longint; TInvokeKind = Longint; TCallConv = Longint; PFuncDesc = ^TFuncDesc; TFuncDesc = record memid: TMemberID; lprgscode: PResultList; lprgelemdescParam: PElemDescList; funckind: TFuncKind; invkind: TInvokeKind; callconv: TCallConv; cParams: Smallint; cParamsOpt: Smallint; oVft: Smallint; cScodes: Smallint; elemdescFunc: TElemDesc; wFuncFlags: Word; end; TVarKind = Longint; PVarDesc = ^TVarDesc; TVarDesc = record memid: TMemberID; lpstrSchema: POleStr; case Integer of VAR_PERINSTANCE: ( oInst: Longint; elemdescVar: TElemDesc; wVarFlags: Word; varkind: TVarKind); VAR_CONST: ( lpvarValue: PVariant); end; { ICreateTypeInfo interface } ICreateTypeInfo = class(IUnknown) public function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract; function SetTypeFlags(uTypeFlags: Integer): HResult; virtual; stdcall; abstract; function SetDocString(pstrDoc: POleStr): HResult; virtual; stdcall; abstract; function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract; function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult; virtual; stdcall; abstract; function AddRefTypeInfo(tinfo: ITypeInfo; var reftype: HRefType): HResult; virtual; stdcall; abstract; function AddFuncDesc(index: Integer; var funcdesc: TFuncDesc): HResult; virtual; stdcall; abstract; function AddImplType(index: Integer; reftype: HRefType): HResult; virtual; stdcall; abstract; function SetImplTypeFlags(index: Integer; impltypeflags: Integer): HResult; virtual; stdcall; abstract; function SetAlignment(cbAlignment: Word): HResult; virtual; stdcall; abstract; function SetSchema(lpstrSchema: POleStr): HResult; virtual; stdcall; abstract; function AddVarDesc(index: Integer; var vardesc: TVarDesc): HResult; virtual; stdcall; abstract; function SetFuncAndParamNames(index: Integer; rgszNames: POleStrList; cNames: Integer): HResult; virtual; stdcall; abstract; function SetVarName(index: Integer; szName: POleStr): HResult; virtual; stdcall; abstract; function SetTypeDescAlias(var descAlias: TTypeDesc): HResult; virtual; stdcall; abstract; function DefineFuncAsDllEntry(index: Integer; szDllName: POleStr; szProcName: POleStr): HResult; virtual; stdcall; abstract; function SetFuncDocString(index: Integer; szDocString: POleStr): HResult; virtual; stdcall; abstract; function SetVarDocString(index: Integer; szDocString: POleStr): HResult; virtual; stdcall; abstract; function SetFuncHelpContext(index: Integer; dwHelpContext: Longint): HResult; virtual; stdcall; abstract; function SetVarHelpContext(index: Integer; dwHelpContext: Longint): HResult; virtual; stdcall; abstract; function SetMops(index: Integer; bstrMops: TBStr): HResult; virtual; stdcall; abstract; function SetTypeIdldesc(var idldesc: TIDLDesc): HResult; virtual; stdcall; abstract; function LayOut: HResult; virtual; stdcall; abstract; end; { ICreateTypeLib interface } ICreateTypeLib = class(IUnknown) public function CreateTypeInfo(szName: POleStr; tkind: TTypeKind; var ictinfo: ICreateTypeInfo): HResult; virtual; stdcall; abstract; function SetName(szName: POleStr): HResult; virtual; stdcall; abstract; function SetVersion(wMajorVerNum: Word; wMinorVerNum: Word): HResult; virtual; stdcall; abstract; function SetGuid(const guid: TGUID): HResult; virtual; stdcall; abstract; function SetDocString(szDoc: POleStr): HResult; virtual; stdcall; abstract; function SetHelpFileName(szHelpFileName: POleStr): HResult; virtual; stdcall; abstract; function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract; function SetLcid(lcid: TLCID): HResult; virtual; stdcall; abstract; function SetLibFlags(uLibFlags: Integer): HResult; virtual; stdcall; abstract; function SaveAllChanges: HResult; virtual; stdcall; abstract; end; { IDispatch interface } IDispatch = class(IUnknown) public function GetTypeInfoCount(var ctinfo: Integer): HResult; virtual; stdcall; abstract; function GetTypeInfo(itinfo: Integer; lcid: TLCID; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract; function GetIDsOfNames(const iid: TIID; rgszNames: POleStrList; cNames: Integer; lcid: TLCID; rgdispid: PDispIDList): HResult; virtual; stdcall; abstract; function Invoke(dispIDMember: TDispID; const iid: TIID; lcid: TLCID; flags: Word; var dispParams: TDispParams; varResult: PVariant; excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract; end; { IEnumVariant interface } IEnumVariant = class(IUnknown) public function Next(celt: Longint; var elt; var pceltFetched: Longint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enum: IEnumVariant): HResult; virtual; stdcall; abstract; end; { ITypeComp interface } TDescKind = Longint; PBindPtr = ^TBindPtr; TBindPtr = record case Integer of 0: (lpfuncdesc: PFuncDesc); 1: (lpvardesc: PVarDesc); 2: (lptcomp: ITypeComp); end; ITypeComp = class(IUnknown) public function Bind(szName: POleStr; lHashVal: Longint; wflags: Word; var tinfo: ITypeInfo; var desckind: TDescKind; var bindptr: TBindPtr): HResult; virtual; stdcall; abstract; function BindType(szName: POleStr; lHashVal: Longint; var tinfo: ITypeInfo; var tcomp: ITypeComp): HResult; virtual; stdcall; abstract; end; { ITypeInfo interface } ITypeInfo = class(IUnknown) public function GetTypeAttr(var ptypeattr: PTypeAttr): HResult; virtual; stdcall; abstract; function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract; function GetFuncDesc(index: Integer; var pfuncdesc: PFuncDesc): HResult; virtual; stdcall; abstract; function GetVarDesc(index: Integer; var pvardesc: PVarDesc): HResult; virtual; stdcall; abstract; function GetNames(memid: TMemberID; rgbstrNames: PBStrList; cMaxNames: Integer; var cNames: Integer): HResult; virtual; stdcall; abstract; function GetRefTypeOfImplType(index: Integer; var reftype: HRefType): HResult; virtual; stdcall; abstract; function GetImplTypeFlags(index: Integer; var impltypeflags: Integer): HResult; virtual; stdcall; abstract; function GetIDsOfNames(rgpszNames: POleStrList; cNames: Integer; rgmemid: PMemberIDList): HResult; virtual; stdcall; abstract; function Invoke(pvInstance: Pointer; memid: TMemberID; flags: Word; var dispParams: TDispParams; varResult: PVariant; excepInfo: PExcepInfo; argErr: PInteger): HResult; virtual; stdcall; abstract; function GetDocumentation(memid: TMemberID; pbstrName: PBStr; pbstrDocString: PBStr; pdwHelpContext: PLongint; pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract; function GetDllEntry(memid: TMemberID; invkind: TInvokeKind; var bstrDllName: TBStr; var bstrName: TBStr; var wOrdinal: Word): HResult; virtual; stdcall; abstract; function GetRefTypeInfo(reftype: HRefType; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract; function AddressOfMember(memid: TMemberID; invkind: TInvokeKind; var ppv: Pointer): HResult; virtual; stdcall; abstract; function CreateInstance(unkOuter: IUnknown; const iid: TIID; var vObj): HResult; virtual; stdcall; abstract; function GetMops(memid: TMemberID; var bstrMops: TBStr): HResult; virtual; stdcall; abstract; function GetContainingTypeLib(var tlib: ITypeLib; var pindex: Integer): HResult; virtual; stdcall; abstract; procedure ReleaseTypeAttr(ptypeattr: PTypeAttr); virtual; stdcall; abstract; procedure ReleaseFuncDesc(pfuncdesc: PFuncDesc); virtual; stdcall; abstract; procedure ReleaseVarDesc(pvardesc: PVarDesc); virtual; stdcall; abstract; end; { ITypeLib interface } TSysKind = Longint; PTLibAttr = ^TTLibAttr; TTLibAttr = record guid: TGUID; lcid: TLCID; syskind: TSysKind; wMajorVerNum: Word; wMinorVerNum: Word; wLibFlags: Word; end; PTypeInfoList = ^TTypeInfoList; TTypeInfoList = array[0..65535] of ITypeInfo; ITypeLib = class(IUnknown) public function GetTypeInfoCount: Integer; virtual; stdcall; abstract; function GetTypeInfo(index: Integer; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract; function GetTypeInfoType(index: Integer; var tkind: TTypeKind): HResult; virtual; stdcall; abstract; function GetTypeInfoOfGuid(const guid: TGUID; var tinfo: ITypeInfo): HResult; virtual; stdcall; abstract; function GetLibAttr(var ptlibattr: PTLibAttr): HResult; virtual; stdcall; abstract; function GetTypeComp(var tcomp: ITypeComp): HResult; virtual; stdcall; abstract; function GetDocumentation(index: Integer; pbstrName: PBStr; pbstrDocString: PBStr; pdwHelpContext: PLongint; pbstrHelpFile: PBStr): HResult; virtual; stdcall; abstract; function IsName(szNameBuf: POleStr; lHashVal: Longint; var fName: BOOL): HResult; virtual; stdcall; abstract; function FindName(szNameBuf: POleStr; lHashVal: Longint; rgptinfo: PTypeInfoList; rgmemid: PMemberIDList; var pcFound: Word): HResult; virtual; stdcall; abstract; procedure ReleaseTLibAttr(ptlibattr: PTLibAttr); virtual; stdcall; abstract; end; { IErrorInfo interface } IErrorInfo = class(IUnknown) public function GetGUID(var guid: TGUID): HResult; virtual; stdcall; abstract; function GetSource(var bstrSource: TBStr): HResult; virtual; stdcall; abstract; function GetDescription(var bstrDescription: TBStr): HResult; virtual; stdcall; abstract; function GetHelpFile(var bstrHelpFile: TBStr): HResult; virtual; stdcall; abstract; function GetHelpContext(var dwHelpContext: Longint): HResult; virtual; stdcall; abstract; end; { ICreateErrorInfo interface } ICreateErrorInfo = class(IUnknown) public function SetGUID(const guid: TGUID): HResult; virtual; stdcall; abstract; function SetSource(szSource: POleStr): HResult; virtual; stdcall; abstract; function SetDescription(szDescription: POleStr): HResult; virtual; stdcall; abstract; function SetHelpFile(szHelpFile: POleStr): HResult; virtual; stdcall; abstract; function SetHelpContext(dwHelpContext: Longint): HResult; virtual; stdcall; abstract; end; { ISupportErrorInfo interface } ISupportErrorInfo = class(IUnknown) public function InterfaceSupportsErrorInfo(const iid: TIID): HResult; virtual; stdcall; abstract; end; { IDispatch implementation support } PParamData = ^TParamData; TParamData = record szName: POleStr; vt: TVarType; end; PParamDataList = ^TParamDataList; TParamDataList = array[0..65535] of TParamData; PMethodData = ^TMethodData; TMethodData = record szName: POleStr; ppdata: PParamDataList; dispid: TDispID; iMeth: Integer; cc: TCallConv; cArgs: Integer; wFlags: Word; vtReturn: TVarType; end; PMethodDataList = ^TMethodDataList; TMethodDataList = array[0..65535] of TMethodData; PInterfaceData = ^TInterfaceData; TInterfaceData = record pmethdata: PMethodDataList; cMembers: Integer; end; { IOleAdviseHolder interface } IOleAdviseHolder = class(IUnknown) public function Advise(advise: IAdviseSink; var dwConnection: Longint): HResult; virtual; stdcall; abstract; function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract; function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract; function SendOnRename(mk: IMoniker): HResult; virtual; stdcall; abstract; function SendOnSave: HResult; virtual; stdcall; abstract; function SendOnClose: HResult; virtual; stdcall; abstract; end; { IOleCache interface } IOleCache = class(IUnknown) public function Cache(var formatetc: TFormatEtc; advf: Longint; var dwConnection: Longint): HResult; virtual; stdcall; abstract; function Uncache(dwConnection: Longint): HResult; virtual; stdcall; abstract; function EnumCache(var enumStatData: IEnumStatData): HResult; virtual; stdcall; abstract; function InitCache(dataObject: IDataObject): HResult; virtual; stdcall; abstract; function SetData(var formatetc: TFormatEtc; var medium: TStgMedium; fRelease: BOOL): HResult; virtual; stdcall; abstract; end; { IOleCache2 interface } IOleCache2 = class(IOleCache) public function UpdateCache(dataObject: IDataObject; grfUpdf: Longint; pReserved: Pointer): HResult; virtual; stdcall; abstract; function DiscardCache(dwDiscardOptions: Longint): HResult; virtual; stdcall; abstract; end; { IOleCacheControl interface } IOleCacheControl = class(IUnknown) public function OnRun(dataObject: IDataObject): HResult; virtual; stdcall; abstract; function OnStop: HResult; virtual; stdcall; abstract; end; { IParseDisplayName interface } IParseDisplayName = class(IUnknown) public function ParseDisplayName(bc: IBindCtx; pszDisplayName: POleStr; var chEaten: Longint; var mkOut: IMoniker): HResult; virtual; stdcall; abstract; end; { IOleContainer interface } IOleContainer = class(IParseDisplayName) public function EnumObjects(grfFlags: Longint; var enum: IEnumUnknown): HResult; virtual; stdcall; abstract; function LockContainer(fLock: BOOL): HResult; virtual; stdcall; abstract; end; { IOleClientSite interface } IOleClientSite = class(IUnknown) public function SaveObject: HResult; virtual; stdcall; abstract; function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint; var mk: IMoniker): HResult; virtual; stdcall; abstract; function GetContainer(var container: IOleContainer): HResult; virtual; stdcall; abstract; function ShowObject: HResult; virtual; stdcall; abstract; function OnShowWindow(fShow: BOOL): HResult; virtual; stdcall; abstract; function RequestNewObjectLayout: HResult; virtual; stdcall; abstract; end; { IOleObject interface } IOleObject = class(IUnknown) public function SetClientSite(clientSite: IOleClientSite): HResult; virtual; stdcall; abstract; function GetClientSite(var clientSite: IOleClientSite): HResult; virtual; stdcall; abstract; function SetHostNames(szContainerApp: POleStr; szContainerObj: POleStr): HResult; virtual; stdcall; abstract; function Close(dwSaveOption: Longint): HResult; virtual; stdcall; abstract; function SetMoniker(dwWhichMoniker: Longint; mk: IMoniker): HResult; virtual; stdcall; abstract; function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint; var mk: IMoniker): HResult; virtual; stdcall; abstract; function InitFromData(dataObject: IDataObject; fCreation: BOOL; dwReserved: Longint): HResult; virtual; stdcall; abstract; function GetClipboardData(dwReserved: Longint; var dataObject: IDataObject): HResult; virtual; stdcall; abstract; function DoVerb(iVerb: Longint; msg: PMsg; activeSite: IOleClientSite; lindex: Longint; hwndParent: HWND; const posRect: TRect): HResult; virtual; stdcall; abstract; function EnumVerbs(var enumOleVerb: IEnumOleVerb): HResult; virtual; stdcall; abstract; function Update: HResult; virtual; stdcall; abstract; function IsUpToDate: HResult; virtual; stdcall; abstract; function GetUserClassID(var clsid: TCLSID): HResult; virtual; stdcall; abstract; function GetUserType(dwFormOfType: Longint; var pszUserType: POleStr): HResult; virtual; stdcall; abstract; function SetExtent(dwDrawAspect: Longint; const size: TPoint): HResult; virtual; stdcall; abstract; function GetExtent(dwDrawAspect: Longint; var size: TPoint): HResult; virtual; stdcall; abstract; function Advise(advSink: IAdviseSink; var dwConnection: Longint): HResult; virtual; stdcall; abstract; function Unadvise(dwConnection: Longint): HResult; virtual; stdcall; abstract; function EnumAdvise(var enumAdvise: IEnumStatData): HResult; virtual; stdcall; abstract; function GetMiscStatus(dwAspect: Longint; var dwStatus: Longint): HResult; virtual; stdcall; abstract; function SetColorScheme(var logpal: TLogPalette): HResult; virtual; stdcall; abstract; end; { OLE types } PObjectDescriptor = ^TObjectDescriptor; TObjectDescriptor = record cbSize: Longint; clsid: TCLSID; dwDrawAspect: Longint; size: TPoint; point: TPoint; dwStatus: Longint; dwFullUserTypeName: Longint; dwSrcOfCopy: Longint; end; PLinkSrcDescriptor = PObjectDescriptor; TLinkSrcDescriptor = TObjectDescriptor; { IOleWindow interface } IOleWindow = class(IUnknown) public function GetWindow(var wnd: HWnd): HResult; virtual; stdcall; abstract; function ContextSensitiveHelp(fEnterMode: BOOL): HResult; virtual; stdcall; abstract; end; { IOleLink interface } IOleLink = class(IUnknown) public function SetUpdateOptions(dwUpdateOpt: Longint): HResult; virtual; stdcall; abstract; function GetUpdateOptions(var dwUpdateOpt: Longint): HResult; virtual; stdcall; abstract; function SetSourceMoniker(mk: IMoniker; const clsid: TCLSID): HResult; virtual; stdcall; abstract; function GetSourceMoniker(var mk: IMoniker): HResult; virtual; stdcall; abstract; function SetSourceDisplayName(pszDisplayName: POleStr): HResult; virtual; stdcall; abstract; function GetSourceDisplayName(var pszDisplayName: POleStr): HResult; virtual; stdcall; abstract; function BindToSource(bindflags: Longint; bc: IBindCtx): HResult; virtual; stdcall; abstract; function BindIfRunning: HResult; virtual; stdcall; abstract; function GetBoundSource(var unk: IUnknown): HResult; virtual; stdcall; abstract; function UnbindSource: HResult; virtual; stdcall; abstract; function Update(bc: IBindCtx): HResult; virtual; stdcall; abstract; end; { IOleItemContainer interface } IOleItemContainer = class(IOleContainer) public function GetObject(pszItem: POleStr; dwSpeedNeeded: Longint; bc: IBindCtx; const iid: TIID; var vObject): HResult; virtual; stdcall; abstract; function GetObjectStorage(pszItem: POleStr; bc: IBindCtx; const iid: TIID; var vStorage): HResult; virtual; stdcall; abstract; function IsRunning(pszItem: POleStr): HResult; virtual; stdcall; abstract; end; { IOleInPlaceUIWindow interface } IOleInPlaceUIWindow = class(IOleWindow) public function GetBorder(var rectBorder: TRect): HResult; virtual; stdcall; abstract; function RequestBorderSpace(const borderwidths: TRect): HResult; virtual; stdcall; abstract; function SetBorderSpace(pborderwidths: PRect): HResult; virtual; stdcall; abstract; function SetActiveObject(activeObject: IOleInPlaceActiveObject; pszObjName: POleStr): HResult; virtual; stdcall; abstract; end; { IOleInPlaceActiveObject interface } IOleInPlaceActiveObject = class(IOleWindow) public function TranslateAccelerator(var msg: TMsg): HResult; virtual; stdcall; abstract; function OnFrameWindowActivate(fActivate: BOOL): HResult; virtual; stdcall; abstract; function OnDocWindowActivate(fActivate: BOOL): HResult; virtual; stdcall; abstract; function ResizeBorder(const rcBorder: TRect; uiWindow: IOleInPlaceUIWindow; fFrameWindow: BOOL): HResult; virtual; stdcall; abstract; function EnableModeless(fEnable: BOOL): HResult; virtual; stdcall; abstract; end; { IOleInPlaceFrame interface } POleInPlaceFrameInfo = ^TOleInPlaceFrameInfo; TOleInPlaceFrameInfo = record cb: Integer; fMDIApp: BOOL; hwndFrame: HWND; haccel: HAccel; cAccelEntries: Integer; end; POleMenuGroupWidths = ^TOleMenuGroupWidths; TOleMenuGroupWidths = record width: array[0..5] of Longint; end; IOleInPlaceFrame = class(IOleInPlaceUIWindow) public function InsertMenus(hmenuShared: HMenu; var menuWidths: TOleMenuGroupWidths): HResult; virtual; stdcall; abstract; function SetMenu(hmenuShared: HMenu; holemenu: HMenu; hwndActiveObject: HWnd): HResult; virtual; stdcall; abstract; function RemoveMenus(hmenuShared: HMenu): HResult; virtual; stdcall; abstract; function SetStatusText(pszStatusText: POleStr): HResult; virtual; stdcall; abstract; function EnableModeless(fEnable: BOOL): HResult; virtual; stdcall; abstract; function TranslateAccelerator(var msg: TMsg; wID: Word): HResult; virtual; stdcall; abstract; end; { IOleInPlaceObject interface } IOleInPlaceObject = class(IOleWindow) public function InPlaceDeactivate: HResult; virtual; stdcall; abstract; function UIDeactivate: HResult; virtual; stdcall; abstract; function SetObjectRects(const rcPosRect: TRect; const rcClipRect: TRect): HResult; virtual; stdcall; abstract; function ReactivateAndUndo: HResult; virtual; stdcall; abstract; end; { IOleInPlaceSite interface } IOleInPlaceSite = class(IOleWindow) public function CanInPlaceActivate: HResult; virtual; stdcall; abstract; function OnInPlaceActivate: HResult; virtual; stdcall; abstract; function OnUIActivate: HResult; virtual; stdcall; abstract; function GetWindowContext(var frame: IOleInPlaceFrame; var doc: IOleInPlaceUIWindow; var rcPosRect: TRect; var rcClipRect: TRect; var frameInfo: TOleInPlaceFrameInfo): HResult; virtual; stdcall; abstract; function Scroll(scrollExtent: TPoint): HResult; virtual; stdcall; abstract; function OnUIDeactivate(fUndoable: BOOL): HResult; virtual; stdcall; abstract; function OnInPlaceDeactivate: HResult; virtual; stdcall; abstract; function DiscardUndoState: HResult; virtual; stdcall; abstract; function DeactivateAndUndo: HResult; virtual; stdcall; abstract; function OnPosRectChange(const rcPosRect: TRect): HResult; virtual; stdcall; abstract; end; { IViewObject interface } TContinueFunc = function(dwContinue: Longint): BOOL stdcall; IViewObject = class(IUnknown) public function Draw(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer; ptd: PDVTargetDevice; hicTargetDev: HDC; hdcDraw: HDC; prcBounds: PRect; prcWBounds: PRect; fnContinue: TContinueFunc; dwContinue: Longint): HResult; virtual; stdcall; abstract; function GetColorSet(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer; ptd: PDVTargetDevice; hicTargetDev: HDC; var colorSet: PLogPalette): HResult; virtual; stdcall; abstract; function Freeze(dwDrawAspect: Longint; lindex: Longint; pvAspect: Pointer; var dwFreeze: Longint): HResult; virtual; stdcall; abstract; function Unfreeze(dwFreeze: Longint): HResult; virtual; stdcall; abstract; function SetAdvise(aspects: Longint; advf: Longint; advSink: IAdviseSink): HResult; virtual; stdcall; abstract; function GetAdvise(pAspects: PLongint; pAdvf: PLongint; var advSink: IAdviseSink): HResult; virtual; stdcall; abstract; end; { IViewObject2 interface } IViewObject2 = class(IViewObject) public function GetExtent(dwDrawAspect: Longint; lindex: Longint; ptd: PDVTargetDevice; var size: TPoint): HResult; virtual; stdcall; abstract; end; { IDropSource interface } IDropSource = class(IUnknown) public function QueryContinueDrag(fEscapePressed: BOOL; grfKeyState: Longint): HResult; virtual; stdcall; abstract; function GiveFeedback(dwEffect: Longint): HResult; virtual; stdcall; abstract; end; { IDropTarget interface } IDropTarget = class(IUnknown) public function DragEnter(dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; virtual; stdcall; abstract; function DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; virtual; stdcall; abstract; function DragLeave: HResult; virtual; stdcall; abstract; function Drop(dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; virtual; stdcall; abstract; end; { IEnumOleVerb interface } POleVerb = ^TOleVerb; TOleVerb = record lVerb: Longint; lpszVerbName: POleStr; fuFlags: Longint; grfAttribs: Longint; end; IEnumOleVerb = class(IUnknown) public function Next(celt: Longint; var elt; pceltFetched: PLongint): HResult; virtual; stdcall; abstract; function Skip(celt: Longint): HResult; virtual; stdcall; abstract; function Reset: HResult; virtual; stdcall; abstract; function Clone(var enm: IEnumOleVerb): HResult; virtual; stdcall; abstract; end; IOleDocumentView = class(IUnknown) public function SetInPlaceSite(Site: IOleInPlaceSite):HResult; virtual; stdcall; abstract; function GetInPlaceSite(var Site: IOleInPlaceSite):HResult; virtual; stdcall; abstract; function GetDocument(var P: IUnknown):HResult; virtual; stdcall; abstract; function SetRect(const View: TRECT):HResult; virtual; stdcall; abstract; function GetRect(var View: TRECT):HResult; virtual; stdcall; abstract; function SetRectComplex(const View, HScroll, VScroll, SizeBox):HResult; virtual; stdcall; abstract; function Show(fShow: BOOL):HResult; virtual; stdcall; abstract; function UIActivate(fUIActivate: BOOL):HResult; virtual; stdcall; abstract; function Open:HResult; virtual; stdcall; abstract; function CloseView(dwReserved: DWORD):HResult; virtual; stdcall; abstract; function SaveViewState(pstm: IStream):HResult; virtual; stdcall; abstract; function ApplyViewState(pstm: IStream):HResult; virtual; stdcall; abstract; function Clone(NewSite: IOleInPlaceSite; var NewView: IOleDocumentView):HResult; virtual; stdcall; abstract; end; IEnumOleDocumentViews = class(IUnknown) public function Next(Count: Longint; var View: IOleDocumentView; var Fetched: Longint):HResult; virtual; stdcall; abstract; function Skip(Count: Longint):HResult; virtual; stdcall; abstract; function Reset:HResult; virtual; stdcall; abstract; function Clone(var Enum: IEnumOleDocumentViews):HResult; virtual; stdcall; abstract; end; IOleDocument = class(IUnknown) public function CreateView(Site: IOleInPlaceSite; Stream: IStream; rsrvd: DWORD; var View: IOleDocumentView):HResult; virtual; stdcall; abstract; function GetDocMiscStatus(var Status: DWORD):HResult; virtual; stdcall; abstract; function EnumViews(var Enum: IEnumOleDocumentViews; var View: IOleDocumentView):HResult; virtual; stdcall; abstract; end; IOleDocumentSite = class(IUnknown) public function ActivateMe(View: IOleDocumentView): HRESULT; virtual; stdcall; abstract; end; const { Standard GUIDs } GUID_NULL: TGUID = ( D1:$00000000;D2:$0000;D3:$0000;D4:($00,$00,$00,$00,$00,$00,$00,$00)); IID_IUnknown: TGUID = ( D1:$00000000;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IClassFactory: TGUID = ( D1:$00000001;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IMarshal: TGUID = ( D1:$00000003;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IMalloc: TGUID = ( D1:$00000002;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IStdMarshalInfo: TGUID = ( D1:$00000018;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IExternalConnection: TGUID = ( D1:$00000019;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumUnknown: TGUID = ( D1:$00000100;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IBindCtx: TGUID = ( D1:$0000000E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumMoniker: TGUID = ( D1:$00000102;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRunnableObject: TGUID = ( D1:$00000126;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRunningObjectTable: TGUID = ( D1:$00000010;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IPersist: TGUID = ( D1:$0000010C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IPersistStream: TGUID = ( D1:$00000109;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IMoniker: TGUID = ( D1:$0000000F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumString: TGUID = ( D1:$00000101;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IStream: TGUID = ( D1:$0000000C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumStatStg: TGUID = ( D1:$0000000D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IStorage: TGUID = ( D1:$0000000B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IPersistFile: TGUID = ( D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IPersistStorage: TGUID = ( D1:$0000010A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_ILockBytes: TGUID = ( D1:$0000000A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumFormatEtc: TGUID = ( D1:$00000103;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumStatData: TGUID = ( D1:$00000105;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRootStorage: TGUID = ( D1:$00000012;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IAdviseSink: TGUID = ( D1:$0000010F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IAdviseSink2: TGUID = ( D1:$00000125;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDataObject: TGUID = ( D1:$0000010E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDataAdviseHolder: TGUID = ( D1:$00000110;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IMessageFilter: TGUID = ( D1:$00000016;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRpcChannelBuffer: TGUID = ( D1:$D5F56B60;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A)); IID_IRpcProxyBuffer: TGUID = ( D1:$D5F56A34;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A)); IID_IRpcStubBuffer: TGUID = ( D1:$D5F56AFC;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A)); IID_IPSFactoryBuffer: TGUID = ( D1:$D5F569D0;D2:$593B;D3:$101A;D4:($B5,$69,$08,$00,$2B,$2D,$BF,$7A)); IID_ICreateTypeInfo: TGUID = ( D1:$00020405;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_ICreateTypeLib: TGUID = ( D1:$00020406;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDispatch: TGUID = ( D1:$00020400;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumVariant: TGUID = ( D1:$00020404;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_ITypeComp: TGUID = ( D1:$00020403;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_ITypeInfo: TGUID = ( D1:$00020401;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_ITypeLib: TGUID = ( D1:$00020402;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IErrorInfo: TGUID = ( D1:$1CF2B120;D2:$547D;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19)); IID_ICreateErrorInfo: TGUID = ( D1:$22F03340;D2:$547D;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19)); IID_ISupportErrorInfo: TGUID = ( D1:$DF0B3D60;D2:$548F;D3:$101B;D4:($8E,$65,$08,$00,$2B,$2B,$D1,$19)); IID_IOleAdviseHolder: TGUID = ( D1:$00000111;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleCache: TGUID = ( D1:$0000011E;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleCache2: TGUID = ( D1:$00000128;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleCacheControl: TGUID = ( D1:$00000129;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IParseDisplayName: TGUID = ( D1:$0000011A;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleContainer: TGUID = ( D1:$0000011B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleClientSite: TGUID = ( D1:$00000118;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleObject: TGUID = ( D1:$00000112;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleWindow: TGUID = ( D1:$00000114;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleLink: TGUID = ( D1:$0000011D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleItemContainer: TGUID = ( D1:$0000011C;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleInPlaceUIWindow: TGUID = ( D1:$00000115;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleInPlaceActiveObject: TGUID = ( D1:$00000117;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleInPlaceFrame: TGUID = ( D1:$00000116;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleInPlaceObject: TGUID = ( D1:$00000113;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleInPlaceSite: TGUID = ( D1:$00000119;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IViewObject: TGUID = ( D1:$0000010D;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IViewObject2: TGUID = ( D1:$00000127;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDropSource: TGUID = ( D1:$00000121;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDropTarget: TGUID = ( D1:$00000122;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumOleVerb: TGUID = ( D1:$00000104;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); { Additional GUIDs } IID_IRpcChannel: TGUID = ( D1:$00000004;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRpcStub: TGUID = ( D1:$00000005;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IStubManager: TGUID = ( D1:$00000006;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IRpcProxy: TGUID = ( D1:$00000007;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IProxyManager: TGUID = ( D1:$00000008;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IPSFactory: TGUID = ( D1:$00000009;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IInternalMoniker: TGUID = ( D1:$00000011;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); CLSID_StdMarshal: TGUID = ( D1:$00000017;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumGeneric: TGUID = ( D1:$00000106;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumHolder: TGUID = ( D1:$00000107;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IEnumCallback: TGUID = ( D1:$00000108;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleManager: TGUID = ( D1:$0000011F;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOlePresObj: TGUID = ( D1:$00000120;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDebug: TGUID = ( D1:$00000123;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IDebugStream: TGUID = ( D1:$00000124;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46)); IID_IOleDocument: TGUID = ( D1:$b722bcc5;D2:$4e68;D3:$101b;D4:($a2,$bc,$00,$aa,$00,$40,$47,$70)); IID_IOleDocumentSite: TGUID = ( D1:$b722bcc7;D2:$4e68;D3:$101b;D4:($a2,$bc,$00,$aa,$00,$40,$47,$70)); { HResult manipulation routines } function Succeeded(Res: HResult): Boolean; function Failed(Res: HResult): Boolean; function ResultCode(Res: HResult): Integer; function ResultFacility(Res: HResult): Integer; function ResultSeverity(Res: HResult): Integer; function MakeResult(Severity, Facility, Code: Integer): HResult; { GUID functions } function IsEqualGUID(const guid1, guid2: TGUID): Boolean; stdcall; function IsEqualIID(const iid1, iid2: TIID): Boolean; stdcall; function IsEqualCLSID(const clsid1, clsid2: TCLSID): Boolean; stdcall; { Standard object API functions } function CoBuildVersion: Longint; stdcall; { Init/Uninit } function CoInitialize(pvReserved: Pointer): HResult; stdcall; procedure CoUninitialize; stdcall; function CoGetMalloc(dwMemContext: Longint; var malloc: IMalloc): HResult; stdcall; function CoGetCurrentProcess: Longint; stdcall; function CoRegisterMallocSpy(mallocSpy: IMallocSpy): HResult; stdcall; function CoRevokeMallocSpy: HResult stdcall; function CoCreateStandardMalloc(memctx: Longint; var malloc: IMalloc): HResult; stdcall; { Register, revoke, and get class objects } function CoGetClassObject(const clsid: TCLSID; dwClsContext: Longint; pvReserved: Pointer; const iid: TIID; var pv): HResult; stdcall; function CoRegisterClassObject(const clsid: TCLSID; unk: IUnknown; dwClsContext: Longint; flags: Longint; var dwRegister: Longint): HResult; stdcall; function CoRevokeClassObject(dwRegister: Longint): HResult; stdcall; { Marshaling interface pointers } function CoGetMarshalSizeMax(var ulSize: Longint; const iid: TIID; unk: IUnknown; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint): HResult; stdcall; function CoMarshalInterface(stm: IStream; const iid: TIID; unk: IUnknown; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint): HResult; stdcall; function CoUnmarshalInterface(stm: IStream; const iid: TIID; var pv): HResult; stdcall; function CoMarshalHResult(stm: IStream; result: HResult): HResult; stdcall; function CoUnmarshalHResult(stm: IStream; var result: HResult): HResult; stdcall; function CoReleaseMarshalData(stm: IStream): HResult; stdcall; function CoDisconnectObject(unk: IUnknown; dwReserved: Longint): HResult; stdcall; function CoLockObjectExternal(unk: IUnknown; fLock: BOOL; fLastUnlockReleases: BOOL): HResult; stdcall; function CoGetStandardMarshal(const iid: TIID; unk: IUnknown; dwDestContext: Longint; pvDestContext: Pointer; mshlflags: Longint; var marshal: IMarshal): HResult; stdcall; function CoIsHandlerConnected(unk: IUnknown): BOOL; stdcall; function CoHasStrongExternalConnections(unk: IUnknown): BOOL; stdcall; { Apartment model inter-thread interface passing helpers } function CoMarshalInterThreadInterfaceInStream(const iid: TIID; unk: IUnknown; var stm: IStream): HResult; stdcall; function CoGetInterfaceAndReleaseStream(stm: IStream; const iid: TIID; var pv): HResult; stdcall; function CoCreateFreeThreadedMarshaler(unkOuter: IUnknown; var unkMarshal: IUnknown): HResult; stdcall; { DLL loading helpers; keeps track of ref counts and unloads all on exit } function CoLoadLibrary(pszLibName: POleStr; bAutoFree: BOOL): THandle; stdcall; procedure CoFreeLibrary(hInst: THandle); stdcall; procedure CoFreeAllLibraries; stdcall; procedure CoFreeUnusedLibraries; stdcall; { Helper for creating instances } function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown; dwClsContext: Longint; const iid: TIID; var pv): HResult; stdcall; { Other helpers } function StringFromCLSID(const clsid: TCLSID; var psz: POleStr): HResult; stdcall; function CLSIDFromString(psz: POleStr; var clsid: TCLSID): HResult; stdcall; function StringFromIID(const iid: TIID; var psz: POleStr): HResult; stdcall; function IIDFromString(psz: POleStr; var iid: TIID): HResult; stdcall; function CoIsOle1Class(const clsid: TCLSID): BOOL; stdcall; function ProgIDFromCLSID(const clsid: TCLSID; var pszProgID: POleStr): HResult; stdcall; function CLSIDFromProgID(pszProgID: POleStr; var clsid: TCLSID): HResult; stdcall; function StringFromGUID2(const guid: TGUID; psz: POleStr; cbMax: Integer): Integer; stdcall; function CoCreateGuid(var guid: TGUID): HResult; stdcall; function CoFileTimeToDosDateTime(var filetime: TFileTime; var dosDate: Word; var dosTime: Word): BOOL; stdcall; function CoDosDateTimeToFileTime(nDosDate: Word; nDosTime: Word; var filetime: TFileTime): BOOL; stdcall; function CoFileTimeNow(var filetime: TFileTime): HResult; stdcall; function CoRegisterMessageFilter(messageFilter: IMessageFilter; var pMessageFilter: IMessageFilter): HResult; stdcall; { TreatAs APIs } function CoGetTreatAsClass(const clsidOld: TCLSID; var clsidNew: TCLSID): HResult; stdcall; function CoTreatAsClass(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall; { The server DLLs must define their DllGetClassObject and DllCanUnloadNow to match these; the typedefs are located here to ensure all are changed at the same time } type TDLLGetClassObject = function(const clsid: TCLSID; const iid: TIID; var pv): HResult stdcall; TDLLCanUnloadNow = function: HResult stdcall; { Default memory allocation } function CoTaskMemAlloc(cb: Longint): Pointer; stdcall; function CoTaskMemRealloc(pv: Pointer; cb: Longint): Pointer; stdcall; procedure CoTaskMemFree(pv: Pointer); stdcall; { DV APIs } function CreateDataAdviseHolder(var DAHolder: IDataAdviseHolder): HResult; stdcall; function CreateDataCache(unkOuter: IUnknown; const clsid: TCLSID; const iid: TIID; var pv): HResult; stdcall; { Storage API prototypes } function StgCreateDocfile(pwcsName: POleStr; grfMode: Longint; reserved: Longint; var stgOpen: IStorage): HResult; stdcall; function StgCreateDocfileOnILockBytes(lkbyt: ILockBytes; grfMode: Longint; reserved: Longint; var stgOpen: IStorage): HResult; stdcall; function StgOpenStorage(pwcsName: POleStr; stgPriority: IStorage; grfMode: Longint; snbExclude: TSNB; reserved: Longint; var stgOpen: IStorage): HResult; stdcall; function StgOpenStorageOnILockBytes(lkbyt: ILockBytes; stgPriority: IStorage; grfMode: Longint; snbExclude: TSNB; reserved: Longint; var stgOpen: IStorage): HResult; stdcall; function StgIsStorageFile(pwcsName: POleStr): HResult; stdcall; function StgIsStorageILockBytes(lkbyt: ILockBytes): HResult; stdcall; function StgSetTimes(pszName: POleStr; const ctime: TFileTime; const atime: TFileTime; const mtime: TFileTime): HResult; stdcall; { Moniker APIs } function BindMoniker(mk: IMoniker; grfOpt: Longint; const iidResult: TIID; var pvResult): HResult; stdcall; function MkParseDisplayName(bc: IBindCtx; szUserName: POleStr; var chEaten: Longint; var mk: IMoniker): HResult; stdcall; function MonikerRelativePathTo(mkSrc: IMoniker; mkDest: IMoniker; var mkRelPath: IMoniker; dwReserved: BOOL): HResult; stdcall; function MonikerCommonPrefixWith(mkThis: IMoniker; mkOther: IMoniker; var mkCommon: IMoniker): HResult; stdcall; function CreateBindCtx(reserved: Longint; var bc: IBindCtx): HResult; stdcall; function CreateGenericComposite(mkFirst: IMoniker; mkRest: IMoniker; var mkComposite: IMoniker): HResult; stdcall; function GetClassFile(szFilename: POleStr; var clsid: TCLSID): HResult; stdcall; function CreateFileMoniker(pszPathName: POleStr; var mk: IMoniker): HResult; stdcall; function CreateItemMoniker(pszDelim: POleStr; pszItem: POleStr; var mk: IMoniker): HResult; stdcall; function CreateAntiMoniker(var mk: IMoniker): HResult; stdcall; function CreatePointerMoniker(unk: IUnknown; var mk: IMoniker): HResult; stdcall; function GetRunningObjectTable(reserved: Longint; var rot: IRunningObjectTable): HResult; stdcall; { TBStr API } function SysAllocString(psz: POleStr): TBStr; stdcall; function SysReAllocString(var bstr: TBStr; psz: POleStr): Integer; stdcall; function SysAllocStringLen(psz: POleStr; len: Integer): TBStr; stdcall; function SysReAllocStringLen(var bstr: TBStr; psz: POleStr; len: Integer): Integer; stdcall; procedure SysFreeString(bstr: TBStr); stdcall; function SysStringLen(bstr: TBStr): Integer; stdcall; function SysStringByteLen(bstr: TBStr): Integer; stdcall; function SysAllocStringByteLen(psz: PChar; len: Integer): TBStr; stdcall; { Time API } function DosDateTimeToVariantTime(wDosDate, wDosTime: Word; var vtime: TOleDate): Integer; stdcall; function VariantTimeToDosDateTime(vtime: TOleDate; var wDosDate, wDosTime: Word): Integer; stdcall; { SafeArray API } function SafeArrayAllocDescriptor(cDims: Integer; var psaOut: PSafeArray): HResult; stdcall; function SafeArrayAllocData(psa: PSafeArray): HResult; stdcall; function SafeArrayCreate(vt: TVarType; cDims: Integer; const rgsabound): PSafeArray; stdcall; function SafeArrayDestroyDescriptor(psa: PSafeArray): HResult; stdcall; function SafeArrayDestroyData(psa: PSafeArray): HResult; stdcall; function SafeArrayDestroy(psa: PSafeArray): HResult; stdcall; function SafeArrayRedim(psa: PSafeArray; var saboundNew: TSafeArrayBound): HResult; stdcall; function SafeArrayGetDim(psa: PSafeArray): Integer; stdcall; function SafeArrayGetElemsize(psa: PSafeArray): Integer; stdcall; function SafeArrayGetUBound(psa: PSafeArray; nDim: Integer; var lUbound: Longint): HResult; stdcall; function SafeArrayGetLBound(psa: PSafeArray; nDim: Integer; var lLbound: Longint): HResult; stdcall; function SafeArrayLock(psa: PSafeArray): HResult; stdcall; function SafeArrayUnlock(psa: PSafeArray): HResult; stdcall; function SafeArrayAccessData(psa: PSafeArray; var pvData: Pointer): HResult; stdcall; function SafeArrayUnaccessData(psa: PSafeArray): HResult; stdcall; function SafeArrayGetElement(psa: PSafeArray; const rgIndices; var pv): HResult; stdcall; function SafeArrayPutElement(psa: PSafeArray; const rgIndices; const pv): HResult; stdcall; function SafeArrayCopy(psa: PSafeArray; var psaOut: PSafeArray): HResult; stdcall; function SafeArrayPtrOfIndex(psa: PSafeArray; var rgIndices; var pvData: Pointer): HResult; stdcall; { Variant API } procedure VariantInit(var varg: Variant); stdcall; function VariantClear(var varg: Variant): HResult; stdcall; function VariantCopy(var vargDest: Variant; const vargSrc: Variant): HResult; stdcall; function VariantCopyInd(var varDest: Variant; const vargSrc: Variant): HResult; stdcall; function VariantChangeType(var vargDest: Variant; const vargSrc: Variant; wFlags: Word; vt: TVarType): HResult; stdcall; function VariantChangeTypeEx(var vargDest: Variant; const vargSrc: Variant; lcid: TLCID; wFlags: Word; vt: TVarType): HResult; stdcall; { VarType coercion API } { Note: The routines that convert from a string are defined to take a POleStr rather than a TBStr because no allocation is required, and this makes the routines a bit more generic. They may of course still be passed a TBStr as the strIn param. } { Any of the coersion functions that converts either from or to a string takes an additional lcid and dwFlags arguments. The lcid argument allows locale specific parsing to occur. The dwFlags allow additional function specific condition to occur. All function that accept the dwFlags argument can include either 0 or LOCALE_NOUSEROVERRIDE flag. In addition, the VarDateFromStr functions also accepts the VAR_TIMEVALUEONLY and VAR_DATEVALUEONLY flags } function VarUI1FromI2(sIn: Smallint; var bOut: Byte): HResult; stdcall; function VarUI1FromI4(lIn: Longint; var bOut: Byte): HResult; stdcall; function VarUI1FromR4(fltIn: Single; var bOut: Byte): HResult; stdcall; function VarUI1FromR8(dblIn: Double; var bOut: Byte): HResult; stdcall; function VarUI1FromCy(cyIn: TCurrency; var bOut: Byte): HResult; stdcall; function VarUI1FromDate(dateIn: TOleDate; var bOut: Byte): HResult; stdcall; function VarUI1FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var bOut: Byte): HResult; stdcall; function VarUI1FromDisp(dispIn: IDispatch; lcid: TLCID; var bOut: Byte): HResult; stdcall; function VarUI1FromBool(boolIn: TOleBool; var bOut: Byte): HResult; stdcall; function VarI2FromUI1(bIn: Byte; var sOut: Smallint): HResult; stdcall; function VarI2FromI4(lIn: Longint; var sOut: Smallint): HResult; stdcall; function VarI2FromR4(fltIn: Single; var sOut: Smallint): HResult; stdcall; function VarI2FromR8(dblIn: Double; var sOut: Smallint): HResult; stdcall; function VarI2FromCy(cyIn: TCurrency; var sOut: Smallint): HResult; stdcall; function VarI2FromDate(dateIn: TOleDate; var sOut: Smallint): HResult; stdcall; function VarI2FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var sOut: Smallint): HResult; stdcall; function VarI2FromDisp(dispIn: IDispatch; lcid: TLCID; var sOut: Smallint): HResult; stdcall; function VarI2FromBool(boolIn: TOleBool; var sOut: Smallint): HResult; stdcall; function VarI4FromUI1(bIn: Byte; var lOut: Longint): HResult; stdcall; function VarI4FromI2(sIn: Smallint; var lOut: Longint): HResult; stdcall; function VarI4FromR4(fltIn: Single; var lOut: Longint): HResult; stdcall; function VarI4FromR8(dblIn: Double; var lOut: Longint): HResult; stdcall; function VarI4FromCy(cyIn: TCurrency; var lOut: Longint): HResult; stdcall; function VarI4FromDate(dateIn: TOleDate; var lOut: Longint): HResult; stdcall; function VarI4FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var lOut: Longint): HResult; stdcall; function VarI4FromDisp(dispIn: IDispatch; lcid: TLCID; var lOut: Longint): HResult; stdcall; function VarI4FromBool(boolIn: TOleBool; var lOut: Longint): HResult; stdcall; function VarR4FromUI1(bIn: Byte; var fltOut: Single): HResult; stdcall; function VarR4FromI2(sIn: Smallint; var fltOut: Single): HResult; stdcall; function VarR4FromI4(lIn: Longint; var fltOut: Single): HResult; stdcall; function VarR4FromR8(dblIn: Double; var fltOut: Single): HResult; stdcall; function VarR4FromCy(cyIn: TCurrency; var fltOut: Single): HResult; stdcall; function VarR4FromDate(dateIn: TOleDate; var fltOut: Single): HResult; stdcall; function VarR4FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var fltOut: Single): HResult; stdcall; function VarR4FromDisp(dispIn: IDispatch; lcid: TLCID; var fltOut: Single): HResult; stdcall; function VarR4FromBool(boolIn: TOleBool; var fltOut: Single): HResult; stdcall; function VarR8FromUI1(bIn: Byte; var dblOut: Double): HResult; stdcall; function VarR8FromI2(sIn: Smallint; var dblOut: Double): HResult; stdcall; function VarR8FromI4(lIn: Longint; var dblOut: Double): HResult; stdcall; function VarR8FromR4(fltIn: Single; var dblOut: Double): HResult; stdcall; function VarR8FromCy(cyIn: TCurrency; var dblOut: Double): HResult; stdcall; function VarR8FromDate(dateIn: TOleDate; var dblOut: Double): HResult; stdcall; function VarR8FromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var dblOut: Double): HResult; stdcall; function VarR8FromDisp(dispIn: IDispatch; lcid: TLCID; var dblOut: Double): HResult; stdcall; function VarR8FromBool(boolIn: TOleBool; var dblOut: Double): HResult; stdcall; function VarDateFromUI1(bIn: Byte; var dateOut: TOleDate): HResult; stdcall; function VarDateFromI2(sIn: Smallint; var dateOut: TOleDate): HResult; stdcall; function VarDateFromI4(lIn: Longint; var dateOut: TOleDate): HResult; stdcall; function VarDateFromR4(fltIn: Single; var dateOut: TOleDate): HResult; stdcall; function VarDateFromR8(dblIn: Double; var dateOut: TOleDate): HResult; stdcall; function VarDateFromCy(cyIn: TCurrency; var dateOut: TOleDate): HResult; stdcall; function VarDateFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var dateOut: TOleDate): HResult; stdcall; function VarDateFromDisp(dispIn: IDispatch; lcid: TLCID; var dateOut: TOleDate): HResult; stdcall; function VarDateFromBool(boolIn: TOleBool; var dateOut: TOleDate): HResult; stdcall; function VarCyFromUI1(bIn: Byte; var cyOut: TCurrency): HResult; stdcall; function VarCyFromI2(sIn: Smallint; var cyOut: TCurrency): HResult; stdcall; function VarCyFromI4(lIn: Longint; var cyOut: TCurrency): HResult; stdcall; function VarCyFromR4(fltIn: Single; var cyOut: TCurrency): HResult; stdcall; function VarCyFromR8(dblIn: Double; var cyOut: TCurrency): HResult; stdcall; function VarCyFromDate(dateIn: TOleDate; var cyOut: TCurrency): HResult; stdcall; function VarCyFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var cyOut: TCurrency): HResult; stdcall; function VarCyFromDisp(dispIn: IDispatch; lcid: TLCID; var cyOut: TCurrency): HResult; stdcall; function VarCyFromBool(boolIn: TOleBool; var cyOut: TCurrency): HResult; stdcall; function VarBStrFromUI1(bVal: Byte; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromI2(iVal: Smallint; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromI4(lIn: Longint; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromR4(fltIn: Single; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromR8(dblIn: Double; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromCy(cyIn: TCurrency; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromDate(dateIn: TOleDate; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromDisp(dispIn: IDispatch; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBStrFromBool(boolIn: TOleBool; lcid: TLCID; dwFlags: Longint; var bstrOut: TBStr): HResult; stdcall; function VarBoolFromUI1(bIn: Byte; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromI2(sIn: Smallint; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromI4(lIn: Longint; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromR4(fltIn: Single; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromR8(dblIn: Double; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromDate(dateIn: TOleDate; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromCy(cyIn: TCurrency; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromStr(strIn: TBStr; lcid: TLCID; dwFlags: Longint; var boolOut: TOleBool): HResult; stdcall; function VarBoolFromDisp(dispIn: IDispatch; lcid: TLCID; var boolOut: TOleBool): HResult; stdcall; { TypeInfo API } function LHashValOfNameSys(syskind: TSysKind; lcid: TLCID; szName: POleStr): Longint; stdcall; function LHashValOfNameSysA(syskind: TSysKind; lcid: TLCID; szName: PChar): Longint; stdcall; function LHashValOfName(lcid: TLCID; szName: POleStr): Longint; function WHashValOfLHashVal(lhashval: Longint): Word; function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean; function LoadTypeLib(szFile: POleStr; var tlib: ITypeLib): HResult; stdcall; function LoadRegTypeLib(const guid: TGUID; wVerMajor, wVerMinor: Word; lcid: TLCID; var tlib: ITypeLib): HResult; stdcall; function QueryPathOfRegTypeLib(const guid: TGUID; wMaj, wMin: Word; lcid: TLCID; var bstrPathName: TBStr): HResult; stdcall; function RegisterTypeLib(tlib: ITypeLib; szFullPath, szHelpDir: POleStr): HResult; stdcall; function CreateTypeLib(syskind: TSysKind; szFile: POleStr; var ctlib: ICreateTypeLib): HResult; stdcall; { IDispatch implementation support } function DispGetParam(var dispparams: TDispParams; position: Integer; vtTarg: TVarType; var varResult: Variant; var puArgErr: Integer): HResult; stdcall; function DispGetIDsOfNames(tinfo: ITypeInfo; var rgszNames; cNames: Integer; var rgdispid): HResult; stdcall; function DispInvoke(this: Pointer; tinfo: ITypeInfo; dispidMember: TDispID; wFlags: Word; var params: TDispParams; var varResult: Variant; var excepinfo: TExcepInfo; var puArgErr: Integer): HResult; stdcall; function CreateDispTypeInfo(var idata: TInterfaceData; lcid: TLCID; var tinfo: ITypeInfo): HResult; stdcall; function CreateStdDispatch(unkOuter: IUnknown; pvThis: Pointer; tinfo: ITypeInfo; var unkStdDisp: IUnknown): HResult; stdcall; { Active object registration API } function RegisterActiveObject(unk: IUnknown; const clsid: TCLSID; dwFlags: Longint; var dwRegister: Longint): HResult; stdcall; function RevokeActiveObject(dwRegister: Longint; pvReserved: Pointer): HResult; stdcall; function GetActiveObject(const clsid: TCLSID; pvReserved: Pointer; var unk: IUnknown): HResult; stdcall; { ErrorInfo API } function SetErrorInfo(dwReserved: Longint; errinfo: IErrorInfo): HResult; stdcall; function GetErrorInfo(dwReserved: Longint; var errinfo: IErrorInfo): HResult; stdcall; function CreateErrorInfo(var errinfo: ICreateErrorInfo): HResult; stdcall; { Misc API } function OaBuildVersion: Longint; stdcall; { OLE API prototypes } function OleBuildVersion: HResult; stdcall; { helper functions } function ReadClassStg(stg: IStorage; var clsid: TCLSID): HResult; stdcall; function WriteClassStg(stg: IStorage; const clsid: TIID): HResult; stdcall; function ReadClassStm(stm: IStream; var clsid: TCLSID): HResult; stdcall; function WriteClassStm(stm: IStream; const clsid: TIID): HResult; stdcall; function WriteFmtUserTypeStg(stg: IStorage; cf: TClipFormat; pszUserType: POleStr): HResult; stdcall; function ReadFmtUserTypeStg(stg: IStorage; var cf: TClipFormat; var pszUserType: POleStr): HResult; stdcall; { Initialization and termination } function OleInitialize(pwReserved: Pointer): HResult; stdcall; procedure OleUninitialize; stdcall; { APIs to query whether (Embedded/Linked) object can be created from the data object } function OleQueryLinkFromData(srcDataObject: IDataObject): HResult; stdcall; function OleQueryCreateFromData(srcDataObject: IDataObject): HResult; stdcall; { Object creation APIs } function OleCreate(const clsid: TCLSID; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateFromData(srcDataObj: IDataObject; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateLinkFromData(srcDataObj: IDataObject; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateStaticFromData(srcDataObj: IDataObject; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateLink(mkLinkSrc: IMoniker; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateLinkToFile(pszFileName: POleStr; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleCreateFromFile(const clsid: TCLSID; pszFileName: POleStr; const iid: TIID; renderopt: Longint; formatEtc: PFormatEtc; clientSite: IOleClientSite; stg: IStorage; var vObj): HResult; stdcall; function OleLoad(stg: IStorage; const iid: TIID; clientSite: IOleClientSite; var vObj): HResult; stdcall; function OleSave(ps: IPersistStorage; stg: IStorage; fSameAsLoad: BOOL): HResult; stdcall; function OleLoadFromStream(stm: IStream; const iidInterface: TIID; var vObj): HResult; stdcall; function OleSaveToStream(pstm: IPersistStream; stm: IStream): HResult; stdcall; function OleSetContainedObject(unknown: IUnknown; fContained: BOOL): HResult; stdcall; function OleNoteObjectVisible(unknown: IUnknown; fVisible: BOOL): HResult; stdcall; { DragDrop APIs } function RegisterDragDrop(wnd: HWnd; dropTarget: IDropTarget): HResult; stdcall; function RevokeDragDrop(wnd: HWnd): HResult; stdcall; function DoDragDrop(dataObj: IDataObject; dropSource: IDropSource; dwOKEffects: Longint; var dwEffect: Longint): HResult; stdcall; { Clipboard APIs } function OleSetClipboard(dataObj: IDataObject): HResult; stdcall; function OleGetClipboard(var dataObj: IDataObject): HResult; stdcall; function OleFlushClipboard: HResult; stdcall; function OleIsCurrentClipboard(dataObj: IDataObject): HResult; stdcall; { In-place editing APIs } function OleCreateMenuDescriptor(hmenuCombined: HMenu; var menuWidths: TOleMenuGroupWidths): HMenu; stdcall; function OleSetMenuDescriptor(holemenu: HMenu; hwndFrame: HWnd; hwndActiveObject: HWnd; frame: IOleInPlaceFrame; activeObj: IOleInPlaceActiveObject): HResult; stdcall; function OleDestroyMenuDescriptor(holemenu: HMenu): HResult; stdcall; function OleTranslateAccelerator(frame: IOleInPlaceFrame; var frameInfo: TOleInPlaceFrameInfo; msg: PMsg): HResult; stdcall; { Helper APIs } function OleDuplicateData(hSrc: THandle; cfFormat: TClipFormat; uiFlags: Integer): THandle; stdcall; function OleDraw(unknown: IUnknown; dwAspect: Longint; hdcDraw: HDC; const rcBounds: TRect): HResult; stdcall; function OleRun(unknown: IUnknown): HResult; stdcall; function OleIsRunning(obj: IOleObject): BOOL; stdcall; function OleLockRunning(unknown: IUnknown; fLock: BOOL; fLastUnlockCloses: BOOL): HResult; stdcall; procedure ReleaseStgMedium(var medium: TStgMedium); stdcall; function CreateOleAdviseHolder(var OAHolder: IOleAdviseHolder): HResult; stdcall; function OleCreateDefaultHandler(const clsid: TCLSID; unkOuter: IUnknown; const iid: TIID; var vObj): HResult; stdcall; function OleCreateEmbeddingHelper(const clsid: TCLSID; unkOuter: IUnknown; flags: Longint; cf: IClassFactory; const iid: TIID; var vObj): HResult; stdcall; function IsAccelerator(accel: HAccel; cAccelEntries: Integer; msg: PMsg; var pwCmd: Word): BOOL; stdcall; { Icon extraction helper APIs } function OleGetIconOfFile(pszPath: POleStr; fUseFileAsLabel: BOOL): HGlobal; stdcall; function OleGetIconOfClass(const clsid: TCLSID; pszLabel: POleStr; fUseTypeAsLabel: BOOL): HGlobal; stdcall; function OleMetafilePictFromIconAndLabel(icon: HIcon; pszLabel: POleStr; pszSourceFile: POleStr; iIconIndex: Integer): HGlobal; stdcall; { Registration database helper APIs } function OleRegGetUserType(const clsid: TCLSID; dwFormOfType: Longint; var pszUserType: POleStr): HResult; stdcall; function OleRegGetMiscStatus(const clsid: TCLSID; dwAspect: Longint; var dwStatus: Longint): HResult; stdcall; function OleRegEnumFormatEtc(const clsid: TCLSID; dwDirection: Longint; var enum: IEnumFormatEtc): HResult; stdcall; function OleRegEnumVerbs(const clsid: TCLSID; var enum: IEnumOleVerb): HResult; stdcall; { OLE 1.0 conversion APIs } function OleConvertIStorageToOLESTREAM(stg: IStorage; polestm: Pointer): HResult; stdcall; function OleConvertOLESTREAMToIStorage(polestm: Pointer; stg: IStorage; td: PDVTargetDevice): HResult; stdcall; function OleConvertIStorageToOLESTREAMEx(stg: IStorage; cfFormat: TClipFormat; lWidth: Longint; lHeight: Longint; dwSize: Longint; var medium: TStgMedium; polestm: Pointer): HResult; stdcall; function OleConvertOLESTREAMToIStorageEx(polestm: Pointer; stg: IStorage; var cfFormat: TClipFormat; var lWidth: Longint; var lHeight: Longint; var dwSize: Longint; var medium: TStgMedium): HResult; stdcall; { Storage utility APIs } function GetHGlobalFromILockBytes(lkbyt: ILockBytes; var hglob: HGlobal): HResult; stdcall; function CreateILockBytesOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL; var lkbyt: ILockBytes): HResult; stdcall; function GetHGlobalFromStream(stm: IStream; var hglob: HGlobal): HResult; stdcall; function CreateStreamOnHGlobal(hglob: HGlobal; fDeleteOnRelease: BOOL; var stm: IStream): HResult; stdcall; { ConvertTo APIs } function OleDoAutoConvert(stg: IStorage; var clsidNew: TCLSID): HResult; stdcall; function OleGetAutoConvert(const clsidOld: TCLSID; var clsidNew: TCLSID): HResult; stdcall; function OleSetAutoConvert(const clsidOld: TCLSID; const clsidNew: TCLSID): HResult; stdcall; function GetConvertStg(stg: IStorage): HResult; stdcall; function SetConvertStg(stg: IStorage; fConvert: BOOL): HResult; stdcall; implementation const ole32 = 'ole32.dll'; oleaut32 = 'oleaut32.dll'; { Externals from ole32.dll } function IsEqualGUID; external ole32 name 'IsEqualGUID'; function IsEqualIID; external ole32 name 'IsEqualGUID'; function IsEqualCLSID; external ole32 name 'IsEqualGUID'; function CoBuildVersion; external ole32 name 'CoBuildVersion'; function CoInitialize; external ole32 name 'CoInitialize'; procedure CoUninitialize; external ole32 name 'CoUninitialize'; function CoGetMalloc; external ole32 name 'CoGetMalloc'; function CoGetCurrentProcess; external ole32 name 'CoGetCurrentProcess'; function CoRegisterMallocSpy; external ole32 name 'CoRegisterMallocSpy'; function CoRevokeMallocSpy; external ole32 name 'CoRevokeMallocSpy'; function CoCreateStandardMalloc; external ole32 name 'CoCreateStandardMalloc'; function CoGetClassObject; external ole32 name 'CoGetClassObject'; function CoRegisterClassObject; external ole32 name 'CoRegisterClassObject'; function CoRevokeClassObject; external ole32 name 'CoRevokeClassObject'; function CoGetMarshalSizeMax; external ole32 name 'CoGetMarshalSizeMax'; function CoMarshalInterface; external ole32 name 'CoMarshalInterface'; function CoUnmarshalInterface; external ole32 name 'CoUnmarshalInterface'; function CoMarshalHResult; external ole32 name 'CoMarshalHResult'; function CoUnmarshalHResult; external ole32 name 'CoUnmarshalHResult'; function CoReleaseMarshalData; external ole32 name 'CoReleaseMarshalData'; function CoDisconnectObject; external ole32 name 'CoDisconnectObject'; function CoLockObjectExternal; external ole32 name 'CoLockObjectExternal'; function CoGetStandardMarshal; external ole32 name 'CoGetStandardMarshal'; function CoIsHandlerConnected; external ole32 name 'CoIsHandlerConnected'; function CoHasStrongExternalConnections; external ole32 name 'CoHasStrongExternalConnections'; function CoMarshalInterThreadInterfaceInStream; external ole32 name 'CoMarshalInterThreadInterfaceInStream'; function CoGetInterfaceAndReleaseStream; external ole32 name 'CoGetInterfaceAndReleaseStream'; function CoCreateFreeThreadedMarshaler; external ole32 name 'CoCreateFreeThreadedMarshaler'; function CoLoadLibrary; external ole32 name 'CoLoadLibrary'; procedure CoFreeLibrary; external ole32 name 'CoFreeLibrary'; procedure CoFreeAllLibraries; external ole32 name 'CoFreeAllLibraries'; procedure CoFreeUnusedLibraries; external ole32 name 'CoFreeUnusedLibraries'; function CoCreateInstance; external ole32 name 'CoCreateInstance'; function StringFromCLSID; external ole32 name 'StringFromCLSID'; function CLSIDFromString; external ole32 name 'CLSIDFromString'; function StringFromIID; external ole32 name 'StringFromIID'; function IIDFromString; external ole32 name 'IIDFromString'; function CoIsOle1Class; external ole32 name 'CoIsOle1Class'; function ProgIDFromCLSID; external ole32 name 'ProgIDFromCLSID'; function CLSIDFromProgID; external ole32 name 'CLSIDFromProgID'; function StringFromGUID2; external ole32 name 'StringFromGUID2'; function CoCreateGuid; external ole32 name 'CoCreateGuid'; function CoFileTimeToDosDateTime; external ole32 name 'CoFileTimeToDosDateTime'; function CoDosDateTimeToFileTime; external ole32 name 'CoDosDateTimeToFileTime'; function CoFileTimeNow; external ole32 name 'CoFileTimeNow'; function CoRegisterMessageFilter; external ole32 name 'CoRegisterMessageFilter'; function CoGetTreatAsClass; external ole32 name 'CoGetTreatAsClass'; function CoTreatAsClass; external ole32 name 'CoTreatAsClass'; function CoTaskMemAlloc; external ole32 name 'CoTaskMemAlloc'; function CoTaskMemRealloc; external ole32 name 'CoTaskMemRealloc'; procedure CoTaskMemFree; external ole32 name 'CoTaskMemFree'; function CreateDataAdviseHolder; external ole32 name 'CreateDataAdviseHolder'; function CreateDataCache; external ole32 name 'CreateDataCache'; function StgCreateDocfile; external ole32 name 'StgCreateDocfile'; function StgCreateDocfileOnILockBytes; external ole32 name 'StgCreateDocfileOnILockBytes'; function StgOpenStorage; external ole32 name 'StgOpenStorage'; function StgOpenStorageOnILockBytes; external ole32 name 'StgOpenStorageOnILockBytes'; function StgIsStorageFile; external ole32 name 'StgIsStorageFile'; function StgIsStorageILockBytes; external ole32 name 'StgIsStorageILockBytes'; function StgSetTimes; external ole32 name 'StgSetTimes'; function BindMoniker; external ole32 name 'BindMoniker'; function MkParseDisplayName; external ole32 name 'MkParseDisplayName'; function MonikerRelativePathTo; external ole32 name 'MonikerRelativePathTo'; function MonikerCommonPrefixWith; external ole32 name 'MonikerCommonPrefixWith'; function CreateBindCtx; external ole32 name 'CreateBindCtx'; function CreateGenericComposite; external ole32 name 'CreateGenericComposite'; function GetClassFile; external ole32 name 'GetClassFile'; function CreateFileMoniker; external ole32 name 'CreateFileMoniker'; function CreateItemMoniker; external ole32 name 'CreateItemMoniker'; function CreateAntiMoniker; external ole32 name 'CreateAntiMoniker'; function CreatePointerMoniker; external ole32 name 'CreatePointerMoniker'; function GetRunningObjectTable; external ole32 name 'GetRunningObjectTable'; function OleBuildVersion; external ole32 name 'OleBuildVersion'; function ReadClassStg; external ole32 name 'ReadClassStg'; function WriteClassStg; external ole32 name 'WriteClassStg'; function ReadClassStm; external ole32 name 'ReadClassStm'; function WriteClassStm; external ole32 name 'WriteClassStm'; function WriteFmtUserTypeStg; external ole32 name 'WriteFmtUserTypeStg'; function ReadFmtUserTypeStg; external ole32 name 'ReadFmtUserTypeStg'; function OleInitialize; external ole32 name 'OleInitialize'; procedure OleUninitialize; external ole32 name 'OleUninitialize'; function OleQueryLinkFromData; external ole32 name 'OleQueryLinkFromData'; function OleQueryCreateFromData; external ole32 name 'OleQueryCreateFromData'; function OleCreate; external ole32 name 'OleCreate'; function OleCreateFromData; external ole32 name 'OleCreateFromData'; function OleCreateLinkFromData; external ole32 name 'OleCreateLinkFromData'; function OleCreateStaticFromData; external ole32 name 'OleCreateStaticFromData'; function OleCreateLink; external ole32 name 'OleCreateLink'; function OleCreateLinkToFile; external ole32 name 'OleCreateLinkToFile'; function OleCreateFromFile; external ole32 name 'OleCreateFromFile'; function OleLoad; external ole32 name 'OleLoad'; function OleSave; external ole32 name 'OleSave'; function OleLoadFromStream; external ole32 name 'OleLoadFromStream'; function OleSaveToStream; external ole32 name 'OleSaveToStream'; function OleSetContainedObject; external ole32 name 'OleSetContainedObject'; function OleNoteObjectVisible; external ole32 name 'OleNoteObjectVisible'; function RegisterDragDrop; external ole32 name 'RegisterDragDrop'; function RevokeDragDrop; external ole32 name 'RevokeDragDrop'; function DoDragDrop; external ole32 name 'DoDragDrop'; function OleSetClipboard; external ole32 name 'OleSetClipboard'; function OleGetClipboard; external ole32 name 'OleGetClipboard'; function OleFlushClipboard ; external ole32 name 'OleFlushClipboard'; function OleIsCurrentClipboard; external ole32 name 'OleIsCurrentClipboard'; function OleCreateMenuDescriptor; external ole32 name 'OleCreateMenuDescriptor'; function OleSetMenuDescriptor; external ole32 name 'OleSetMenuDescriptor'; function OleDestroyMenuDescriptor; external ole32 name 'OleDestroyMenuDescriptor'; function OleTranslateAccelerator; external ole32 name 'OleTranslateAccelerator'; function OleDuplicateData; external ole32 name 'OleDuplicateData'; function OleDraw; external ole32 name 'OleDraw'; function OleRun; external ole32 name 'OleRun'; function OleIsRunning; external ole32 name 'OleIsRunning'; function OleLockRunning; external ole32 name 'OleLockRunning'; procedure ReleaseStgMedium; external ole32 name 'ReleaseStgMedium'; function CreateOleAdviseHolder; external ole32 name 'CreateOleAdviseHolder'; function OleCreateDefaultHandler; external ole32 name 'OleCreateDefaultHandler'; function OleCreateEmbeddingHelper; external ole32 name 'OleCreateEmbeddingHelper'; function IsAccelerator; external ole32 name 'IsAccelerator'; function OleGetIconOfFile; external ole32 name 'OleGetIconOfFile'; function OleGetIconOfClass; external ole32 name 'OleGetIconOfClass'; function OleMetafilePictFromIconAndLabel; external ole32 name 'OleMetafilePictFromIconAndLabel'; function OleRegGetUserType; external ole32 name 'OleRegGetUserType'; function OleRegGetMiscStatus; external ole32 name 'OleRegGetMiscStatus'; function OleRegEnumFormatEtc; external ole32 name 'OleRegEnumFormatEtc'; function OleRegEnumVerbs; external ole32 name 'OleRegEnumVerbs'; function OleConvertIStorageToOLESTREAM; external ole32 name 'OleConvertIStorageToOLESTREAM'; function OleConvertOLESTREAMToIStorage; external ole32 name 'OleConvertOLESTREAMToIStorage'; function OleConvertIStorageToOLESTREAMEx; external ole32 name 'OleConvertIStorageToOLESTREAMEx'; function OleConvertOLESTREAMToIStorageEx; external ole32 name 'OleConvertOLESTREAMToIStorageEx'; function GetHGlobalFromILockBytes; external ole32 name 'GetHGlobalFromILockBytes'; function CreateILockBytesOnHGlobal; external ole32 name 'CreateILockBytesOnHGlobal'; function GetHGlobalFromStream; external ole32 name 'GetHGlobalFromStream'; function CreateStreamOnHGlobal; external ole32 name 'CreateStreamOnHGlobal'; function OleDoAutoConvert; external ole32 name 'OleDoAutoConvert'; function OleGetAutoConvert; external ole32 name 'OleGetAutoConvert'; function OleSetAutoConvert; external ole32 name 'OleSetAutoConvert'; function GetConvertStg; external ole32 name 'GetConvertStg'; function SetConvertStg; external ole32 name 'SetConvertStg'; { Externals from oleaut32.dll } function SysAllocString; external oleaut32 name 'SysAllocString'; function SysReAllocString; external oleaut32 name 'SysReAllocString'; function SysAllocStringLen; external oleaut32 name 'SysAllocStringLen'; function SysReAllocStringLen; external oleaut32 name 'SysReAllocStringLen'; procedure SysFreeString; external oleaut32 name 'SysFreeString'; function SysStringLen; external oleaut32 name 'SysStringLen'; function SysStringByteLen; external oleaut32 name 'SysStringByteLen'; function SysAllocStringByteLen; external oleaut32 name 'SysAllocStringByteLen'; function DosDateTimeToVariantTime; external oleaut32 name 'DosDateTimeToVariantTime'; function VariantTimeToDosDateTime; external oleaut32 name 'VariantTimeToDosDateTime'; function SafeArrayAllocDescriptor; external oleaut32 name 'SafeArrayAllocDescriptor'; function SafeArrayAllocData; external oleaut32 name 'SafeArrayAllocData'; function SafeArrayCreate; external oleaut32 name 'SafeArrayCreate'; function SafeArrayDestroyDescriptor; external oleaut32 name 'SafeArrayDestroyDescriptor'; function SafeArrayDestroyData; external oleaut32 name 'SafeArrayDestroyData'; function SafeArrayDestroy; external oleaut32 name 'SafeArrayDestroy'; function SafeArrayRedim; external oleaut32 name 'SafeArrayRedim'; function SafeArrayGetDim; external oleaut32 name 'SafeArrayGetDim'; function SafeArrayGetElemsize; external oleaut32 name 'SafeArrayGetElemsize'; function SafeArrayGetUBound; external oleaut32 name 'SafeArrayGetUBound'; function SafeArrayGetLBound; external oleaut32 name 'SafeArrayGetLBound'; function SafeArrayLock; external oleaut32 name 'SafeArrayLock'; function SafeArrayUnlock; external oleaut32 name 'SafeArrayUnlock'; function SafeArrayAccessData; external oleaut32 name 'SafeArrayAccessData'; function SafeArrayUnaccessData; external oleaut32 name 'SafeArrayUnaccessData'; function SafeArrayGetElement; external oleaut32 name 'SafeArrayGetElement'; function SafeArrayPutElement; external oleaut32 name 'SafeArrayPutElement'; function SafeArrayCopy; external oleaut32 name 'SafeArrayCopy'; function SafeArrayPtrOfIndex; external oleaut32 name 'SafeArrayPtrOfIndex'; procedure VariantInit; external oleaut32 name 'VariantInit'; function VariantClear; external oleaut32 name 'VariantClear'; function VariantCopy; external oleaut32 name 'VariantCopy'; function VariantCopyInd; external oleaut32 name 'VariantCopyInd'; function VariantChangeType; external oleaut32 name 'VariantChangeType'; function VariantChangeTypeEx; external oleaut32 name 'VariantChangeTypeEx'; function VarUI1FromI2; external oleaut32 name 'VarUI1FromI2'; function VarUI1FromI4; external oleaut32 name 'VarUI1FromI4'; function VarUI1FromR4; external oleaut32 name 'VarUI1FromR4'; function VarUI1FromR8; external oleaut32 name 'VarUI1FromR8'; function VarUI1FromCy; external oleaut32 name 'VarUI1FromCy'; function VarUI1FromDate; external oleaut32 name 'VarUI1FromDate'; function VarUI1FromStr; external oleaut32 name 'VarUI1FromStr'; function VarUI1FromDisp; external oleaut32 name 'VarUI1FromDisp'; function VarUI1FromBool; external oleaut32 name 'VarUI1FromBool'; function VarI2FromUI1; external oleaut32 name 'VarI2FromUI1'; function VarI2FromI4; external oleaut32 name 'VarI2FromI4'; function VarI2FromR4; external oleaut32 name 'VarI2FromR4'; function VarI2FromR8; external oleaut32 name 'VarI2FromR8'; function VarI2FromCy; external oleaut32 name 'VarI2FromCy'; function VarI2FromDate; external oleaut32 name 'VarI2FromDate'; function VarI2FromStr; external oleaut32 name 'VarI2FromStr'; function VarI2FromDisp; external oleaut32 name 'VarI2FromDisp'; function VarI2FromBool; external oleaut32 name 'VarI2FromBool'; function VarI4FromUI1; external oleaut32 name 'VarI4FromUI1'; function VarI4FromI2; external oleaut32 name 'VarI4FromI2'; function VarI4FromR4; external oleaut32 name 'VarI4FromR4'; function VarI4FromR8; external oleaut32 name 'VarI4FromR8'; function VarI4FromCy; external oleaut32 name 'VarI4FromCy'; function VarI4FromDate; external oleaut32 name 'VarI4FromDate'; function VarI4FromStr; external oleaut32 name 'VarI4FromStr'; function VarI4FromDisp; external oleaut32 name 'VarI4FromDisp'; function VarI4FromBool; external oleaut32 name 'VarI4FromBool'; function VarR4FromUI1; external oleaut32 name 'VarR4FromUI1'; function VarR4FromI2; external oleaut32 name 'VarR4FromI2'; function VarR4FromI4; external oleaut32 name 'VarR4FromI4'; function VarR4FromR8; external oleaut32 name 'VarR4FromR8'; function VarR4FromCy; external oleaut32 name 'VarR4FromCy'; function VarR4FromDate; external oleaut32 name 'VarR4FromDate'; function VarR4FromStr; external oleaut32 name 'VarR4FromStr'; function VarR4FromDisp; external oleaut32 name 'VarR4FromDisp'; function VarR4FromBool; external oleaut32 name 'VarR4FromBool'; function VarR8FromUI1; external oleaut32 name 'VarR8FromUI1'; function VarR8FromI2; external oleaut32 name 'VarR8FromI2'; function VarR8FromI4; external oleaut32 name 'VarR8FromI4'; function VarR8FromR4; external oleaut32 name 'VarR8FromR4'; function VarR8FromCy; external oleaut32 name 'VarR8FromCy'; function VarR8FromDate; external oleaut32 name 'VarR8FromDate'; function VarR8FromStr; external oleaut32 name 'VarR8FromStr'; function VarR8FromDisp; external oleaut32 name 'VarR8FromDisp'; function VarR8FromBool; external oleaut32 name 'VarR8FromBool'; function VarDateFromUI1; external oleaut32 name 'VarDateFromUI1'; function VarDateFromI2; external oleaut32 name 'VarDateFromI2'; function VarDateFromI4; external oleaut32 name 'VarDateFromI4'; function VarDateFromR4; external oleaut32 name 'VarDateFromR4'; function VarDateFromR8; external oleaut32 name 'VarDateFromR8'; function VarDateFromCy; external oleaut32 name 'VarDateFromCy'; function VarDateFromStr; external oleaut32 name 'VarDateFromStr'; function VarDateFromDisp; external oleaut32 name 'VarDateFromDisp'; function VarDateFromBool; external oleaut32 name 'VarDateFromBool'; function VarCyFromUI1; external oleaut32 name 'VarCyFromUI1'; function VarCyFromI2; external oleaut32 name 'VarCyFromI2'; function VarCyFromI4; external oleaut32 name 'VarCyFromI4'; function VarCyFromR4; external oleaut32 name 'VarCyFromR4'; function VarCyFromR8; external oleaut32 name 'VarCyFromR8'; function VarCyFromDate; external oleaut32 name 'VarCyFromDate'; function VarCyFromStr; external oleaut32 name 'VarCyFromStr'; function VarCyFromDisp; external oleaut32 name 'VarCyFromDisp'; function VarCyFromBool; external oleaut32 name 'VarCyFromBool'; function VarBStrFromUI1; external oleaut32 name 'VarBStrFromUI1'; function VarBStrFromI2; external oleaut32 name 'VarBStrFromI2'; function VarBStrFromI4; external oleaut32 name 'VarBStrFromI4'; function VarBStrFromR4; external oleaut32 name 'VarBStrFromR4'; function VarBStrFromR8; external oleaut32 name 'VarBStrFromR8'; function VarBStrFromCy; external oleaut32 name 'VarBStrFromCy'; function VarBStrFromDate; external oleaut32 name 'VarBStrFromDate'; function VarBStrFromDisp; external oleaut32 name 'VarBStrFromDisp'; function VarBStrFromBool; external oleaut32 name 'VarBStrFromBool'; function VarBoolFromUI1; external oleaut32 name 'VarBoolFromUI1'; function VarBoolFromI2; external oleaut32 name 'VarBoolFromI2'; function VarBoolFromI4; external oleaut32 name 'VarBoolFromI4'; function VarBoolFromR4; external oleaut32 name 'VarBoolFromR4'; function VarBoolFromR8; external oleaut32 name 'VarBoolFromR8'; function VarBoolFromDate; external oleaut32 name 'VarBoolFromDate'; function VarBoolFromCy; external oleaut32 name 'VarBoolFromCy'; function VarBoolFromStr; external oleaut32 name 'VarBoolFromStr'; function VarBoolFromDisp; external oleaut32 name 'VarBoolFromDisp'; function LHashValOfNameSys; external oleaut32 name 'LHashValOfNameSys'; function LHashValOfNameSysA; external oleaut32 name 'LHashValOfNameSysA'; function LoadTypeLib; external oleaut32 name 'LoadTypeLib'; function LoadRegTypeLib; external oleaut32 name 'LoadRegTypeLib'; function QueryPathOfRegTypeLib; external oleaut32 name 'QueryPathOfRegTypeLib'; function RegisterTypeLib; external oleaut32 name 'RegisterTypeLib'; function CreateTypeLib; external oleaut32 name 'CreateTypeLib'; function DispGetParam; external oleaut32 name 'DispGetParam'; function DispGetIDsOfNames; external oleaut32 name 'DispGetIDsOfNames'; function DispInvoke; external oleaut32 name 'DispInvoke'; function CreateDispTypeInfo; external oleaut32 name 'CreateDispTypeInfo'; function CreateStdDispatch; external oleaut32 name 'CreateStdDispatch'; function RegisterActiveObject; external oleaut32 name 'RegisterActiveObject'; function RevokeActiveObject; external oleaut32 name 'RevokeActiveObject'; function GetActiveObject; external oleaut32 name 'GetActiveObject'; function SetErrorInfo; external oleaut32 name 'SetErrorInfo'; function GetErrorInfo; external oleaut32 name 'GetErrorInfo'; function CreateErrorInfo; external oleaut32 name 'CreateErrorInfo'; function OaBuildVersion; external oleaut32 name 'OaBuildVersion'; { Helper functions } function Succeeded(Res: HResult): Boolean; begin Result := Res >= 0; end; function Failed(Res: HResult): Boolean; begin Result := Res < 0; end; function ResultCode(Res: HResult): Integer; begin Result := Res and $0000FFFF; end; function ResultFacility(Res: HResult): Integer; begin Result := (Res shr 16) and $00001FFF; end; function ResultSeverity(Res: HResult): Integer; begin Result := Res shr 31; end; function MakeResult(Severity, Facility, Code: Integer): HResult; begin Result := (Severity shl 31) or (Facility shl 16) or Code; end; function LHashValOfName(lcid: TLCID; szName: POleStr): Longint; begin Result := LHashValOfNameSys(SYS_WIN32, lcid, szName); end; function WHashValOfLHashVal(lhashval: Longint): Word; begin Result := lhashval and $0000FFFF; end; function IsHashValCompatible(lhashval1, lhashval2: Longint): Boolean; begin Result := lhashval1 and $00FF0000 = lhashval2 and $00FF0000; end; end. PTSAANIMATEDICONCOMPONENT( 03333333333333333 ȃ33 33 ̃3f3f(30"lh338",fh338b"&33""""&33b&"""&33(bf&""&33("""""33(bb"""(333(b(""(3338""(33338"(""(33333"(3333338""(3333333833333333333333333333333333333HTSAANIMATEDICONPLAYER( 03333333333333 3 3 33 h330&l"333&ƃ33"f33""llll38h"",b"l38(h"b"""l38("&bb""h338(bb""""(338"(""""338b""""3333(b"33333"b""333338""3333333b""33333333333333333333333333DTSAANIMATEDTRAYICON( 03333333333333333333wwwwwwwwwwwwww0wvfgw7wwwwwbfw7wwwwv,g7wwwwv,"g7wwwwvg7wwwwv,g7wwwwwb,w7wwwwwvfgw7wwwwwwwww87wwwwwwwwww?83333333333333333333333333333333333338TSABROWSEEDIT( 03333333333333333333333333wwwwwxwxpxODOwxODOwxDDOwxDOwxDOwxwxwxwx󈈈333333333333333333333333333333333333333333333333DTSABROWSEFORFOLDER( 03333333333333wwwww {{{x08ww {x8wwp8wwp8wwpw8wwpww8wwxww8wwwwwww8wwwpwww8wwwwwwww8wwwwwwwwww8883333333333333333333333338TSAPATHLABEL( 033333333333333333333333333333333333333333330000000003333333333333333333333333333333333333333333333333333333333333333333333333333333333338TSASYSHOTKEY( 03333333333333wwwwwppwpwppwpwpppwpp0wwwwww8wwwpppw8wpwwppww8wpwwpppww8wwpppww8wwwwwwwwww8wwwwww8wwwwww8wwwwww8wpwpwwww8wwwwwwwwww8883333333333333333333333334TSAURLLABEL( 0333333333330333333333333333333333333333333333333333333333333333334DDD@DDDDDC333334333333443C44D3CC434443C43C3C434443C43C3C434C4CD4D3C43C4343C333343C43333333343C333333333333<TSASORTLISTVIEW( 03333333wwwwwwwwwww0777777777777wwwxww777wwwwwwwwwww 4 ( @ ??????F0 IDC_HAND0 @4( @ ??????package HSA10R30; {$R *.RES} {$ALIGN ON} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} {$EXTENDEDSYNTAX ON} {$IMPORTEDDATA ON} {$IOCHECKS ON} {$LOCALSYMBOLS ON} {$LONGSTRINGS ON} {$OPENSTRINGS ON} {$OPTIMIZATION ON} {$OVERFLOWCHECKS OFF} {$RANGECHECKS OFF} {$REFERENCEINFO OFF} {$SAFEDIVIDE OFF} {$STACKFRAMES OFF} {$TYPEDADDRESS OFF} {$VARSTRINGCHECKS ON} {$WRITEABLECONST ON} {$MINENUMSIZE 1} {$IMAGEBASE $00400000} {$DESCRIPTION 'Delphi Windows 95/NT4 Components by SheAr software'} {$RUNONLY} {$IMPLICITBUILD OFF} requires vcl30; contains SaAniIcon, SaAniIcons, SaAniTray, SaAboutPrp, SaTmrPool, SaWComp, SaBrowseEdit, SaBrowseFolder, SaOle2, SaSysHot, SaURLLabel, SaSortListView, SaPathLbl, SaAniPlay; end.