Category : Files from Magazines
Archive   : VOL11N11.ZIP
Filename : MC.BAS

 
Output of file : MC.BAS contained in archive : VOL11N11.ZIP

ü
à5
Z ãìsք
¨šly>ØËIŽ- iÐ& ÊôŸ—{¾
5
e@RunProgRdrv1pth»Prog€Index‰Drive1DriveêFile1´Path!Filename'Msg[€Prg¤IndxByPvaÁ€ LastRunOK½€False(€TrueÖ
AddHistoryâ€Item’@AddHistoryItem±€i€[email protected]Historyé HistoryItemû€ HistoryArrayfProcessControlMenuW@ProcessCtrlMenu(€ MenuCtrlTypeEdnifp€NumberofGroups^€ MaxGroups»Numberªof‚Groupsc€ MenuArray3€MenuCtrlStringJ@
DisplayGroupsø€Form1
 MenuComboJ
IndexCount~form2¬option2vEnabled±Option1%Value×Text1CTextç ListCountÁ€
LastChange€ FILEBOXLIST?€ MNumArray€kÎ ListIndex€M± HistoryCombo@ ShowItems[menu^MenuListì€P±€qšGetPrStrj€Topic‡€KeyName5€DEFAULTÀdummyý€temp4DummyStr APIGetPrStrjGetPrivateProfileString§€TempLenuGetPrIntGetPrivateProfileInth€ GetIniIntõ€ GetIniStrÌ€SetIniÇ€NewValueÚWritePrivateProfileStrings EndWriteIniµ@WriteIni˜Func–@ KillIniTopicâKillIniKeyName=@
KillIniKey ExitWriteIni×€ ReturnVal, TopicNameÌKey¤KeySträMiscStrý IniFileName
FîChCAppnameÞReturnedStringÂMaxSize× NewString‘endsub)Exitsuboption3íGetFreeƒ GetFreeSpacewFlagsp@LoadIni’GetPrivateProfileIn€MaxItemsC€
MaxHistoryWInitializeArrays‰@IntializeArrays€MH€MGþProgramÄ
nameÇMax_prO
DummyGroup€ DummyItem ReturnValIfZsunÀNù€DateStrÊ€DTP½DT±DTPrefþWeekdayt€W8MonthNum» ZeroOnDayO €D„Century®€Yn European# €TimeStrÇSecf€s¨MilTimeÿ€HóLCaseAMæSecsOn7@ UpDateTimer‹€ CaptionTypeñCaption€DateOpt{woodyìGetIntSt
GetIntStr
€ MinOnLoad| WindowState_woàNumTempHis¡GetIniÌ€TempHistpparparamsŸ €NextMaxHistoryJ€CRLF¯ Exiting
DateSeparator–FullMonõNoYear€€IsDirty²€a" Boolean €Ina IntToBoolean¹€ IntToBool) € BoolToIntZeronDayøTžGetProfileStringIGetAssociatedList Extensions Association$€AssociationList7AssocicatedList¢
AssociatedListq@GetAssociationListÕ@SetFilePatternW
€FileChoiceArrayêpattern¤Setè Left«ilE apsÛ
icoT wbtÎnilÜcal#
crdãtrm° txt0 ini1
pcx bmpO
wri˜ rec> docþ dotÓ rtfy
xls7 xlc• xlwL xlmì PM3Ð
PT3  gifS wsf‰ wmch €
FixProgramo
€ExtSeclect param÷ € firstpartÿ Lefttemp€resultá
NewMaxHistoryÀ NewMaxGroupsÑ €
NextMaxGroupsF
€ NextMaxItems
@GetHelp¯
WinHelp€hWnd†

lpHelpFilex wCommandD dwData:
€
HELP_INDEX¹ €MCase’
€InputStrc
SecOnn NoAMFullDate$ TimeTypeˆ AMTypeñ
MonthType YearType6 € IntToDateStrê
LowerCase FileChoiceAh Æ €FileType3 MinJaws¬ € DefaultLoadfoo,
GetModuleHandle{ lpModuleNameÙ @ WriteHistory€HistoryIsDirty @
WriteGroup KillIniGroupñ callKillIniTopic€Screen MousePointer>  EndofThisSub @InitializeCombose GMaxCombou IMaxComboº HMaxComboffñ @ ClearCombos€Form4Ó € ListRound
LastCharOccur
@InitializeValues MinLoadCheckLoadOptÇ €
DefaultLaunch\ FileCheckà DTOptŒ WkDayÙ MonYrTm” DateSep
Test
@HideTest TestDisplayvisible FileFrameMaxFrameë HiposReturnsno associaiton
notepadseletc€eTrueItemNumberMinMC˜vWindows API callss..uፐ ¨Kernel.>Cፐ ˜ª¨Kernel..½áµ¨Kernel.6Ìፐ ˜ªKernel.íâýKernelý.,ì á÷ ÿ 

€User÷ç #
v Display index' ÿÿÿÿÿÿÿÿRunProg0`ŒXZ»€v{Oþÿvspecial handling for CDD »¨äÁÜí^CDD ¦Iž »¨äÆ J Jý JyOÿÿ=Œ8 »¨í®¦Iþí!ÂSorry. No application chosen!"å0x ã Ö2Š »Žý » y »¨í* "£ »£ä {£ @å ãI6 ã Ö³Vj å5&(í~ (File not found). 
åL&(í° (Invalid path). 
%(í (Unknown error)." 
:íError Starting Application 
£å0x2€ û,
Iä¦îE\ä û× Êù û,
I ì Ö8Oÿÿ89 ÿÿÿÿÿÿÿÿ#AddHistoryItem0ÔØX
»€vvDAdds to history array and display list after sucessful program run  5ä÷îääù?ÿÿª ä÷@ @ Nÿÿ »ä@ ì $ ä û±Ÿ9 ÿÿÿÿÿÿÿÿ ProcessCtrlMenu0àž Xf{ Øí$¦E0=ž  {V@ä&v ADDe yIv
ADD ITEM ûŸ š š ¬ ¬ )¦Ib(íYou can only have )Õ£í items per group£ 7£í)%%Delete another item first or increase"£ 7£í%!!MaxItems in the Configure Dialog."£å@x 2ü(í RDirty" šäËs ( šä£ š( Ø š ¬ä£Ë( p ~¦I–0 û„ŽäÁ š ¬ä£ËsŽ0 û—  š ¬ä£Ës 0 û—¨ š ¬ä£Ës¨0íX š ¬ä£Ës(2ðvHISTORY CLICKED LAST0 û±Ÿ !0 !@ š ¬ä£Ës(8(#Á 82Zv ADD GROUPT ’ ¤¦IÖ(íYou can only have ¤Õ£í  groups.£ 7£í*&&Delete another group first or increase£ 7£í&""MaxGroups in the Configure Dialog.£å@x 2V( ’ !( Ø !äˁ(í êDirty" !äËs ( ’ä£ ’(#ê(#Á( ! ûŸ 88ä&v DELETE yIŽv
DELETE ITEM ûŸ š í Dirty" šäËs  ûÖŸ ¬ š â ! ¬ä£î âä÷î>ÿÿH( š !ä£Ë š !Ë !Nÿÿ ¤ š âË šä÷ š #Á2,v
DELETEGROUP í&”"You are about to delete the group û[£ífÎb and ALL its items. Confirm deletion, please! Hit OK to continue with the removal of this group.£åí>MC: Are you sure?"À ! !ä¦Eˆ=ž ûŸ š ’ â ç š âä÷>ÿÿ ( !ä ç>ÿÿþ0 ¤ ç !Ë( !Nÿÿ( ç䣍 ç( !ä ç>ÿÿn0 çä£ !Ë ç !Ë( !Nÿÿ(í `Dirty" çäËs  çNÿÿ !ä â>ÿÿà( ¤ â !Ë !Nÿÿ ’ä÷ ’ #ê ûcäñE ä ûŸ #Á8ä&v RENAME yIøv
RENAME ITEMG ûŸ š ûÖŸ ¬ ØíñIê( Ø š ¬ä£Ë(í Dirty" šäËs  8 #Á2” v RENAME GROUP ûŸ š Øí ñIt (í 0Dirty" šäËs ( Ø šäˁ 8 #ê š ûŸ8:9 ÿÿÿÿÿÿÿÿ\
DisplayGroups0ÎÖXêv+updates list of groups in drop group listr !ä ûc>ÿÿ‚ ûeäx !Nÿÿ !ä ’>ÿÿÒ ûe !ä÷äˁòx !Nÿÿ9 ÿÿÿÿÿÿÿÿ  ShowItems0äôXÁvUpdates item list boxt ä ûÖc>ÿÿn ûÖeäx Nÿÿ ûŸ ! !äùñIò ä !>ÿÿì ûÖe ! ˁòx Nÿÿ89 ÿÿÿÿÿÿÿÿ  GetIniInt 0Vp@ø  ø   í
BMC.INIu 9 ÿÿÿÿÿÿÿÿ GetIniStr0|¦@š†ø åÿäÖ   ø     åÿí
^MC.INIC ^   ^Á š9 ÿÿÿÿÿÿÿÿSetIni 0ø@§ø± ø  ±í
MC.INI½ = =ä¦îI v>WritePrivateProfile returns 0 == FALSE if there is a problemíError writing to IniFile!"åx ì §2 ã §89 ÿÿÿÿÿÿÿÿ
WriteIni0âvXéå n x v HISTORYr $ EB$ pôERCˆ vGENERAL PREFERECESí Preferences"í MinMCOnLoad" Ê¡§EÄCˆ  Û
VÔä&í
èNormal Jä&í
Minimized" Jä&í
Maximized" J:íV Preferences"ín DefaultLoad" J§E˜Cˆ  û>IIí Preferences"í CaptionType"íMC§EþCˆ 8 û(IIní Preferences"í CaptionType"íTime§EjCˆ 8 û×IIÞíŽ Preferences"í¦ CaptionType"í ¾DateTime§EÚCˆ 8v LIST SIZESí
Systemí
 MaxGroups" À §E:Cˆ í
HSystemí ZMaxItems Ñ §E€Cˆ í
ŽSystemí 
MaxHistory %§EÈCˆ vDATE PREFERENCESí ðDateTimeíUseEuropeanDate" ,¡§E<Cˆ í JDateTimeí^ ShowSeconds" j¡§E’Cˆ í  DateTimeí´LeadingZeroOnDay 
¡§EìCˆ í úDateTimeí WeekdayType"ä î’
§EHCˆ í VDateTimeí
j MonthType"ä y
’
§E¢Cˆ í °DateTimeí ÄYearTypeä †
’
§EúCˆ í DateTimeí
AMTypeä o
’
§EPCˆ í ^DateTimeír
DateSeparator"ä J’
§E®Cˆ v
FILETYPES äqIêíall" J 2Jíö J çää>ÿÿD çqE: J çÄ
£í4,"£ J çNÿÿ 8 íX Preferences"í pFileType J§E”Cˆ vGROUPSí
²SystemíÄNumberOfGroups ’§EðCˆ  !ä ’ä÷î>ÿÿR !äËs í ,Dirty"¦EH !î$6  !Nÿÿ ã pÿÿˆ ä n x 9 ÈÿÿÿÿÿÿA
KillIniKey0„œXøv*API call kills keyname is "value" is nul ø æ í
MC.INI½ J9 ÿÿÿÿÿÿÿÿLoadIni0Œ
X$IvGENERAL PREFERECESí@ Preferences"íX MinMCOnLoad"í pFalse"š® Ê Êù û,
Ií´ Preferences"íÌ CaptionType"íäMCšÜ    V íTIME& ì û(Ií @DATETIME& ì û×I% ì û>I:í” Preferences"í¬ DefaultLoad"í
ÄNormalšÜä Á    VöíüMAX"&ä Û
íMIN"&ä Û
%ä Û
: v LIST SIZESí
jSystemí
| MaxGroups"ä  ¤ ¤ñ ¤ ¤ À í
ÂSystemí ÔMaxItemså ) )ñ ) ) Ñ í
Systemí,
MaxHistoryå 5 5ñ 5 5 %#Wv GROUP READí
Systemí¢NumberOfGroupsä ’ !ä ’ä÷î>ÿÿ(í êGroup" !£í
NumberofItems"ä !í :Group" !£í
T GroupName"í jGroup" !£š !äˁ šä !>ÿÿí ÀGroup" !£íÚItem š£í î.Name"£íItem š£š ! šËí >Group" !£íXItem š£í
l.Drive£í€š ! šËsŽí ´Group" !£íÎItem š£í â.Path"£íöš ! šËs í *Group" !£íDItem š£í
X .Filename"£ípš ! šËs¨í ¤Group" !£í¾Item š£í Ò.Params"£íèš ! šËs šNÿÿ !Nÿÿ ’äßI^$êä ûŸ#Á8vDATE PREFERENCE READí ˆDateTimeíœUseEuropeanDate"í ¸False"š® ,í ìDateTimeí ShowSeconds"í False"š® jí LDateTimeí`LeadingZeroOnDayí |False"š® 
í ®DateTimeí WeekdayType"íÚNonešÜ Jä ! ää>ÿÿ@  Jä ’
ܦE6  ! Nÿÿ ! îí \ DateTimeí
p MonthType"í† AbbreviationšÜ Jä ! ää>ÿÿô  Jä ’
ܦEê  ! Nÿÿ ! y
í 
DateTimeí $
YearTypeí 8
TwoDigitšÜ Jä ! ää>ÿÿ¢
 Jä ’
ܦE˜
 ! Nÿÿ ! †
í ¾
DateTimeí
Ò
AMTypeí
ä
UpperCase"šÜ Jä ! ää >ÿÿP  Jä ’
ܦEF  ! Nÿÿ ! o
í l DateTimeí€
DateSeparator"í š Comma"šÜ Jä ! ää >ÿÿ  Jä ’
ܦEø  ! Nÿÿ ! Jä#tvHISTORY READí@ û±[ ä 5ä÷î>ÿÿìí r History"í † History" £í
ž .Filename"£í¶ š  íÖ ¦Iê <î2
  @¨8í
History"í
History" £í 8
.Path"£íL
š   @ í ~
History"í ’
History" £í
ª
.Drive£í¾
š   @Ží ð
History"í History" £í .Params"£í2š   @ û±e @¨òxä û±ŸvI&Here rather than outside loop to handle cases where no history is savedm NÿÿvFILE PATTERN READ í Preferences"í ,FileTypeí@exe"š¿ J Jífall"ºäßîI® !ää>ÿÿ¦ ì !q !Nÿÿ 2ü çää>ÿÿö J çÄ
ºäßîEì ì çq çNÿÿ 8 $_ ã p ã $ 9 ÿÿÿÿÿÿÿÿ€IntializeArrays0¤žXWv4initializes during startup; redim is very powerful 5ä÷ j ¤ä÷ p j@ p )Ë p9 ÿÿÿÿÿÿÿÿDateStr0®6@ÌÆ×€äv=Takes preferences and generates string for Format$ functiontv Date part of the string format ×JV–ä&í¨-" Jä&í„/" Jä&ä &íò " J: ×îVä&í( ùä&í
dddd ùä&í &ddd " ù: ×y
V’ä&í¤m" ¬ä&í€mmmm ¬ä&íæmmm" ¬: ×
IíÊdd 20í$d" 8 ×Jä ¦EV íL,"£  ׆
Vjä& Jí€yy£ 'ä& Jíbyyyy£ 'ä&íÊ ': ×,I ù £ J£ ¬£ '£ Ì24 ù ¬£ J£ £ '£ Ì89 ÿÿÿÿÿÿÿÿ/TimeStr0ò@8Æ×€äí h:mm Z ×jIPí@:ss" J2bíX J8 ×o
Vvä &v 24 hr time Z J£ 8ä& Z J£í
 am/pm£ 8ä&ä& Z J£í
ü AM/PM£ 8:9 ÿÿÿÿÿÿÿÿ UpDateTimer0îðXtí"s"í.0"¦î ä¦îõ jõîIî ƒäñIê 8 J o
ä¦îE¢ J JÂä ÷Á J ƒä ¦EÖ ÌíÆ £ J£ J J û’889 ÿÿÿÿÿÿÿÿ
 IntToBool0^X@¡Æ‹€ ‹ä¦I@í .False" ¡2VíHTrue ¡89 ÿÿÿÿÿÿÿÿ BoolToInt 0XR@®Á‹€ ‹Üí &FALSE"¦IBä ®2Päù ®89 ÿÿÿÿÿÿÿÿGetAssociationList0HrXIv5at startup queries win.ini for list of associations åÿäÖ  íf
Extensionsæ í†  åÿÌ ^í¾*.   ^Á£  /  䬺  äßE,   ä÷Áí;*."£   ä£Æ£   ä¦KØ    Âä÷Á v4Eliminates trailing *.9 ÿÿÿÿÿÿÿÿ SetFilePattern0&6X_äqI6í&*.*" J2æí> JäqEj Jí
\*.exe;£ JäqE Jí
‚*.com;£ JäqE¶ Jí
¨*.bat;£ Jä qEÜ Jí
Î*.pif;£ JäqEø J £ J JÂå€ßE Jå€Á Jv6Needed to handle limitation in VB's file list box!!! J Jíl;"þ Á J JäÌí˜;"¦Eº J JÂä÷Á Jv"Above deletes trailing semicolon8 Jíò¦I í ª*.exe" Jäùäq8 J û—„9 ÿÿÿÿÿÿÿÿ
FixProgram 0&ˆ@S Á»€vv=If program extension is no good, queries user about notepadtv9Returns True if no associaiton and no notepad asked foreä •  »¨í´."º  ä¦EÒ=ˆ »¨ ä£Æ¿ a  a Vþíexe"&íÈcom"&íÜbat"&íðpif"&=ˆ% »¨ ä÷Á | åÿäÖ  í@
Extensions a í^  åÿÌ ^   ^Á    í°¦IÀ a ÜíÊ has no association!£ 7£íîRun NotePad on this file£å$À { {ä¦I¬( »¨ »(í@ notepad.exe" »¨ 2º(äù • 82t  ír^"º ! !äßE   !ä÷Á | £   !ä£Æ£    íÄ "º ! !äßIp(   !ä£Æ »(   !ä÷Á »¨ 88: • S 9 ÿÿÿÿÿÿÿÿ#GetHelp0vŽXá  ÷ í
MC.HLP #
æì ä¦IŒíTrouble Loading MC Help"åx 89 ÿÿÿÿÿÿÿÿMCase0<:@1
†:
 :
äÁÜ :
äÆ¿£ 1
9 ÿÿÿÿÿÿÿÿ IntToDateStr0ðÞ@’
Æ€!€v3needed for MC.ini to put preferences into English Vjä&v Weekday !V’ ä&(í¤None J ä&(íÆFull J ä&(íè Abbreviation J:ä&v Montha !V. ä&(í
@Number J ä&(ídFull J ä&(í† Abbreviation J:ä&v Year !VÊ ä&(í ÜTwoDigit J ä&(í
 FourDigit" J ä&(í*None J:ä &v AMType !Vh ä&(í
z UpperCase" J ä&(í
¢ LowerCase" J ä&(í Ê12 hour" J ä &(í ð24 hour" J:ä&v Separator !V6 ä&(íH-" J ä&(íh/" J ä&(íˆNone J ä &(í ªComma" J::v
(of i) J ’
9 ÿÿÿÿÿÿÿÿ7FileType0Î@Ä
Æ€ V(ä&í:exe" Jä&í\com" Jä&í~bat" Jä &í pif" Jä&íÂ
associated Jä&íall" J: J Ä
9 ÿÿÿÿÿÿÿÿ WriteHistory0òvX  ä û±cîä÷î>ÿÿôí @History"í THistory" £í
l.Drive£ @ŽäÁ§E¦=ví °History"í ÄHistory" £í Ü.Path"£ @ §E=ví History"í .History" £í
F .Filename"£ @¨§E~=ví ˆHistory"í œHistory" £í ´.Params"£ @§Eê=v Nÿÿ % 5ãIj  % 5ä÷î>ÿÿdí History"í History" £í
.Drive£#í History"í History" £í .Path"£#í History"í History" £í
.Filename"£#í History"í History" £í .Params"£# Nÿÿ8 ã $ 9 ÿÿÿÿÿÿÿÿ
WriteGroup0ò~X6 !€í Group" !£#ýí HGroup" !£íb
NumberofItems" !§E˜=~í ¢Group" !£í
¼ GroupName" !äˁ§Eò=~íú !äËs  šä !>ÿÿzí 4Group" !£íNItem š£í b.Name"£ ! šË§Eš=~í ¤Group" !£í¾Item š£í
Ò.Drive£ ! šËsŽ§E=~í Group" !£í2Item š£í F.Path"£ ! šËs §E‚=~í ŒGroup" !£í¦Item š£í
º .Filename"£ ! šËs¨§Eú=~í Group" !£íItem š£í 2.Params"£ ! šËs§Ep=~ šNÿÿ9 ÿÿÿÿÿÿÿÿ
 KillIniTopic0~œXýøv)API call kills topic is keyname is nulll øæ íí
MC.INI½ J9 ÿÿÿÿÿÿÿÿInitializeCombos0¬¦X˜ vGsetup drop down list for max values; spin button would be MUCH bettert è ¬ eí
t 8òx è ¬ eí œ 12"òx è ¬ eí Ä 16"òx è ¬ eí ì 20"òx è ¬ eí  25"òx è ¬ eí < 40"òx è ¬ eí d 80"òx ¤V†ä &å &å&å&å&å(&åP&v do nothing% è ¬ eí ¤Õ£òx: è ¹ eí
< 8òx è ¹ eí d 12"òx è ¹ eí Œ 16"òx è ¹ eí ´ 20"òx è ¹ eí Ü 25"òx è ¹ eí  40"òx è ¹ eí , 80"òx )VNä &å &å&å&å&å(&åP&v do nothing% è ¹ eí )Õ£òx: è Æ eí
 8òx è Æ eí , 12"òx è Æ eí T 16"òx è Æ eí | 20"òx è Æ eí ¤ 25"òx è Æ eí Ì 40"òx è Æ eí ô 80"òx 5Vä &å &å&å&å&å(&åP&% è Æ eí 5Õ£òx:9 ÿÿÿÿÿÿÿÿ* ClearCombos0ðöXÙ vGTo reset combo info on configuration screen, need to clear them firstt è ¬ c1 è ¬ eäxJ` è ¹ c1Â è ¹ eäxJ’ è Æ c1ô è Æ eäxJÄ9 ÿÿÿÿÿÿÿÿ  ListRound 0,6@ñ ! !ä$ãI4ä š2( !å
ãIVå š2$ !åãIx å š2  !åãIš(å š 2( !åãI¼0å š(20 !å)ãIÞ8å( š028 !åQãI@åP š82@ ! š8808(8 8888 š ñ 9 ÿÿÿÿÿÿÿÿ InitializeValues0H|X vinitializes configure screen Êù è # I ì > è 3 I ää>ÿÿ¤ qù  è O I Nÿÿä è O Iä¦I ää >ÿÿä  è O I ã  è O 3 Nÿÿ8 ,ùä è \ I jùä è \ I 
ùä è \ I ì î è e I ì y
è n I ì †
è u I ì o
è { I ì J è  I ¤Vä &ä è ¬ Ÿå &ä è ¬ Ÿå&ä è ¬ Ÿå&ä è ¬ Ÿå&ä è ¬ Ÿå(&ä è ¬ ŸåP&ä è ¬ Ÿ%ä è ¬ Ÿ: )V>ä &ä è ¹ Ÿå &ä è ¹ Ÿå&ä è ¹ Ÿå&ä è ¹ Ÿå&ä è ¹ Ÿå(&ä è ¹ ŸåP&ä è ¹ Ÿ%ä è ¹ Ÿ: 5Vdä &ä è Æ Ÿå &ä è Æ Ÿå&ä è Æ Ÿå&ä è Æ Ÿå&ä è Æ Ÿå(&ä è Æ ŸåP&ä è Æ Ÿ%ä è Æ Ÿ:9 ÿÿÿÿÿÿÿÿNHideTest0””X” v@To hide the popup box that shows date/time on configure screen ã è   ¯  ì è º 3 ì è Ç 39 ÿÿÿÿÿÿÿÿý