home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 May / PCWorld_2003-05_cd.bin / Software / Vyzkuste / divfix / Source / About.pas < prev    next >
Pascal/Delphi Source File  |  2002-09-12  |  2KB  |  82 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. unit About;
  19.  
  20. interface
  21.  
  22. uses
  23.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  24.   StdCtrls, ExtCtrls, ShellApi;
  25.  
  26. type
  27.   TForm2 = class(TForm)
  28.     Button1: TButton;
  29.     Bevel1: TBevel;
  30.     Bevel2: TBevel;
  31.     Bevel3: TBevel;
  32.     Memo1: TMemo;
  33.     Bevel4: TBevel;
  34.     Label1: TLabel;
  35.     Label2: TLabel;
  36.     Label3: TLabel;
  37.     Label4: TLabel;
  38.     Label5: TLabel;
  39.     Label6: TLabel;
  40.     Label7: TLabel;
  41.     Label8: TLabel;
  42.     Label9: TLabel;
  43.     Label10: TLabel;
  44.     Label11: TLabel;
  45.     Label12: TLabel;
  46.     Label13: TLabel;
  47.     procedure Button1Click(Sender: TObject);
  48.     procedure SendEMail(Sender: TObject);
  49.     procedure ShowWebPage(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  55.  
  56. var
  57.   Form2: TForm2;
  58.  
  59. implementation
  60.  
  61. uses DivX;
  62.  
  63. {$R *.DFM}
  64.  
  65. procedure TForm2.Button1Click(Sender: TObject);
  66. begin
  67.     Form2.Close;
  68.   Form1.Enabled:=True;
  69. end;
  70.  
  71. procedure TForm2.SendEMail(Sender: TObject);
  72. begin
  73.     ShellExecute(0,'open',pchar('mailto:divfix@freemail.hu'),nil,nil,SW_NORMAL);
  74. end;
  75.  
  76. procedure TForm2.ShowWebPage(Sender: TObject);
  77. begin
  78.     ShellExecute(0,'open',pchar('http://divfix.maxeline.com'),nil,nil,SW_MAXIMIZE);
  79. end;
  80.  
  81. end.
  82.