분류
Delphi
델파이에서 ie 창 띄우기
페이지 정보
본문
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var // uses 구문에 'ComObj'를 추가
IE: Variant;
WinHandle: HWND;
begin
if VarIsEmpty(IE) then
begin
IE := CreateOLEObject('InternetExplorer.Application');
IE.Visible := True;
IE.Navigate('http://www.nuno21.net/');
end
else
begin
WinHandle := FindWindow('IEFrame', nil);
if 0 <> WinHandle then
begin
IE.Navigate('http://www.nuno21.net/');
SetForeGroundWindow(WinHandle);
end;
end;
end;
end.
관련자료
등록된 댓글이 없습니다.
