unit aboutdialog; {* * EMPRIP - aboutdialog Show about box with copyright and licence info * Windows CD Audio extraction and MP3 Encoder * (C) 2003 Matthew J. Smith, Librarysmith Software * Based on AKRIP (http://akrip.sourceforge.net) cddb and audio extraction library * and the LAME projects (http://wwww.mp3dev.org) LAME_ENC.DLL. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU Lesser General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *} interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,global,shellapi; type Tabout = class(TForm) logo: TImage; hyperlink: TLabel; OK: TButton; outline: TShape; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; back: TImage; Label5: TLabel; Label6: TLabel; Label7: TLabel; linkgpl: TLabel; Label9: TLabel; Label10: TLabel; linklesser: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label18: TLabel; linklibrary: TLabel; Label21: TLabel; Label22: TLabel; Label17: TLabel; procedure FormCreate(Sender: TObject); procedure hyperlinkClick(Sender: TObject); procedure Label14Click(Sender: TObject); procedure Label22Click(Sender: TObject); procedure linkgplClick(Sender: TObject); procedure linklesserClick(Sender: TObject); procedure linklibraryClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var about: Tabout; procedure showabout; implementation uses displaylicencedialog,empripmain; {$R *.DFM} procedure showabout; begin about := Tabout.Create(Application); try about.Showmodal; finally about.free; end; end; procedure Tabout.FormCreate(Sender: TObject); begin sizeform(self,'About this Program'); doublebuffered:=true; Myloadbitmap(logo,'LOGO'); outline.top:=0; outline.left:=0; outline.width:=width; outline.height:=height; end; procedure Tabout.hyperlinkClick(Sender: TObject); begin ShellExecute (0, nil, 'http://www.librarysmith.co.uk/emprip', nil, nil, SW_SHOWNORMAL); end; procedure Tabout.Label14Click(Sender: TObject); begin ShellExecute (0, nil, 'http://akrip.sourceforge.net', nil, nil, SW_SHOWNORMAL); end; procedure Tabout.Label22Click(Sender: TObject); begin ShellExecute (0, nil, 'http://www.mp3dev.org', nil, nil, SW_SHOWNORMAL); end; procedure Tabout.linkgplClick(Sender: TObject); begin showlicence('GPL','EMPRIP Licence Conditions'); end; procedure Tabout.linklesserClick(Sender: TObject); begin showlicence('GPLESSER','AKRIP Licence Conditions'); end; procedure Tabout.linklibraryClick(Sender: TObject); begin showlicence('GPLIBRARY','L.A.M.E. Licence Conditions'); end; end.