delphi 打开网址链接

单元文件：ShellApi

OpenUrlWithDefBrowser('http://www.baidu.com');

procedure OpenUrlWithDefBrowser(url: string);

begin

  try ShellExecute(0, 'open', PChar(url), nil, nil, SW_SHOWNORMAL);

  except

    on E: Exception do begin

      Showmessage('ERROR in upddate progress: ' + E.Message + ' Please, try manual download ' + url + ' ');

    end;

  end;

end;