Страница 1 из 1
Как перейти на страницу браузера?
Добавлено: 10 сен 2005, 18:53
maelz
Как перейти по ссылке (например через Label) на какую-либо страницу браузера или создать письмо?
Добавлено: 10 сен 2005, 21:08
Duncon
Че-то типа этого
Код: Выделить всё
procedure TForm1.Label1Click(Sender: TObject);
begin
WB1.Navigate(Label1.text);
end;
[/color]
Добавлено: 10 сен 2005, 21:17
maelz
Я имею в виду не переход на компонент TWebBrowser, а на открытие своего браузера по умолчанию и переход на определённый URL
Добавлено: 11 сен 2005, 11:54
Duncon
Ну тогда так
Код: Выделить всё
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, nil, 'http://www.xx.ru/', nil, nil, SW_SHOW);
end;
[/color]
Добавлено: 11 сен 2005, 14:55
Duncon
Да насчет письма, все так же
Код: Выделить всё
procedure TForm2.LabelClick(Sender: TObject);
begin
ShellExecute(Handle, nil, 'mailto:123@mail.ru', nil, nil, SW_SHOW);
end;
[/color]
Добавлено: 11 сен 2005, 15:15
maelz
Я там зачем то новую тему создал....Ну да ладно, как мне обозначить ShellExecute?
Добавлено: 11 сен 2005, 21:19
Duncon
обозначить ShellExecute
В каком смысле?
Добавлено: 12 сен 2005, 08:17
LAngel
uses ShellAPI ?
Добавлено: 12 сен 2005, 09:22
Duncon
Блин, так бы и писал - что в uses, хорошо у некоторых телепатия развита