[The King Bear]

Как сделать чтобы нажимая ссылку на форме открывался браузер по муолчанию с сылкой на N страницццу (в инете).

[Nyctos Kasignete]

Код:

procedure TForm1.Button2Click(Sender: TObject);
const
  _URL = 'http://www.google.com'; // можете заменить на своё
var
  WinDir: PChar;
  RunDLLPath: string;
begin
  GetMem(WinDir, MAX_PATH);
  try
    GetWindowsDirectory(WinDir, MAX_PATH);
    RunDLLPath := StrPas(WinDir) + '\system32\rundll32.exe';
    ShellExecute(Handle, PChar('open'), @RunDLLPath[1],
                 PChar('url.dll,FileProtocolHandler ' + _URL),
                 nil, SW_SHOWNORMAL);
  finally
    FreeMem(WinDir);
  end;
end;

[The King Bear]

А можно подробно обяснить что делаеться, а то с этого толку не какова, скопировал вставил и все, а в голове нех.. не осталось.

Ругаеться
Unit1.pas(64): Undeclared identifier: 'ShellExecute'

[PhoeniX]

В юзесы в начале юнита Шеллапи добавил?

Код:

uses ..., ..., ShellAPI;

[Nyctos Kasignete]

The King Bear, не бывает так, чтобы ничего непонятно. Спрашивайте конкретно, где возникает неясность.
Из системной директории %SystemRoot%\System32 вызывается "универсальная" утилита rundll32.exe с параметрами

Код:

url.dll,FileProtocolHandler %1

где %1 — полный адрес веб-ресурса, включая протокол (http://). Вызов rundll32.exe с такими параметрами приводит как раз к тому, чего вы требуете — открывается браузер по умолчанию и открывает указанную страницу...

P.S. Как отметил DJ PhoeniX, необходим модуль ShellAPI.

[Gens]

перейди по ссылке и скачай компонент http://www.delphiexpert.ru/view_download.php?id=29 это тот же label только с ссылкой. и нет никакого мозгапара!!!

[Casper-Hacker]

Люди вы чего? Человеку нужен нормальный рабочий код!

Код:

Uses .... , ShellApi ,...
ShellExecute(Form1.Handle,nil,'http://nanoteam.net',nil,nil,SW_SHOWNORMAL);