안녕하세요.
아래와 같이 델파이 프로그램 실행에서 새로운 익스플로러 창을 띄울려고 하는데
익스플로러 창의 크기를 조졸하고 싶습니다.
이 부분에서 어떻게 해야하는지 많은 조언 부탁드립니다.
감사합니다.
코드시작 : <!--CodeS-->
procedure TForm1.OpenBrowser( sURL : string );
const
csOLEObjName ='InternetExplorer.Application';
var WinHandle : HWnd;
var IE : Variant;
begin
if (VarIsEmpty(IE) ) then
begin
IE := CreateOleObject( csOLEObjName);
IE.Visible := true;
IE.Navigate( sURL);
end
else
begin
WinHandle := FindWindow( 'IEFrame', nil );
if ( 0 <> WinHandle ) then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHandle );
end;
end;
end;
코드끝: <!--CodeE-->
IE.Height := 100;
을 추가해보세요 ^^