inst.bat

来自「Delphi zip/unzip component. Delphi Zip/U」· Batch 代码 · 共 53 行

@ECHO OFF
IF NOT EXIST DELZIP12.ZIP GOTO NOMAIN

PKUNZIP -o DELZIP12
IF NOT EXIST DOC.ZIP    GOTO ERROR
IF NOT EXIST CDEMO1.ZIP GOTO ERROR
IF NOT EXIST DEMO1.ZIP  GOTO ERROR
IF NOT EXIST DEMO2.ZIP  GOTO ERROR
IF NOT EXIST DEMO3.ZIP  GOTO ERROR
IF NOT EXIST VCL.ZIP    GOTO ERROR
IF NOT EXIST DLL.ZIP    GOTO ERROR

IF NOT EXIST DOC\*.*    MD DOC
IF NOT EXIST CDEMO1\*.* MD CDEMO1 
IF NOT EXIST DEMO1\*.*  MD DEMO1 
IF NOT EXIST DEMO2\*.*  MD DEMO2 
IF NOT EXIST DEMO3\*.*  MD DEMO3 
IF NOT EXIST VCL\*.*    MD VCL
IF NOT EXIST DLL\*.*    MD DLL

PKUNZIP -o DOC.ZIP *.* DOC
PKUNZIP -o CDEMO1.ZIP *.* CDEMO1
PKUNZIP -o DEMO1.ZIP *.* DEMO1
PKUNZIP -o DEMO2.ZIP *.* DEMO2
PKUNZIP -o DEMO3.ZIP *.* DEMO3
PKUNZIP -o VCL.ZIP *.* VCL
PKUNZIP -o DLL.ZIP *.* DLL

IF NOT EXIST VCL\ZIPMSTR.PAS GOTO BOMB
IF NOT EXIST %WINDIR%\EXPLORER.EXE GOTO NOWIN
COPY DLL\*.DLL %WINDIR%\SYSTEM
:NOWIN

DEL DOC.ZIP 
DEL CDEMO1.ZIP 
DEL DEMO1.ZIP 
DEL DEMO2.ZIP 
DEL DEMO3.ZIP 
DEL VCL.ZIP 
DEL DLL.ZIP

GOTO END

:NOMAIN
ECHO ERROR: FILE DELZIP12.ZIP NOT FOUND
GOTO END
:ERROR
ECHO ERROR: REQUIRED ZIP FILES NOT FOUND
GOTO END
:BOMB
ECHO ERROR: INSTALLATION FAILED
:END