[델파이] ShellExecute

uses Winapi.ShellAPI;
 
...
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(handle, 'open', 'Chrome', 'http://www.pierrot-98.tistory.com', nil, SW_SHOWNORMAL );
 
  ShellExecute( handle , 'open', 'http://www.pierrot-98.tistory.com', nil, nil, SW_SHOWNORMAL );
end;

 

//새로운 인터넷 창을 열기

ShellExecute(handle, 'open', 'Chrome', 'http://www.pierrot-98.tistory.com', nil, SW_SHOWNORMAL );

 

//기본 브라우저가 없으면 창을 열고, 기본 브라우저가 열려있으면 새 탭으로 열기

ShellExecute( handle , 'open', 'http://www.pierrot-98.tistory.com', nil, nil, SW_SHOWNORMAL );