unit nolamedialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi;

type
  TnoLAME = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    hyperlink: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure hyperlinkClick(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  noLAME: TnoLAME;

procedure donoLAME;
implementation
uses empripmain;

{$R *.DFM}

procedure donoLAME;
var
a : string;
begin
//rs:=TResourceStream.Create(hInstance, 'NOLAME', RT_RCDATA);
//setlength(a,rs.size);
//rs.read(a[1],rs.size);
//rs.free;
noLAME := TnoLAME.Create(Application);
noLAME.memo1.text:=string(a);
noLAME.showmodal;

end;

procedure TnoLAME.Button1Click(Sender: TObject);
begin
die;
halt;
end;

procedure TnoLAME.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TnoLAME.hyperlinkClick(Sender: TObject);
begin
ShellExecute (0, nil, pchar(tlabel(sender).caption), nil, nil, SW_SHOWNORMAL);
end;

procedure TnoLAME.Label2Click(Sender: TObject);
begin
ShellExecute (0, nil, pchar('www.mp3-tech.org'), nil, nil, SW_SHOWNORMAL);
end;

procedure TnoLAME.Label4Click(Sender: TObject);
begin
ShellExecute (0, nil, pchar('www.google.com'), nil, nil, SW_SHOWNORMAL);
end;

procedure TnoLAME.Label3Click(Sender: TObject);
begin
ShellExecute (0, nil, pchar('http://www.google.com/search?q=lamewin32'), nil, nil, SW_SHOWNORMAL);
end;

procedure TnoLAME.Label6Click(Sender: TObject);
begin
ShellExecute (0, nil, pchar('http://www.myjukebox.co.uk/empathy/navigation.php?sec=2&sub=1'), nil, nil, SW_SHOWNORMAL);
end;

end.