Как перейти на страницу браузера?

[maelz]

Как перейти по ссылке (например через Label) на какую-либо страницу браузера или создать письмо?

[Duncon]

Че-то типа этого

Код: Выделить всё

procedure TForm1.Label1Click(Sender: TObject);
begin
WB1.Navigate(Label1.text);
end;

[/color]

[maelz]

Я имею в виду не переход на компонент TWebBrowser, а на открытие своего браузера по умолчанию и переход на определённый URL

[Duncon]

Ну тогда так

Код: Выделить всё

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://www.xx.ru/', nil, nil, SW_SHOW);
end;

[/color]

[Duncon]

Да насчет письма, все так же

Код: Выделить всё

procedure TForm2.LabelClick(Sender: TObject);
begin
ShellExecute(Handle, nil, 'mailto:123@mail.ru', nil, nil, SW_SHOW);
end;

[/color]

[maelz]

Я там зачем то новую тему создал....Ну да ладно, как мне обозначить ShellExecute?

[Duncon]

обозначить ShellExecute

В каком смысле?

[LAngel]

uses ShellAPI ?

[Duncon]

Блин, так бы и писал - что в uses, хорошо у некоторых телепатия развита