실행중인 IE에는 active form이 있습니다. activeForm에서 생성된 자식폼에서 버튼을 누르면.... 새 IE 창을 띄우고 싶은데.... 잘 되지 않는군요.... 현재의 창으로 띄우는 것은 HlinkNavigateString( nil, 화일명); 으로 잘 되거든요......
최용일
•
2003.03.25 07:42
안녕하세요. 최용일입니다.
예전에 구창민님이 알려준건데... 아래 코드로 해보세요...
uses
OLEAu...
장경석
•
2003.03.25 21:03
용일님... 감사합니다.
그런데.........
uses OLEAuto
를 첨부하였더니 새로운 에러가 발생하네요......
최용일
•
2003.03.25 21:20
안녕하세요.. 최용일입니다.
그러면 OleAuto대신에 ActiveX유닛을 추가해보세요...
둘 다 별 차이는 ...
장경석
•
2003.03.25 23:16
감사합니다.
처리는 잘 되었읍니다.
다만 Activex 유닛을 넣어도 컴파일러 에러가 나네요....
그러다 h...
예전에 구창민님이 알려준건데... 아래 코드로 해보세요...
uses
OLEAuto;
procedure OpenInternetexplorer( sURL : string );
const
csOLEObjName = 'Internetexplorer.Application';
var
IE : Variant;
WinHanlde : HWnd;
begin
if( VarIsEmpty( IE ) )then
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Navigate( sURL );
end else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if( 0 <> WinHanlde )then
begin
IE.Navigate( sURL );
SetForegroundWindow( WinHanlde );
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenInternetexplorer( 'delphi.pe.kr' );
end;
^^ 항상 즐코하세요...