Войти в сайт на клике!

[Rebel123]

Добрый День Кодеры. Интересует вопросик:
Как можно сделать так, чтоб на клике (допустим на Image) чтоб он скидывал тебя на сайт???

[Evgeniy26]

ShellExecute.

[Rebel123]

procedure TForm1.Image2Click(Sender: TObject);
begin
If (Sender is TImage) then
with (Sender as TImage) do
ShellExecute(Application.Handle,PChar('open'),
PChar(Hint),
PChar(0),
nil,
SW_NORMAL);
end;

Тут только при условии что в Hint будет указано полная ссылка на сайт. А мне нужно чтоб не указывая в Hint ссылку можно было заходить на сайт!

[Evgeniy26]

ShellExecute(Application.Handle,PChar('open'), PChar('www.yandex.ru'), PChar(0), nil, SW_NORMAL);

[Пепел Феникса]

Evgeniy26, на всякий лучше протокол указывать...хотя поидее www должно сработать полноценно

[Evgeniy26]

Пепел Феникса, спасибо.

[Rebel123]

Все работает на ''УРА''. Тему можно закрывать! Спасибо всем кто помогал!

[Sheroz]

насчет Image не знаю, но знаю как через компонент TLabel это сделать. бросаешь новый объект TLabel на форму, а в свойстве Caption пишешь полное название сайта(www......... и т.д.). далее пишешь обработку события Click на компоненте ///
ShellExecute(Application.Handle, 'open',PChar(Label1.Caption), '', '', SW_RESTORE);

{p.s. в директиву uses надо добавить ccылку на модуль ShellAPI}