home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Vyzkuste / divfix / Source / DivFix.dpr < prev    next >
Text File  |  2002-09-09  |  4KB  |  118 lines
  1. {DivFix is a utility for reindexing partial DivX AVI movies
  2. Copyright (C) 2000-2002  Csaba Budai
  3.  
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8.  
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. GNU General Public License for more details.
  13.  
  14. You should have received a copy of the GNU General Public License
  15. along with this program; if not, write to the Free Software
  16. Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA}
  17.  
  18. program DivFix;
  19.  
  20. uses
  21.   Forms,
  22.   SysUtils,
  23.   DivX in 'DivX.pas' {Form1},
  24.   About in 'About.pas' {Form2},
  25.   Parameters in 'Parameters.pas' {Form3},
  26.   DirRequester in 'DirRequester.pas' {Form4};
  27.  
  28.   Var SearchRec        :    TSearchRec;
  29.       StripIndex    :    Boolean;
  30.       ErrorCheck    :    Boolean;
  31.       i                        :    Byte;
  32.  
  33. {$R *.RES}
  34.  
  35. begin
  36.   Application.Initialize;
  37.   Application.CreateForm(TForm1, Form1);
  38.   Application.CreateForm(TForm2, Form2);
  39.   Application.CreateForm(TForm3, Form3);
  40.   Application.CreateForm(TForm4, Form4);
  41.   If ParamCount>0 Then
  42.   Begin
  43.     StripIndex:=False;
  44.   ErrorCheck:=False;
  45.         Form1.Tag:=1;
  46.        If (ParamStr(1)='/?') Or (ParamStr(1)='-h') Or (ParamStr(1)='-H') Then
  47.     Begin
  48.         Form3.Button1.Cancel:=True;
  49.         Form3.Show;
  50.       Form3.Refresh;
  51.       Repeat
  52.           Application.ProcessMessages;
  53.       Until Not (Form3.Button1.Cancel);
  54.       Exit;
  55.     End;
  56.       If ParamCount>1 Then
  57.     Begin
  58.         i:=2;
  59.       Repeat
  60.                  If (ParamStr(i)='-r') Or (ParamStr(i)='-R') Then StripIndex:=True
  61.         Else If (ParamStr(i)='-e') Or (ParamStr(i)='-E') Then ErrorCheck:=True
  62.         Else If (ParamStr(i)='-o') Or (ParamStr(i)='-O') Then
  63.         Begin
  64.             Form1.CheckBox1.Checked:=True;
  65.           Form1.CheckBox2.Enabled:=True;
  66.           If (i<ParamCount) And (ParamStr(i+1)[1]<>'-') Then
  67.           Begin
  68.               Inc(i);
  69.               Form1.MaskEdit2.Text:=ParamStr(i);
  70.           End
  71.           Else Form1.MaskEdit2.Text:=ExtractFilePath(ParamStr(1));
  72.         End
  73.         Else If (ParamStr(i)='-c') Or (ParamStr(i)='-C') Then Form1.CheckBox2.Checked:=True
  74.         Else If (ParamStr(i)='-l') Or (ParamStr(i)='-L') Then
  75.         Begin
  76.             Form1.CheckBox3.Checked:=True;
  77.           If (i<ParamCount) And (ParamStr(i+1)[1]<>'-') Then
  78.           Begin
  79.               Inc(i);
  80.               Form1.MaskEdit3.Text:=ParamStr(i);
  81.           End
  82.           Else Form1.MaskEdit3.Text:='DivFix.log';
  83.         End;
  84.         Inc(i);
  85.       Until i>ParamCount;
  86.          If FindFirst(ParamStr(1),faAnyFile,SearchRec)=0 Then
  87.       Begin
  88.           Repeat
  89.             Form1.ListBox1.Items.Add(ExtractFilePath(ParamStr(1))+SearchRec.Name);
  90.             Form1.Show;
  91.             Form1.Refresh;
  92.         Until FindNext(SearchRec)<>0;
  93.         FindClose(SearchRec);
  94.            If StripIndex Then Form1.Button2Click(nil)
  95.            Else If ErrorCheck Then Form1.Button3Click(nil)
  96.         Else Form1.Button1Click(nil);
  97.       End;
  98.     End
  99.     Else
  100.     Begin
  101.          If FindFirst(ParamStr(1),faAnyFile,SearchRec)=0 Then
  102.       Begin
  103.              Repeat
  104.              Form1.ListBox1.Items.Add(ExtractFilePath(ParamStr(1))+SearchRec.Name);
  105.              Until FindNext(SearchRec)<>0;
  106.           FindClose(SearchRec);
  107.                 Form1.Show;
  108.             Form1.Refresh;
  109.           Form1.Button1Click(nil);
  110.       End;
  111.     End;
  112.   End
  113.   Else
  114.   Begin
  115.       Application.Run;
  116.   End;
  117. end.
  118.