optbatch.pas

一个96K的3D游戏源码

{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,1000}
USES Crt,Dos;
VAR SR:SearchRec;
BEGIN
     FindFirst('*.BCL',AnyFile,SR);
     WHILE DosError=0 DO BEGIN
{           WriteFile(SR.Name);}
           Exec('LevelO~1.exe',SR.Name);
           FindNext(SR);
     END;
END.