Program RunCreator;
Uses DOS;
var
  Srch   : SearchRec;
  Mask   : String;
  CmdStr : String;
  Fnm    : String;
  f      : Text;
Function UpString(Sra : String) : String;
var
 i : Byte;
 Sr : String;
begin
  Sr := Sra;
  for i := 1 to Length(Sr) do
    Sr[i] := UpCase(Sr[i]);
  UpString := Sr
end;
begin
 WriteLn('==============================================');
 WriteLn('Программа для создания .bat-файлов для запуска');
 WriteLn('файлов с нужной командной стокой');
 WriteLn('Формат командной строки:');
 WriteLn(' runcr.exe [командная строка] [маска] [имя .bat-файла]');
 WriteLn('Пример: runcr C:\PROGRA~1\WINAMP\winamp.exe *.mp3 runall.bat');
 WriteLn('==============================================');
 Fnm := 'run.bat';
 Mask := '*.*';
 CmdStr := '';
 if ParamCount<>0 then
 begin
   CmdStr := ParamStr(1);
   if ParamCount>= 2 then Mask := ParamStr(2);
   if ParamCount>= 3 then Fnm := ParamStr(3);
 end;
 if CmdStr<>'' then CmdStr := CmdStr+' ';
 Assign(f, Fnm);
 Rewrite(f);
 WriteLn(f, '@echo off');
 FindFirst(Mask, $27, Srch);
 while DosError = 0 do
 begin
   if UpString(Srch.Name)<>UpString(Fnm) then
     WriteLn(f, CmdStr+Srch.Name);
   FindNext(Srch);
 end;
 WriteLn(f, 'echo on');
 Close(f);
end.

Назад