unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI,
StdCtrls;
type
TForm1 = class(TForm)
var
st: array[0..100] of char;
begin
//包含ShellAPI。
ShellExecute(Handle,'open',StrPCopy(St,'www.163.com'),nil,nil,SW_SHOW);
end;