[Dima2007]

Я сделал в Label2 ссылку так вот все работает но при наведение
на ссылку курсора она не выделяется другим цветом к примеру синим.
Напишите плиз как это сделать.И можно както по другому.Тока подробно
я только начал изучать Delphi .

procedure TForm1.Label2Click(Sender: TObject);
begin
shellapi.ShellExecute(handle, 'open',
'http://www.kiber.net',
'', '', sw_show);
end;

[Decoding]

Код:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
   Label1.Font.Color := clBlue;
   Label1.Font.Style := Label1.Font.Style + [fsUnderline];
   Label1.Cursor := crHandPoint;
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
   Label1.Font.Color := clBlack;
   Label1.Font.Style := Label1.Font.Style - [fsUnderline];
   Label1.Cursor := crDefault;
end;

[Winny]

Открывать сайт можно попроще ещё вот так:

Код:

WinExec('http://www.kiber.net',SW_SHOWNORMAL)

А ShellExecute лучше использовать в том случае, если надо открыть файл с параметром (например разархивировать архив).
У тебя слегка неправильный код с ShellExecute, надо вот так:

Код:

uses ShellAPI;

procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open','http://www.kiber.net',nil, nil, sw_shownormal);
end;