打開網頁

use
ShellAPI

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ShellExecute(Handle, 'Open', 'IEXPLORE.EXE', 'Http://www.baidu.com', '', SW_SHOWNORMAL);
end;