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.