자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi Form Button 클릭 이벤트에서 IE 실행 문의
2013.01.28 05:38
안녕하세요 초보 개발자? 인사드립니다.
Form Button을 클릭하면 IE가 실행되고 제가 원하는 URL로 연결되도록 구현할 수 있는 방법을 문의드립니다.
꾸벅꾸벅...
댓글 1
-
관리자
2013.04.01 19:45
Delphi Form Button 클릭 이벤트에서 IE 실행 문의
2013.01.28 05:38
안녕하세요 초보 개발자? 인사드립니다.
Form Button을 클릭하면 IE가 실행되고 제가 원하는 URL로 연결되도록 구현할 수 있는 방법을 문의드립니다.
꾸벅꾸벅...
댓글 1
-
관리자
2013.04.01 19:45
구글에서 검색하여 올립니다.
브라우저 실행하기(1)
기존의 창이 있다면 기존에 창에 명령이 적용되며 새탭이 생기면서 인터넷이 연결된다. 창이 없다면 새창을 열며 본복클릭시 계속 현재창이 갱신됩니다. uses절에 UrlMon 을 추가해야 합니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
HlinkNavigateString(nil, 'http://naver.com');
end;
브라우저 실행하기(2)
실행시 무조건 새브라우저가 열립니다.
하지만 브라우저사이즈는 제어못합니다.
winexec('explorer http://blog.naver.com/ysaraha',1);
브라우저 실행하기(3)
원하는 사이즈로 익스플로어창 실행이 가능합니다.
ole객체를 이용하여 익스플로어창을 새창으로 실행합니다.
ole관련 객체는 variant형으로 선언합니다.
실행시 무조건 새브라우저가 열립니다.
ole관련 객체 선언시에 ComObj 을 uses 해야 합니다.
procedure TForm1.Button1Click(Sender: TObject);
const
strURL = 'http://www.delmadang.com';
var
IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Width := 800;
IE.Height := 600;
IE.Navigate(strURL);
IE.Visible := True;
end;
[
댓글