IT/Delphi
[델파이] ShellExecute
pierrot_98
2019. 9. 24. 20:45
|
1
2
3
4
5
6
7
8
9
10
11
|
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;
|
cs |
//새로운 인터넷 창을 열기
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 );