[델파이] 인터넷 창 띄우기

1. 

uses  Winapi.ShellAPI;

---------------------------------------------------------------------

ShellExecute(0, 'open', PChar(sURL), '', '', SW_NORMAL);

• 참고

  {$EXTERNALSYM SW_HIDE}

  SW_HIDE = 0;

  {$EXTERNALSYM SW_SHOWNORMAL}

  SW_SHOWNORMAL = 1;

  {$EXTERNALSYM SW_NORMAL}

  SW_NORMAL = 1;

  {$EXTERNALSYM SW_SHOWMINIMIZED}

  SW_SHOWMINIMIZED = 2;

  {$EXTERNALSYM SW_SHOWMAXIMIZED}

  SW_SHOWMAXIMIZED = 3;

  {$EXTERNALSYM SW_MAXIMIZE}

  SW_MAXIMIZE = 3;

  {$EXTERNALSYM SW_SHOWNOACTIVATE}

  SW_SHOWNOACTIVATE = 4;

  {$EXTERNALSYM SW_SHOW}

  SW_SHOW = 5;

  {$EXTERNALSYM SW_MINIMIZE}

  SW_MINIMIZE = 6;

  {$EXTERNALSYM SW_SHOWMINNOACTIVE}

  SW_SHOWMINNOACTIVE = 7;

  {$EXTERNALSYM SW_SHOWNA}

  SW_SHOWNA = 8;

  {$EXTERNALSYM SW_RESTORE}

  SW_RESTORE = 9;

  {$EXTERNALSYM SW_SHOWDEFAULT}

  SW_SHOWDEFAULT = 10;

  {$EXTERNALSYM SW_FORCEMINIMIZE}

  SW_FORCEMINIMIZE = 11;

  {$EXTERNALSYM SW_MAX}

  SW_MAX = 11;

2.

uses  

  System.Win.ComObj

  , System.Variants

  ;

---------------------------------------------------------------------

var

  IE : Variant;

---------------------------------------------------------------------

IE := CreateOleObject('InternetExplorer.Application');

try

  IE.Visible := True;

  IE.Navigate(sURL);

finally

  IE := Unassigned;

end;