一个小问题？？：

Question

生成"InternetExplorer.Application"对象

Answer 1

ShellExecute(Handle, 'open', 'http://URL.com', nil, nil, SW_SHOWNORMAL);

Answer 2

ShellExecute(Handle, 'open', 'http://URL.com', nil, nil, SW_SHOWNORMAL); 
我用啊，可是还是不行，是不是还要添加那一个单元？？？

Answer 3

同意kevin_gao(困了！累了！睡觉了！)　AND gzmhero(hihihi)　

Answer 4

//pas
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}uses
  ShellApi;procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Font.Style := [fsUnderline];
end;procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clWindowText;
  TLabel(Sender).Font.Style := [];
end;procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShellExecute(Handle, 'OPEN', PChar(TLabel(Sender).Caption), nil, nil, SW_NORMAL);
end;end.//dfm
object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 99
    Height = 13
    Caption = 'http://www.sohu.com'
    Cursor = crHandPoint
    OnMouseDown = Label1MouseDown
    OnMouseEnter = Label2MouseEnter
    OnMouseLeave = Label2MouseLeave
  end
  object Label2: TLabel
    Left = 8
    Top = 104
    Width = 104
    Height = 13
    Caption = 'http://www.sohu.com'
    Cursor = crHandPoint
    OnMouseDown = Label1MouseDown
    OnMouseEnter = Label2MouseEnter
    OnMouseLeave = Label2MouseLeave
  end
end 

Answer 5

to vine(vine):
  好体贴、好舒服
  这下每个月都放心了^V^