home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 November / PCWorld_2005-11_cd.bin / software / vyzkuste / divfix / DivFix110.exe / Source / About.pas < prev    next >
Pascal/Delphi Source File  |  2003-03-24  |  2KB  |  99 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. unit About;
  19. {$DEFINE WINDOWS}
  20.  
  21. interface
  22.  
  23. uses
  24.     SysUtils, Classes,
  25. {$IFDEF WINDOWS}
  26.   Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ShellApi;
  27. {$ELSE}
  28.     QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls;
  29. {$ENDIF}
  30.  
  31. type
  32.   TForm2 = class(TForm)
  33.     Button1: TButton;
  34.     Bevel1: TBevel;
  35.     Bevel2: TBevel;
  36.     Bevel3: TBevel;
  37.     Memo1: TMemo;
  38.     Bevel4: TBevel;
  39.     Label1: TLabel;
  40.     Label2: TLabel;
  41.     Label3: TLabel;
  42.     Label4: TLabel;
  43.     Label5: TLabel;
  44.     Label6: TLabel;
  45.     Label7: TLabel;
  46.     Label8: TLabel;
  47.     Label9: TLabel;
  48.     Label10: TLabel;
  49.     Label11: TLabel;
  50.     Label12: TLabel;
  51.     Label13: TLabel;
  52.     procedure Button1Click(Sender: TObject);
  53.     procedure SendEMail(Sender: TObject);
  54.     procedure ShowWebPage(Sender: TObject);
  55.   private
  56.     { Private declarations }
  57.   public
  58.     { Public declarations }
  59.   end;
  60.  
  61. var
  62.   Form2: TForm2;
  63.  
  64. implementation
  65.  
  66. uses DivX;
  67.  
  68. {$IFDEF WINDOWS}
  69. {$R *.DFM}
  70. {$ELSE}
  71. {$R *.dfm}
  72. {$ENDIF}
  73.  
  74. procedure TForm2.Button1Click(Sender: TObject);
  75. begin
  76.     Form2.Close;
  77.   Form1.Enabled:=True;
  78. end;
  79.  
  80. procedure TForm2.SendEMail(Sender: TObject);
  81. begin
  82. {$IFDEF WINDOWS}
  83.     ShellExecute(0,'open',pchar('mailto:divfix@freemail.hu'),nil,nil,SW_NORMAL);
  84. {$ELSE}
  85.     Libc.system('mozilla mailto:divfix@freemail.hu &');
  86. {$ENDIF}
  87. end;
  88.  
  89. procedure TForm2.ShowWebPage(Sender: TObject);
  90. begin
  91. {$IFDEF WINDOWS}
  92.     ShellExecute(0,'open',pchar('http://divfix.maxeline.com'),nil,nil,SW_MAXIMIZE);
  93. {$ELSE}
  94.     Libc.system('mozilla http://divfix.maxeline.com &');
  95. {$ENDIF}
  96. end;
  97.  
  98. end.
  99.