Category : Pascal Source Code
Archive   : TPWINST.ZIP
Filename : WARCHIV.TPU
YSYSTEM ç÷ YSTRINGS
ARCOMPRESSINGï P
ARDELETINGï oPARREADEXTRAFIELDï RDEFARCHIVEOPTIONS ï RBADARCHIVEOPTIONS ï PETFATALï P
ETNONFATALï P ETWARNINGï P ETMESSAGEï P ETNOERRORï PEPFATALï P
EPNONFATALï ' P EPWARNINGï N P EPMESSAGEï 0u PECOKï µPECFILENOTFOUNDï PECPATHNOTFOUNDï òPECTOOMANYFILESï KPECACCESSDENIEDï ÑPECINVALIDHANDLEï P
ECOUTOFMEMORYï PECINVALIDDRIVEï P
ECNOMOREFILESï P
ECDISKREADï d P
ECDISKFULLï e
P
ECNOTASSIGNEDï f P ECNOTOPENï g PECNOTOPENINPUTï h Ò PECNOTOPENOUTPUTï i PECINVALIDFORMATï j PECWRITEPROTECTEDï P
ECUNKNOWNUNITï PECDRIVENOTREADYï PECUNKNOWNCOMMANDï P
ECCRCERRORï §PECBADSTRUCTLENï PECSEEKERRORï PECUNKNOWNMEDIAï PECSECTORNOTFOUNDï P ECOUTOFPAPERï uP
ECDEVICEWRITEï P ECDEVICEREADï ¡ PECHARDWAREFAILUREï ¢ íR AROUTPATH ÈÝ P ï Q pï ¶Ý RDOSDELIMSETQ îÝ pï Q STRINGPTR Ý
ï QFILEMASKNODEPTR*Ý
HÝ 6Q FILEMASKNODEHÝ R\ o Ð RDIRPTR o Ý RNAME Ý ï
pï Ý REXT ÐÂÝ ï pï °Ý \RNEXT *Ý Q FILEMASKLISTõÝ ÿ RHEAD *Ý RTAIL *Ý R
ARCHIVESTATUS ï @SINITFILEMASKLIST" ü
õÝ ÈSDONEFILEMASKLIST" Ó
õÝ mSAPPENDFILENAME" f
0ï ï õÝ RSAPPENDFILEMASK" =
0ï ï õÝ ES
MATCHFILEMASK"(
0ï ï õÝ SSORTFILEMASKLIST"0
õÝ ÕSEXPANDFILEMASKLIST"8 ª
õÝ õÝ ³SAROPTIONSON"@ k
ï
S AROPTIONSOFF"H
ï 4SAROPTIONSAREON"P ¯
0ï ï S
SETOUTPUTPATH"X Ñ
ï SCREATEOUTPUTFILE"` ì
x ï ï SMAKELONGINT
ï ï ï X Z~ 8: øÓ Ø[³ 4
Ç & +4×
½ tå
ìQï ò¡ £Q Ö K g` Ótá S STRINGTOHEAP"h _
Ý ï i
RS"úþ4
ï RLøþ4
ï w
RPôþ4
ï [S
DISPOSESTRING"p ¿
Ý É
RP"
Ý SPADCH"x
ï ï pï Þ ï ,J RS"þþ×
ï RCH" ×
pï RLEN" ×
Þ ï ROþý×
ï <RSLENÝ Þ ï kS JUSTPATHNAME"
ï ï ¥ RPATHNAME"þþ[ ï RIüþ[ï 6S ADDBACKSLASH" Þ
ï ï è RDIRNAME"þþ³ ï RFML& EõÝ SAPPENDFILEMASKPRIM" Q
0ï ï õÝ 0ï ð ÿ
á RFM"ýþ ï RFML& õÝ REXPAND" 0ï [ RFMNPùþ *Ý z RFMNßþ HÝ j RIÞþ Þ ï RASTERISKÝþ Þ ï ® RDIRÝý ï RP1Ýü /
Ý Ñ RP2Ýû /
Ý RP3Ýú /
Ý ¼ RP4Ýù /
Ý ÿ ï pï
Ý V
G
RFM"ýþÕ ï RFML& ÕõÝ
p
RFM"ýþ£ ï RFML& £õÝ ½SMATCHFILEMASKPRIM" Ä
0ï ï HÝ >M\/ RFNAME&
ï Î
RFMN&
HÝ RDIRýþ
ï RNAMEýý
ï à
REXTýü
ï ð
RIüü
Þ ï RP1üû
}Ý !RP2üú
}Ý RP3üù
}Ý RP4üø
}Ý ÿ ï pï kÝ Å´ RFM"ýþ ï RFML& õÝ RFMNPùþ*Ý ¤RIøþÞ ï þí RFML& tõÝ RFMNPúÿt*Ý ÝRNPöÿt*Ý r_ RFML& 8õÝ RCURHEADúÿ8*Ý RNODEöÿ8*Ý RLOWESTòÿ8*Ý RLOWDIRòþ8 ï LRLOWNAMEòý8 ï 'RLOWEXTòü8 ï ;RTEMPØü8HÝ ´,= RFML&
gõÝ REXPANDEDFML& gõÝ ÄP
ANYFILEBUTDIRï / RNODEúÿg*Ý RSAVEDIRúþg ï õRFNAMEúýg ï ÜRSRECÏýgRPÏüg]Ý ÿ ï pï KÝ u ROPTIONFLAGS" ï ROPTIONFLAGS" Çï ¹ ROPTIONFLAGS" òï Û RPATH"þþ ï 2Q@ RF&
K x ï RFNAME"þþK ï RIüþK ï RPüýK ï öRNüüK ï $RPLEN)Ý Þ ï RDONEûüK 0ï ÿÿÿÿ " ( " X " @ " 8 " P " ` " h " p " x " " " " " " " " " 0 " H ) ¦ ( " X 7 | @ Y " i äÐ w = À = Í # Ú 4 K ©à | º È # Ö C ã À ð r SYSTEM WARCHIV STRINGS WINDOS h2WARCHIV.PAS4
×
· ) [ Ç
! ) ) '³ â )E ë
ú ?
Õ =
£ D
P/ ! &&
*
t ¡
8 º&