unit1.pas

Easy program in Delphi. He find a tabs in ultimate-guitar.com

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ShellApi, XPMan;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer5: TTimer;
    Timer6: TTimer;
    Label2: TLabel;
    XPManifest1: TXPManifest;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
scie: string;
begin
scie := 'http://ultimate-guitar.com/search.php?s='+Edit1.text+'&w=songs';
ShellExecute(Handle, 'open', Pchar(scie), nil, nil, SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
scie: string;
begin
scie := 'http://ultimate-guitar.com/search.php?s='+Edit2.text+'&w=bands';
ShellExecute(Handle, 'open', Pchar(scie), nil, nil, SW_SHOW);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Length(Edit1.Text) >= 1 then
begin
Edit2.enabled:=false;
Edit2.color:=$00DDDDDD;
end else
Edit2.enabled:=true;
Timer5.enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if edit1.Text='' then
begin
button1.enabled:=false;
end else
button1.enabled:=true;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if edit2.Text='' then
begin
button2.visible:=false;
end else
button2.visible:=true;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if Length(Edit2.Text) >= 1 then
begin
Edit1.enabled:=false;
Edit1.color:=$00DDDDDD;
end else
Edit1.enabled:=true;
Timer6.enabled:=true;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
Edit2.color:=clWhite;
timer5.enabled:=false;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
Edit1.color:=clWhite;
timer6.enabled:=false;
end;

end.