home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
v
/
v12n04.zip
/
SETVER.ZIP
/
RMSETVER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-08-11
|
1KB
|
39 lines
Program RmSetver;
{
RMSETVER.EXE - Creates a batch file to delete all of the entries
in the SETVER.EXE table.
Usage: SETVER | RMSETVER
By: Pat Attanasio, CompuServe Id: 72401,371
}
CONST
BatName : String[12] = 'RMSETVER.BAT';
BatOpen : Boolean = False;
VAR
RMSVBat : Text;
SVText : String;
BEGIN
WHILE NOT EOF(Input) DO
BEGIN
ReadLn(Input,SVText);
IF NOT ((SVText = '')
OR (SVText[1] = ' ')
OR (Copy(SVText,1,5) = 'NOTE:')
OR (Copy(SVText,1,5) = 'No en')) THEN
BEGIN
IF NOT BatOpen THEN
BEGIN
Assign(RMSVBat,BatName);
Rewrite(RMSVBat);
BatOpen := True;
END;
Writeln(RMSVBat,'SETVER ' + Copy(SVText,1,12) + ' /d');
END;
END;
IF BatOpen THEN
BEGIN
Close(RMSVBat);
Writeln(Batname + ' has been created');
END
ELSE Writeln('No entries found in version table');
END.