program vir;
{$Apptype console}
uses {Windows,} KOL;

var i: Integer; S,S1:String;       DL:PDirList;

begin
 IF ParamCount > 0 THEN
 BEGIN
   if (ParamStr(1) = '?') OR (ParamStr(1) = '/?') OR (ParamStr(1) = '-?')
   OR (ParamStr(1) = '-h')OR (LowerCase( ParamStr(1)) = '--help')
   OR (LowerCase( ParamStr(1)) = 'help') OR (LowerCase( ParamStr(1)) = '-help') then
   begin
    write('exit');
    exit;
   end;

   FOR i := 1 TO ParamCount DO
   BEGIN
     S := ExtractFilePath(ParamStr(i));
     S1 :=ExtractFileName(ParamStr(i));
     if ExtractFilePath(ParamStr(i)) = '' then S := ExtractFilePath(ParamStr(0));
     if ExtractFileName(ParamStr(i)) = '' then S1 := '*.*';

     DL := NewDirList(S,S1,128);//FILE_ATTRIBUTE_NORMAL
     S := DL.FileList(';',false,true);
     DL.Free;

     WHILE Length(S)>0 DO
     BEGIN
       IF FileExists(copy(S,1,pos(';',S)-1)) THEN  writeln(copy(S,1,pos(';',S)-1){  main(copy(S,1,pos(';',S)-1))} )
       ELSE  writeln('Error - File not Exist: '+ copy(S,1,pos(';',S)-1));
       S := copy(S,pos(';',S)+1,Length(S)-pos(';',S));
     END;
   END;
 END;
end.