open external browser

[BoDGie]

What code do i need for an onclick function with a label to open an external web browser.. like a hyperlink basically.

Thanks,
Trent

 

[towerbase]

The following code will open up the Tek-tips page in your default browser from a button click.

Uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute ( hInstance, 'open', pchar('[URL unfurl="true"]www.tek-tips.com'),[/URL] nil, nil, SW_NORMAL );
end;

Andrew

 

[Stretchwickster]

Check this recent post:

thread102-581866

Hope this helps!

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)