home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 November / PCWorld_2005-11_cd.bin / software / vyzkuste / divfix / DivFix110.exe / Source / DivFix.dpr < prev    next >
Text File  |  2003-03-24  |  4KB  |  127 lines
  1. {DivFix is a utility for reindexing partial DivX AVI movies
  2. Copyright (C) 2000-2003  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. {$DEFINE WINDOWS}
  20.  
  21. uses
  22. {$IFDEF WINDOWS}
  23.   Forms,
  24. {$ELSE}
  25.     QForms,
  26. {$ENDIF}
  27.   SysUtils,
  28.   DivX in 'DivX.pas' {Form1},
  29.   About in 'About.pas' {Form2},
  30.   Parameters in 'Parameters.pas' {Form3},
  31.   DirRequester in 'DirRequester.pas' {Form4};
  32.  
  33.   Var SearchRec        :    TSearchRec;
  34.       StripIndex    :    Boolean;
  35.       ErrorCheck    :    Boolean;
  36.       i                        :    Byte;
  37.  
  38. {$IFDEF WINDOWS}
  39. {$R *.RES}
  40. {$ELSE}
  41. {$R *.res}
  42. {$ENDIF}
  43.  
  44. begin
  45.   Application.Initialize;
  46.   Application.CreateForm(TForm1, Form1);
  47.   Application.CreateForm(TForm2, Form2);
  48.   Application.CreateForm(TForm3, Form3);
  49.   Application.CreateForm(TForm4, Form4);
  50.   If ParamCount>0 Then
  51.   Begin
  52.     StripIndex:=False;
  53.   ErrorCheck:=False;
  54.         Form1.Tag:=1;
  55.        If (ParamStr(1)='/?') Or (ParamStr(1)='-h') Or (ParamStr(1)='-H') Then
  56.     Begin
  57.         Form3.Button1.Cancel:=True;
  58.         Form3.Show;
  59.       Form3.Refresh;
  60.       Repeat
  61.           Application.ProcessMessages;
  62.       Until Not (Form3.Button1.Cancel);
  63.       Exit;
  64.     End;
  65.       If ParamCount>1 Then
  66.     Begin
  67.         i:=2;
  68.       Repeat
  69.                  If (ParamStr(i)='-r') Or (ParamStr(i)='-R') Then StripIndex:=True
  70.         Else If (ParamStr(i)='-e') Or (ParamStr(i)='-E') Then ErrorCheck:=True
  71.         Else If (ParamStr(i)='-o') Or (ParamStr(i)='-O') Then
  72.         Begin
  73.             Form1.CheckBox1.Checked:=True;
  74.           Form1.CheckBox2.Enabled:=True;
  75.           If (i<ParamCount) And (ParamStr(i+1)[1]<>'-') Then
  76.           Begin
  77.               Inc(i);
  78.               Form1.MaskEdit2.Text:=ParamStr(i);
  79.           End
  80.           Else Form1.MaskEdit2.Text:=ExtractFilePath(ParamStr(1));
  81.         End
  82.         Else If (ParamStr(i)='-c') Or (ParamStr(i)='-C') Then Form1.CheckBox2.Checked:=True
  83.         Else If (ParamStr(i)='-l') Or (ParamStr(i)='-L') Then
  84.         Begin
  85.             Form1.CheckBox3.Checked:=True;
  86.           If (i<ParamCount) And (ParamStr(i+1)[1]<>'-') Then
  87.           Begin
  88.               Inc(i);
  89.               Form1.MaskEdit3.Text:=ParamStr(i);
  90.           End
  91.           Else Form1.MaskEdit3.Text:='DivFix.log';
  92.         End;
  93.         Inc(i);
  94.       Until i>ParamCount;
  95.          If FindFirst(ParamStr(1),faAnyFile,SearchRec)=0 Then
  96.       Begin
  97.           Repeat
  98.             Form1.ListBox1.Items.Add(ExtractFilePath(ParamStr(1))+SearchRec.Name);
  99.             Form1.Show;
  100.             Form1.Refresh;
  101.         Until FindNext(SearchRec)<>0;
  102.         FindClose(SearchRec);
  103.            If StripIndex Then Form1.Button2Click(nil)
  104.            Else If ErrorCheck Then Form1.Button3Click(nil)
  105.         Else Form1.Button1Click(nil);
  106.       End;
  107.     End
  108.     Else
  109.     Begin
  110.          If FindFirst(ParamStr(1),faAnyFile,SearchRec)=0 Then
  111.       Begin
  112.              Repeat
  113.              Form1.ListBox1.Items.Add(ExtractFilePath(ParamStr(1))+SearchRec.Name);
  114.              Until FindNext(SearchRec)<>0;
  115.           FindClose(SearchRec);
  116.                 Form1.Show;
  117.             Form1.Refresh;
  118.           Form1.Button1Click(nil);
  119.       End;
  120.     End;
  121.   End
  122.   Else
  123.   Begin
  124.       Application.Run;
  125.   End;
  126. end.
  127.