Open a HyperLink in the Default Browser
4
This bit of code will open up the http link in a new browser window. The link should be passed to the variable "HTML_File" as a string (as shown below).
uses
ShellAPI
{make sure you add this to the uses section at the top of the unit}
procedure TForm1.OpenHyperlink;
var
HTML_File: string;
begin
HTML_File := 'http://www.google.com';
ShellExecute(Handle, 'open', PChar(HTML_File), nil, nil, SW_SHOW);
end;
OpenHyperlink();






Plus why would you not just save the overhead of a function call and code the ShellExecute code directly in?