В USES необходимо включить модули Registry, Shellapi
procedure OpenURL(Url: string);
var
ts: string;
begin
with TRegistry.Create do
try
rootkey := HKEY_CLASSES_ROOT;
OpenKey('\htmlfile\shell\open\command', False);
try
ts := ReadString('');
except
ts := '';
end;
CloseKey;
finally
Free;
end;
if ts = '' then Exit;
ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
ts := Copy(ts, 1, Pos('"', ts) - 1);
ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
end;
begin openurl('http://www.site.ru'); end;
Описанный выше пример открывает страницу в Internet Explorer. Если у вас установлен другой браузер и вы хотите, чтобы страницы открывались в браузере, установленном по умолчанию, можно воспользоваться простым кодом:
